1#!./perl
2
3use FileCache maxopen => 2;
4our @files;
5BEGIN { @files = qw(foo bar baz quux) }
6END { 1 while unlink @files }
7
8use Test::More tests => 5;
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}
29