https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 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"; |