1 |
mszeredi |
4 |
#!/usr/bin/perl -w |
2 |
|
|
use test::helper qw($_point $_loop $_real $_pidfile); |
3 |
|
|
use strict; |
4 |
|
|
use Test::More tests => 3; |
5 |
|
|
ok(!(scalar grep(/ on $_point /,`cat /proc/mounts`)),"already mounted"); |
6 |
|
|
ok(-f $_loop,"loopback exists"); |
7 |
|
|
|
8 |
|
|
if(!fork()) { |
9 |
|
|
#close(STDIN); |
10 |
|
|
close(STDOUT); |
11 |
|
|
close(STDERR); |
12 |
dpavlin |
10 |
mkdir $_point; |
13 |
|
|
mkdir $_real; |
14 |
mszeredi |
4 |
`echo $$ >test/s/mounted.pid`; |
15 |
dpavlin |
19 |
exec("perl -Iblib/lib -Iblib/arch $_loop $_point"); |
16 |
mszeredi |
4 |
exit(1); |
17 |
|
|
} |
18 |
|
|
select(undef, undef, undef, 0.5); |
19 |
|
|
my ($success) = `cat /proc/mounts` =~ / $_point /; |
20 |
|
|
ok($success,"mount succeeded"); |
21 |
|
|
system("rm -rf $_real"); |
22 |
|
|
unless($success) { |
23 |
|
|
kill('INT',`cat $_pidfile`); |
24 |
|
|
unlink($_pidfile); |
25 |
|
|
} else { |
26 |
|
|
mkdir($_real); |
27 |
|
|
} |