From 30e8eb3e135291717eceaae69162fceb91d30aa1 Mon Sep 17 00:00:00 2001
From: Miklos Szeredi <miklos@szeredi.hu>
Date: Thu, 11 Nov 2004 15:20:05 +0000
Subject: move perl python and lufis directories one level up

---
 perl/test/s/mount.t  | 25 -------------------------
 perl/test/s/umount.t |  7 -------
 2 files changed, 32 deletions(-)
 delete mode 100644 perl/test/s/mount.t
 delete mode 100644 perl/test/s/umount.t

(limited to 'perl/test/s')

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");
-- 
cgit v1.2.3