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