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/mount.t | |
parent | 3d60e7641b52ac98d789ab091c6ada143dba5f69 (diff) | |
download | libfuse-30e8eb3e135291717eceaae69162fceb91d30aa1.tar.gz |
move perl python and lufis directories one level up
Diffstat (limited to 'perl/test/s/mount.t')
-rw-r--r-- | perl/test/s/mount.t | 25 |
1 files changed, 0 insertions, 25 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); -} |