[p5sagit/p5-mst-13.2.git] / lib / FileCache / t / 02maxopen.t

#!./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 );
}
Commit	Line	Data
1673d79e	1	#!./perl
	2	use FileCache maxopen=>2;
	3	use Test;
	4	use vars qw(@files);
	5	BEGIN {
	6	@files = qw(foo bar baz quux);
	7	chdir 't' if -d 't';
	8
	9	#For tests within the perl distribution
	10	@INC = '../lib' if -d '../lib';
	11	END;
	12	plan tests=>5;
	13	}
	14	END{
98a392ec	15	1 while unlink @files;
1673d79e	16	}
	17
	18	{# Test 2: that we actually adhere to maxopen
	19	for my $path ( @files ){
	20	cacheout $path;
	21	print $path "$path 1\n";
	22	}
	23
	24	my @cat;
	25	for my $path ( @files ){
	26	ok(fileno($path) \|\| $path =~ /^(?:foo\|bar)$/);
	27	next unless fileno($path);
	28	print $path "$path 2\n";
	29	close($path);
	30	open($path, $path);
	31	<$path>;
	32	push @cat, <$path>;
	33	close($path);
	34	}
	35	ok( grep(/^(?:baz\|quux) 2$/, @cat) == 2 );
	36	}