gnu/usr.bin/perl/ext/FileCache/t/02maxopen.t


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

#!./perl

use FileCache maxopen => 2;
our @files;
BEGIN { @files = map { "max_$_" } 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 =~ /^max_(?:foo|bar)$/);
    next unless fileno($path);
    print $path "$path 2\n";
    close($path);
    open($path, '<', $path);
    <$path>;
    push @cat, <$path>;
    close($path);
  }
  ok( grep(/^max_(?:baz|quux) 2$/, @cat) == 2 );
}