[perl5.git] / t / lib / filecache.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    unshift @INC, '../lib';
}

print "1..1\n";

use FileCache;

# This is really not a complete test as I don't bother to open enough
# files to make real swapping of open filedescriptor happen.

$path = "foo";
cacheout $path;

print $path "\n";

close $path;

print "not " unless -f $path;
print "ok 1\n";

unlink $path;
Commit	Line	Data
1a3850a5 GA	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
93430cb4	5	unshift @INC, '../lib';
1a3850a5 GA	6	}
	7
	8	print "1..1\n";
	9
	10	use FileCache;
	11
	12	# This is really not a complete test as I don't bother to open enough
	13	# files to make real swapping of open filedescriptor happen.
	14
	15	$path = "foo";
	16	cacheout $path;
	17
	18	print $path "\n";
	19
	20	close $path;
	21
	22	print "not " unless -f $path;
	23	print "ok 1\n";
	24
	25	unlink $path;