This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "[PATCH] Cleanup output from t/io/defout.t RT#78572"
[perl5.git] / t / io / defout.t
CommitLineData
099be4f1
DM
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
9BEGIN {
10 chdir 't';
11 @INC = '../lib';
12 require './test.pl';
13}
14
8ff33955
FC
15plan tests => 16;
16
099be4f1
DM
17
18my $stderr = *STDERR;
19select($stderr);
20$stderr = 1; # whoops, PL_defoutgv no longer a GV!
2acc3314 21# XXX It is a GV as of 5.13.7. Is this test file needed any more?
099be4f1
DM
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
2acc3314
FC
26ok print(""), 'print';
27ok select(), 'select';
8ff33955 28$a = 'fooo';
099be4f1
DM
29format STDERR =
30#@<<
8ff33955 31$a;
099be4f1 32.
8ff33955 33ok ! write(), 'write';
099be4f1 34
2acc3314
FC
35ok($^, '$^');
36ok($~, '$~');
37ok($=, '$=');
38ok($-, '$-');
39is($%, 0, '$%');
099be4f1
DM
40is($|, 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';
2acc3314 47ok close(), 'close';
099be4f1 48