trunk/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");
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");