diff options
author | Miklos Szeredi <miklos@szeredi.hu> | 2004-11-11 15:20:05 +0000 |
---|---|---|
committer | Miklos Szeredi <miklos@szeredi.hu> | 2004-11-11 15:20:05 +0000 |
commit | 30e8eb3e135291717eceaae69162fceb91d30aa1 (patch) | |
tree | 1db0567746719aeebe993981e2744d0340cfcc3e /perl/test/s | |
parent | 3d60e7641b52ac98d789ab091c6ada143dba5f69 (diff) | |
download | libfuse-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.t | 25 | ||||
-rw-r--r-- | perl/test/s/umount.t | 7 |
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"); |