02maxopen.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
use FileCache maxopen=>2;
use Test;
use vars qw(@files);
BEGIN {
@files = qw(foo bar baz quux);
chdir 't' if -d 't';
#For tests within the perl distribution
@INC = '../lib' if -d '../lib';
END;
plan tests=>5;
}
END{
1 while unlink @files;
}
{# 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 );
}