[perl5.git] / ext / FileCache / t / 05override.t

#!./perl

use FileCache;

END { unlink("Foo_Bar") }

use Test::More tests => 1;

{# Test 5: that close is overridden properly within the caller
     cacheout local $_ = "Foo_Bar";
     print $_ "Hello World\n";
     close($_);
     ok(!fileno($_));
}
Commit	Line	Data
d9268716 S	1	#!./perl
	2
	3	use FileCache;
	4
	5	END { unlink("Foo_Bar") }
	6
	7	use Test::More tests => 1;
	8
	9	{# Test 5: that close is overridden properly within the caller
	10	cacheout local $_ = "Foo_Bar";
	11	print $_ "Hello World\n";
	12	close($_);
	13	ok(!fileno($_));
	14	}