blob: 603edebc7f581986bba52cd2cae0a64e00a1c7d5 (
plain)
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
29
30
31
32
33
34
35
36
|
#!./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 );
}
|
