added a test framework

updated README
fixed a couple of bugs in loopback.pl

1 files changed, 6 insertions, 16 deletions

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