view release on metacpan or  search on metacpan

t/positive.t  view on Meta::CPAN

use warnings FATAL => 'all';
use strict;
use Test::More;

sub do_test($$$) {
    my $expected = shift;
    my $result = shift;
    my $test_name = shift;
    if ($result =~ $expected) {
        pass $test_name;
    }
    else {
        fail $test_name;
        print STDERR "Got:\n$result";
    }
}

sub do_pass($$) {
    do_test(qr/Result: PASS/s, shift, shift);
}
sub do_fail($$) {
    do_test(qr/Result: FAIL/s, shift, shift);
}

my $basic_command = 'prove -PPassEnv -Q testData/target.t';

$ENV{PROVE_PASS_PASSED_VAR} = 'testVar';
do_pass(`$basic_command`, 'Pass env variable');
delete $ENV{PROVE_PASS_PASSED_VAR};

$ENV{PROVE_PASS_PASSED_VAR} = 'testVar1';