test.pl

   1 #!/usr/bin/perl
   2 BEGIN { $ENV{HARNESS_IGNORE_EXITCODE} = 1; }
   3
   4 use Test::Harness qw(&runtests $verbose);
   5 $verbose=0;
   6 die "cannot find test directory!" unless -d "test";
   7 my (@files) = <test/*.t>;
   8 runtests("test/s/mount.t",sort(@files),"test/s/umount.t");