2 files changed, 0 insertions, 32 deletions
diff --git a/perl/test/s/mount.t b/perl/test/s/mount.t
deleted file mode 100644
index 26f6fc2..0000000
--- a/perl/test/s/mount.t
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/perl -w
-use test::helper qw($_point $_loop $_real $_pidfile);
-use strict;
-use Test::More tests => 3;
-ok(!(scalar grep(/ on $_point /,`cat /proc/mounts`)),"already mounted");
-ok(-f $_loop,"loopback exists");
-
-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
deleted file mode 100644
index da60677..0000000
--- a/perl/test/s/umount.t
+++ /dev/null
@@ -1,7 +0,0 @@
-#!/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");