#!/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) = ; runtests("test/s/mount.t",sort(@files),"test/s/umount.t");