selectsaver.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
print "1..3\n";
use SelectSaver;
print "ok 1\n";
{
print "foo\n";
}
# Get data written to file
unlink "foo-$$";
print "ok 3\n";