Help for this page

Select Code to Download


  1. or download this
    foreach my $t (keys %tests) {
    my $cmd="$t '$myfile'";
    print "running [$cmd]\n";
    if ( eval{"$cmd"} )
  2. or download this
    running [-r './test.pl']
 Passed [-r] test, ./test.pl is (is readable)
...
 Passed [-B] test, ./test.pl is (is Binary)
running [-s './test.pl']
 Passed [-s] test, ./test.pl is (more than 0 bytes)