[perl5.git] / lib / SelectSaver.t

#!./perl

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

print "1..3\n";

use SelectSaver;

open(FOO, ">", "foo-$$") || die;

print "ok 1\n";
{
    my $saver = new SelectSaver(FOO);
    print "foo\n";
}

# Get data written to file
open(FOO, "<", "foo-$$") || die;
chomp($foo = <FOO>);
close FOO;
unlink "foo-$$";

print "ok 2\n" if $foo eq "foo";

print "ok 3\n";
Commit	Line	Data
1a3850a5 GA	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
20822f61	5	@INC = '../lib';
1a3850a5 GA	6	}
	7
	8	print "1..3\n";
	9
	10	use SelectSaver;
	11
1ae6ead9	12	open(FOO, ">", "foo-$$") \|\| die;
1a3850a5 GA	13
	14	print "ok 1\n";
	15	{
	16	my $saver = new SelectSaver(FOO);
	17	print "foo\n";
	18	}
	19
	20	# Get data written to file
1ae6ead9	21	open(FOO, "<", "foo-$$") \|\| die;
1a3850a5 GA	22	chomp($foo = <FOO>);
	23	close FOO;
	24	unlink "foo-$$";
	25
	26	print "ok 2\n" if $foo eq "foo";
	27
	28	print "ok 3\n";