/[fuse.before_github]/perl-llin/test/s/mount.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /perl-llin/test/s/mount.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 21 by dpavlin, Mon Jan 2 19:50:33 2006 UTC revision 111 by dpavlin, Thu Nov 15 09:23:22 2007 UTC
# Line 12  if(!fork()) { Line 12  if(!fork()) {
12          mkdir $_point;          mkdir $_point;
13          mkdir $_real;          mkdir $_real;
14          `echo $$ >test/s/mounted.pid`;          `echo $$ >test/s/mounted.pid`;
15            diag "mounting $_loop to $_point";
16          exec("perl -Iblib/lib -Iblib/arch $_loop $_point");          exec("perl -Iblib/lib -Iblib/arch $_loop $_point");
17          exit(1);          exit(1);
18  }  }
19  select(undef, undef, undef, 0.5);  
20  my ($success) = `cat /proc/mounts` =~ / $_point /;  my ($success, $count) = (0,0);
21    while ($count++ < 50 && !$success) {
22            select(undef, undef, undef, 0.1);
23               ($success) = `mount` =~ / $_point /;
24    }
25    diag "Mounted in ", $count/10, " secs";
26    
27  ok($success,"mount succeeded");  ok($success,"mount succeeded");
28  system("rm -rf $_real");  system("rm -rf $_real");
29  unless($success) {  unless($success) {
Legend:
Removed from v.21  
changed lines
  Added in v.111
  ViewVC Help
Powered by ViewVC 1.1.26