diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-05-30 21:52:28 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-31 05:37:10 +0000 |
| commit | 31869a7926d2c97f2a8de68f2374ea5aa42dd78f (patch) | |
| tree | c4173b5cb57cd96f68e3456e3057b860c2afa6ba /t/op/write.t | |
| parent | 91707c8168970b176176e6ddb3c00060363fecc1 (diff) | |
| download | perl-31869a7926d2c97f2a8de68f2374ea5aa42dd78f.tar.gz | |
Re: [perl #22372] [PATCH] sv_chop() broken
Message-ID: <20030530155228.GA872@ratsnest.hole>
p4raw-id: //depot/perl@19645
Diffstat (limited to 't/op/write.t')
| -rwxr-xr-x | t/op/write.t | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/t/op/write.t b/t/op/write.t index 6af6fcbb95..c2d7755084 100755 --- a/t/op/write.t +++ b/t/op/write.t @@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; } -print "1..47\n"; +print "1..48\n"; my $CAT = ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') ? 'type' : ($^O eq 'MacOS') ? 'catenate' @@ -271,7 +271,19 @@ if (`$CAT Op_write.tmp` eq $right) else { print "not ok 11\n"; } -# 12..47: scary format testing from Merijn H. Brand +{ + my $el; + format STDOUT = +ok ^<<<<<<<<<<<<<<~~ # sv_chop() naze +$el +. + my %hash = (12 => 3); + for $el (keys %hash) { + write; + } +} + +# 13..48: scary format testing from Merijn H. Brand if ($^O eq 'VMS' || $^O eq 'MSWin32' || $^O eq 'dos' || $^O eq 'MacOS' || ($^O eq 'os2' and not eval '$OS2::can_fork')) { @@ -281,7 +293,7 @@ if ($^O eq 'VMS' || $^O eq 'MSWin32' || $^O eq 'dos' || $^O eq 'MacOS' || use strict; # Amazed that this hackery can be made strict ... -my $test = 12; +my $test = 13; # Just a complete test for format, including top-, left- and bottom marging # and format detection through glob entries |