perl/test.pl

#!/usr/bin/perl
BEGIN { $ENV{HARNESS_IGNORE_EXITCODE} = 1; }

use Test::Harness qw(&runtests $verbose);
$verbose=0;
die "cannot find test directory!" unless -d "test";
my (@files) = <test/*.t>;
runtests("test/s/mount.t",sort(@files),"test/s/umount.t");