fix prose from previous lib/bytes.pm doc update
[p5sagit/p5-mst-13.2.git] / lib / SelectSaver.t
CommitLineData
1a3850a5 1#!./perl
2
3BEGIN {
4 chdir 't' if -d 't';
20822f61 5 @INC = '../lib';
1a3850a5 6}
7
8print "1..3\n";
9
10use SelectSaver;
11
12open(FOO, ">foo-$$") || die;
13
14print "ok 1\n";
15{
16 my $saver = new SelectSaver(FOO);
17 print "foo\n";
18}
19
20# Get data written to file
21open(FOO, "foo-$$") || die;
22chomp($foo = <FOO>);
23close FOO;
24unlink "foo-$$";
25
26print "ok 2\n" if $foo eq "foo";
27
28print "ok 3\n";