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 "mounting $_loop to $_point";
        exec("perl -Iblib/lib -Iblib/arch $_loop $_point");
        exit(1);
}

my ($success, $count) = (0,0);
while ($count++ < 50 && !$success) {
        select(undef, undef, undef, 0.1);
    ($success) = `cat /proc/mounts` =~ / $_point /;
}
diag "Mounted in ", $count/10, " secs";

ok($success,"mount succeeded");
system("rm -rf $_real");
unless($success) {
        kill('INT',`cat $_pidfile`);
        unlink($_pidfile);
} else {
        mkdir($_real);
}
1	#!/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	mkdir $_point;
13	mkdir $_real;
14	`echo $$ >test/s/mounted.pid`;
15	diag "mounting $_loop to $_point";
16	exec("perl -Iblib/lib -Iblib/arch $_loop $_point");
17	exit(1);
18	}
19
20	my ($success, $count) = (0,0);
21	while ($count++ < 50 && !$success) {
22	select(undef, undef, undef, 0.1);
23	($success) = `cat /proc/mounts` =~ / $_point /;
24	}
25	diag "Mounted in ", $count/10, " secs";
26
27	ok($success,"mount succeeded");
28	system("rm -rf $_real");
29	unless($success) {
30	kill('INT',`cat $_pidfile`);
31	unlink($_pidfile);
32	} else {
33	mkdir($_real);
34	}