fix recent Concise tests under PERL_UNICODE=''
[perl.git] / lib / SelectSaver.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6 }
7
8 print "1..3\n";
9
10 use SelectSaver;
11
12 open(FOO, ">foo-$$") || die;
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
21 open(FOO, "foo-$$") || die;
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";