ext/FileCache/t/02maxopen.t

   1 #!./perl
   2
   3 use FileCache maxopen => 2;
   4 our @files;
   5 BEGIN { @files = map { "max_$_" } qw(foo bar baz quux) }
   6 END { 1 while unlink @files }
   7
   8 use 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 =~ /^max_(?: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(/^max_(?:baz|quux) 2$/, @cat) == 2 );
  28 }