test/s/mount.t

#!/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);
        mkdir $_point;
        mkdir $_real;
        `echo $$ >test/s/mounted.pid`;
        diag "mouting $_loop to $_point";
        exec("perl -Iblib/lib -Iblib/arch $_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);
}
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	22	diag "mouting $_loop to $_point";
16	dpavlin	19	exec("perl -Iblib/lib -Iblib/arch $_loop $_point");
17	mszeredi	4	exit(1);
18			}
19			select(undef, undef, undef, 0.5);
20			my ($success) = `cat /proc/mounts` =~ / $_point /;
21			ok($success,"mount succeeded");
22			system("rm -rf $_real");
23			unless($success) {
24			kill('INT',`cat $_pidfile`);
25			unlink($_pidfile);
26			} else {
27			mkdir($_real);
28			}