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