added a test framework

updated README
fixed a couple of bugs in loopback.pl

2 files changed, 33 insertions, 0 deletions

diff --git a/perl/test/s/mount.t b/perl/test/s/mount.t
new file mode 100644
index 0000000..1deb2c4
--- /dev/null
+++ b/perl/test/s/mount.t
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+use test::helper qw($_point $_loop $_real $_pidfile);
+use strict;
+use Test::More tests => 4;
+ok(!(scalar grep(/ on $_point /,`cat /proc/mounts`)),"already mounted");
+ok(-f $_loop,"loopback exists");
+ok(-x $_loop,"loopback executable");
+
+if(!fork()) {
+	#close(STDIN);
+	close(STDOUT);
+	close(STDERR);
+	`echo $$ >test/s/mounted.pid`;
+	exec("perl $_loop $_point");
+	exit(1);
+}
+select(undef, undef, undef, 0.5);
+my ($success) = `cat /proc/mounts` =~ / $_point /;
+ok($success,"mount succeeded");
+system("rm -rf $_real");
+unless($success) {
+	kill('INT',`cat $_pidfile`);
+	unlink($_pidfile);
+} else {
+	mkdir($_real);
+}
diff --git a/perl/test/s/umount.t b/perl/test/s/umount.t
new file mode 100644
index 0000000..da60677
--- /dev/null
+++ b/perl/test/s/umount.t
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+use test::helper qw($_point $_real $_pidfile);
+use strict;
+use Test::More tests => 1;
+system("umount $_point");
+ok(1,"unmount");
+system("rm -rf $_real $_pidfile");