t/io/defout.t

   1 #!./perl
   2 #
   3 # tests for default output handle
   4
   5 # DAPM 30/4/10 this area seems to have been undertested. For now, the only
   6 # tests are ensuring things don't crash when PL_defoutgv isn't a GV;
   7 # it probably needs expanding at some point to cover other stuff.
   8
   9 BEGIN {
  10     chdir 't';
  11     @INC = '../lib';
  12     require './test.pl';
  13 }
  14
  15 plan tests => 16;
  16
  17
  18 my $stderr = *STDERR;
  19 select($stderr);
  20 $stderr = 1; # whoops, PL_defoutgv no longer a GV!
  21 # XXX It is a GV as of 5.13.7. Is this test file needed any more?
  22
  23 # note that in the tests below, the return values aren't as important
  24 # as the fact that they don't crash
  25
  26 ok print(""), 'print';
  27 ok select(), 'select';
  28 $a = 'fooo';
  29 format STDERR =
  30 #@<<
  31 $a;
  32 .
  33 ok ! write(), 'write';
  34
  35 ok($^, '$^');
  36 ok($~, '$~');
  37 ok($=, '$=');
  38 ok($-, '$-');
  39 is($%, 0,      '$%');
  40 is($|, 0,      '$|');
  41 $^ = 1; pass '$^ = 1';
  42 $~ = 1; pass '$~ = 1';
  43 $= = 1; pass '$= = 1';
  44 $- = 1; pass '$- = 1';
  45 $% = 1; pass '$% = 1';
  46 $| = 1; pass '$| = 1';
  47 ok close(), 'close';
  48