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";