#!./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 );
}