/[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 99 by dpavlin, Tue May 23 14:45:53 2006 UTC revision 100 by dpavlin, Sun Jul 30 17:33:14 2006 UTC
# Line 16  if(!fork()) { Line 16  if(!fork()) {
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) = `cat /proc/mounts` =~ / $_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.99  
changed lines
  Added in v.100
  ViewVC Help
Powered by ViewVC 1.1.26