aboutsummaryrefslogtreecommitdiffstats
path: root/perl/test/s
diff options
context:
space:
mode:
authorMiklos Szeredi <miklos@szeredi.hu>2004-11-11 15:20:05 +0000
committerMiklos Szeredi <miklos@szeredi.hu>2004-11-11 15:20:05 +0000
commit30e8eb3e135291717eceaae69162fceb91d30aa1 (patch)
tree1db0567746719aeebe993981e2744d0340cfcc3e /perl/test/s
parent3d60e7641b52ac98d789ab091c6ada143dba5f69 (diff)
downloadlibfuse-30e8eb3e135291717eceaae69162fceb91d30aa1.tar.gz
move perl python and lufis directories one level up
Diffstat (limited to 'perl/test/s')
-rw-r--r--perl/test/s/mount.t25
-rw-r--r--perl/test/s/umount.t7
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");