view release on metacpan or  search on metacpan

t/descartes.t  view on Meta::CPAN

BEGIN { $^W= 1; }
use Test qw( plan );

my $ok;
sub ok($;$$) {
    for(  &Test::ok(@_)  ) {
        $ok= 0
            if  ! $_;
        return $_;
    }
}
END {
    print STDERR "# ( ", join " ", @Acme::ESP::Scanner::fail, ")\n"
        if  @Acme::ESP::Scanner::fail;
    if(  defined $ok  &&  1 != $ok  ) {