projects
/
perl-fuse.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
54f1ee6
)
changes from Nick Waterman <laptop@noseynick.com> to fix race condition in
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 30 Jul 2006 17:33:14 +0000
(17:33 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 30 Jul 2006 17:33:14 +0000
(17:33 +0000)
test/s/mount.t
git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/fuse/perl-llin@100
6e4b0b00
-1209-0410-87b2-
b275959b5705
test/s/mount.t
patch
|
blob
|
history
diff --git
a/test/s/mount.t
b/test/s/mount.t
index
da93d1d
..
affd658
100644
(file)
--- a/
test/s/mount.t
+++ b/
test/s/mount.t
@@
-16,8
+16,14
@@
if(!fork()) {
exec("perl -Iblib/lib -Iblib/arch $_loop $_point");
exit(1);
}
-select(undef, undef, undef, 0.5);
-my ($success) = `cat /proc/mounts` =~ / $_point /;
+
+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) {