2 use FileCache maxopen=>2;
5 @files = qw(foo bar baz quux Foo'Bar);
8 #For tests within the perl distribution
9 @INC = '../lib' if -d '../lib';
18 {# Test 3: that we open for append on second viewing
20 for my $path ( @files ){
22 print $path "$path 3\n";
24 for my $path ( @files ){
26 print $path "$path 33\n";
28 for my $path ( @files ){
29 open($path, '<', $path);
30 push @cat, do{ local $/; <$path>};
33 print 'not ' unless scalar grep(/\b3$/m, @cat) == scalar @files;
36 for my $path ( @files ){
38 print $path "$path 333\n";
40 for my $path ( @files ){
41 open($path, '<', $path);
42 push @cat, do{ local $/; <$path>};
45 print 'not ' unless scalar grep(/\b33$/m, @cat) == scalar @files;