From 8811161f67657253d11214ede54857f810662a91 Mon Sep 17 00:00:00 2001
From: Mark Glines <mark@glines.org>
Date: Mon, 22 Apr 2002 02:24:28 +0000
Subject: added a test framework updated README fixed a couple of bugs in
 loopback.pl

---
 perl/test.pl | 22 ++++++----------------
 1 file changed, 6 insertions(+), 16 deletions(-)

(limited to 'perl/test.pl')

diff --git a/perl/test.pl b/perl/test.pl
index eee3421..e8152fd 100644
--- a/perl/test.pl
+++ b/perl/test.pl
@@ -1,18 +1,8 @@
 #!/usr/bin/perl
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.pl'
+BEGIN { $ENV{HARNESS_IGNORE_EXITCODE} = 1; }
 
-#########################
-
-# change 'tests => 1' to 'tests => last_test_to_print';
-
-use Test;
-BEGIN { plan tests => 1 };
-use Fuse;
-ok(1); # If we made it this far, we're ok.
-#########################
-
-# Insert your test code below, the Test module is use()ed here so read
-# its man page ( perldoc Test ) for help writing this test script.
-
-# haven't written anything, because I don't want to require root
+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");
-- 
cgit v1.2.3