Longer filenames for while_readdir.t.
authorCraig A. Berry <craigberry@mac.com>
Sat, 18 Feb 2012 21:10:19 +0000 (15:10 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sat, 18 Feb 2012 21:10:19 +0000 (15:10 -0600)
With filenames varying between only one and five characters in
length, it was fairly easy to get two files differing only in
case ('A' and 'a', for example).  Which on non-case-sensitive file
systems could generate a warning at unlink time because it would
unlink 'a' and then check for the existence of 'a' and get true
because 'A' was still there and indistinguishable from 'a'.

So just use longer filenames to make the possibility of collision
vanishingly small.

t/op/while_readdir.t

index 1473dad..63f8d92 100644 (file)
@@ -65,7 +65,7 @@ FILE0
 sub make_some_files {
     for (1..int rand 10) {
        my $name;
-       $name .= $chars[rand $#chars] for 1..int(1 + rand 5);
+       $name .= $chars[rand $#chars] for 1..int(10 + rand 5);
        make_file($name);
     }
 }