diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-04-27 12:32:41 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-04-27 12:32:41 +0000 |
| commit | 13e28e4cdde09b7e9e7692148b86222565bcbf1d (patch) | |
| tree | 221765a6c7544df64f6e995c1d81eed7c9a9b204 /t | |
| parent | d9dac8cda3a8128f09ab4445f683196e1392e4fa (diff) | |
| download | perl-13e28e4cdde09b7e9e7692148b86222565bcbf1d.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@16209
Diffstat (limited to 't')
| -rw-r--r-- | t/japh/abigail.t | 4 | ||||
| -rw-r--r-- | t/lib/warnings/pp_hot | 10 | ||||
| -rw-r--r-- | t/win32/system.t | 6 | ||||
| -rw-r--r-- | t/win32/system_tests (renamed from t/op/system_tests) | 0 |
4 files changed, 15 insertions, 5 deletions
diff --git a/t/japh/abigail.t b/t/japh/abigail.t index 06bba7a0ab..2391073645 100644 --- a/t/japh/abigail.t +++ b/t/japh/abigail.t @@ -223,11 +223,11 @@ plan tests => 130; END {unlink_all $progfile} my @programs = (<< ' --', << ' --'); -#!./perl -- # No trailing newline after the last line! +#!./perl BEGIN{$|=$SIG{__WARN__}=sub{$_=$_[0];y-_- -;print/(.)"$/;seek _,-open(_ ,"+<$0"),2;truncate _,tell _;close _;exec$0}}//rekcaH_lreP_rehtona_tsuJ -- -#!./perl -- # Remove trailing newline! +#!./perl BEGIN{$SIG{__WARN__}=sub{$_=pop;y-_- -;print/".*(.)"/; truncate$0,-1+-s$0;exec$0;}}//rekcaH_lreP_rehtona_tsuJ -- diff --git a/t/lib/warnings/pp_hot b/t/lib/warnings/pp_hot index 11826b9ca2..7df18afb2c 100644 --- a/t/lib/warnings/pp_hot +++ b/t/lib/warnings/pp_hot @@ -105,6 +105,16 @@ print() on closed filehandle STDIN at - line 4. print() on closed filehandle STDIN at - line 6. (Are you trying to call print() on dirhandle STDIN?) ######## +# pp_hot.c [pp_print] +# [ID 20020425.012] from Dave Steiner <steiner@bakerst.rutgers.edu> +# This goes segv on 5.7.3 +use warnings 'closed' ; +my $fh = *STDOUT{IO}; +close STDOUT or die "Can't close STDOUT"; +print $fh "Shouldn't print anything, but shouldn't SEGV either\n"; +EXPECT +print() on closed filehandle at - line 7. +######## # pp_hot.c [pp_rv2av] use warnings 'uninitialized' ; my $a = undef ; diff --git a/t/win32/system.t b/t/win32/system.t index 5384d7c279..c08fb13e04 100644 --- a/t/win32/system.t +++ b/t/win32/system.t @@ -96,7 +96,7 @@ chdir($testdir); END { chdir($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir"; } -if (open(my $EIN, "$cwd/op/${exename}_exe.uu")) { +if (open(my $EIN, "$cwd/win32/${exename}_exe.uu")) { print "# Unpacking $exename.exe\n"; my $e; { @@ -142,8 +142,8 @@ unless (-x "$testdir/$exename.exe") { exit(0); } -open my $T, "$^X -I../lib -w op/system_tests |" - or die "Can't spawn op/system_tests: $!"; +open my $T, "$^X -I../lib -w win32/system_tests |" + or die "Can't spawn win32/system_tests: $!"; my $expect; my $comment = ""; my $test = 0; diff --git a/t/op/system_tests b/t/win32/system_tests index f73745ae8f..f73745ae8f 100644 --- a/t/op/system_tests +++ b/t/win32/system_tests |