mirror of
https://github.com/freebsd/freebsd-src
synced 2024-09-29 13:15:05 +00:00
29 lines
372 B
Perl
Executable file
29 lines
372 B
Perl
Executable file
#!./perl
|
|
|
|
BEGIN {
|
|
chdir 't' if -d 't';
|
|
unshift @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";
|