1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!./perl
use FileCache maxopen => 2;
use vars qw(@files);
BEGIN { @files = qw(foo bar baz quux) }
END { 1 while unlink @files }
use Test::More tests => 5;
{# Test 2: that we actually adhere to maxopen
for my $path ( @files ){
cacheout $path;
print $path "$path 1\n";
}
my @cat;
for my $path ( @files ){
ok(fileno($path) || $path =~ /^(?:foo|bar)$/);
next unless fileno($path);
print $path "$path 2\n";
close($path);
open($path, $path);
<$path>;
push @cat, <$path>;
close($path);
}
ok( grep(/^(?:baz|quux) 2$/, @cat) == 2 );
}
|
