diff options
| author | Fifer, Eric <EFifer@sanwaint.com> | 2000-08-21 16:34:49 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-21 15:51:40 +0000 |
| commit | a781f7c3a63b8920b429cbd70eeb2d0df23c2281 (patch) | |
| tree | 65421fc3d58a0f95482a37ceb88afbe0c2a3ead4 /t | |
| parent | b84d4f81fd7f50ce896c753a15a85cba48f9ed80 (diff) | |
| download | perl-a781f7c3a63b8920b429cbd70eeb2d0df23c2281.tar.gz | |
RE: [PATCH perl@6736] t/pragma/warn/9enabled assumes stdout buffered
Message-ID: <779F20BCCE5AD31186A50008C75D9979171786@silldn_mail1.sanwaint.com>
p4raw-id: //depot/perl@6745
Diffstat (limited to 't')
| -rwxr-xr-x | t/pragma/warn/9enabled | 40 |
1 files changed, 22 insertions, 18 deletions
diff --git a/t/pragma/warn/9enabled b/t/pragma/warn/9enabled index 88f85d7999..f5579b2dde 100755 --- a/t/pragma/warn/9enabled +++ b/t/pragma/warn/9enabled @@ -956,6 +956,7 @@ ok3 ######## --FILE-- abc.pm +$| = 1; package abc ; no warnings ; use warnings::register ; @@ -978,13 +979,13 @@ use abc ; use warnings 'abc'; abc::in1() ; EXPECT -my message 1 at - line 3 -my message 2 at - line 3 -my message 3 at - line 3 ok1 ok2 ok3 ok4 +my message 1 at - line 3 +my message 2 at - line 3 +my message 3 at - line 3 ######## --FILE-- def.pm @@ -1006,6 +1007,7 @@ sub in2 { no warnings ; check() } sub in1 { no warnings ; in2() } 1; --FILE-- abc.pm +$| = 1; package abc ; use def ; use warnings 'def'; @@ -1016,19 +1018,20 @@ use abc ; no warnings; abc::in1() ; EXPECT -my message 1 at abc.pm line 4 - abc::in1() called at - line 3 -my message 2 at abc.pm line 4 - abc::in1() called at - line 3 -my message 3 at abc.pm line 4 - abc::in1() called at - line 3 ok1 ok2 ok3 ok4 +my message 1 at abc.pm line 5 + abc::in1() called at - line 3 +my message 2 at abc.pm line 5 + abc::in1() called at - line 3 +my message 3 at abc.pm line 5 + abc::in1() called at - line 3 ######## --FILE-- def.pm +$| = 1; package def ; no warnings ; use warnings::register ; @@ -1063,12 +1066,12 @@ no warnings; use warnings 'abc'; abc::in1() ; EXPECT -my message 1 at - line 4 -my message 3 at - line 4 ok2 ok3 ok4 ok5 +my message 1 at - line 4 +my message 3 at - line 4 ######## --FILE-- def.pm @@ -1116,6 +1119,7 @@ sub in1 } 1; --FILE-- abc.pm +$| = 1; package abc ; use warnings::register ; use def ; @@ -1137,22 +1141,22 @@ print "**\n"; $b = new def ; $b->in1() ; EXPECT -my message 1 at - line 5 -my message 2 at - line 5 -my message 4 at - line 5 -my message 8 at - line 5 -my message 1 at - line 8 -my message 2 at - line 8 -my message 4 at - line 8 ok1 ok2 ok3 ok4 ok5 ok6 +my message 1 at - line 5 +my message 2 at - line 5 +my message 4 at - line 5 +my message 8 at - line 5 ** ok1 ok2 ok3 ok4 ok5 +my message 1 at - line 8 +my message 2 at - line 8 +my message 4 at - line 8 |