view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

print "1..", int(@expected), "\n";


for ($i = 1; $i <= int(@expected); ++$i) {
    $args = $expected[$i-1]->[0];
    $output = `$^X -Iblib/lib t/testscript.pl $args 2>&1`;
    if ($output eq $expected[$i-1]->[1]) {
        print "ok $i\n";
    }
    else {
        print STDERR "OUTPUT:\n$output\nEXPECTED:\n", $expected[$i-1]->[1], "\n";
        print "not ok $i\n";
    }
}

exit 0;

__DATA__
ARGS:
Start of testscript.pl [AppConfig::Std 1.10]
End of testscript.pl

t/getopt.t  view on Meta::CPAN

for ($i = 1; $i <= int(@expected); ++$i)
{
    $args = $expected[$i-1]->[0];
    $output = `$^X -Iblib/lib t/getscript.pl $args 2>&1`;
    if ($output eq $expected[$i-1]->[1]) {
        print "ok $i\n";
    }
    else {
        print STDERR "OUTPUT:\n$output\nEXPECTED:\n", $expected[$i-1]->[1], "\n";
        print "not ok $i\n";
    }
}

exit 0;

__DATA__
ARGS:
Start of getscript.pl [AppConfig::Std 1.10]
End of getscript.pl