view release on metacpan or  search on metacpan

t/prove.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Test::Fatal;

use Capture::Tiny qw( capture );

use App::Prove;

is exception {
    my $app = App::Prove->new;
    $app->process_args( '--norc', '-j1', '-PCount', 'tests/test1.t',
        'tests/test2.t' );

    my ( $stdout_get, $stderr_get ) = capture { $app->run };

    like $stdout_get, qr{\[1/2\] tests[/\\]test1\.t \.\. ok},
        'add test counts to first test';
    like $stdout_get, qr{\[2/2\] tests[/\\]test2\.t \.\. ok},
        'add test counts to second test';
    is $stderr_get, "", "no error output";
},
    undef,
    'no exception';

done_testing;