Change 18170: Move some tests from t/run/fresh_perl.t
Change 18170 by rgs@rgs-home on 2002/11/22 20:49:12
Move some tests from t/run/fresh_perl.t
to the new t/comp/parser.t. The goal being to
get rid of fresh_perl.t at some point.
Affected files ...
//depot/perl/t/comp/parser.t#2 edit
//depot/perl/t/run/fresh_perl.t#19 edit
Differences ...
//depot/perl/t/comp/parser.t#2 (text)
Index: perl/t/comp/parser.t
--- perl/t/comp/parser.t#1~18169~ Thu Nov 21 12:49:36 2002
+++ perl/t/comp/parser.tFri Nov 22 12:49:12 2002
@@ -8,8 +8,42 @@
@INC = '../lib';
}
-print 1..1\n;
+require ./test.pl;
+plan( tests = 9 );
+
+eval '%@x=0;';
+like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' );
+
+# Bug 20010422.005
+eval q{{s//${}/; //}};
+like( $@, qr/syntax error/, 'syntax error, used to dump core' );
+
+# Bug 20010528.007
+eval q/\x{/;
+like( $@, qr/^Missing right brace on \\x/,
+'syntax error in string, used to dump core' );
+
+eval a.b.c.d.e.f;sub;
+like( $@, qr/^Illegal declaration of anonymous subroutine/,
+'found by Markov chain stress testing' );
+
+# Bug 20010831.001
+eval '($a, b) = (1, 2);';
+like( $@, qr/^Can't modify constant item in list assignment/,
+'bareword in list assignment' );
+
+eval 'tie FOO, Foo;';
+like( $@, qr/^Can't modify constant item in tie /,
+'tying a bareword causes a segfault in 5.6.1' );
+
+eval 'undef foo';
+like( $@, qr/^Can't modify constant item in undef operator /,
+'undefing constant causes a segfault in 5.6.1 [ID 20010906.019]' );
+
+eval 'read($bla, FILE, 1);';
+like( $@, qr/^Can't modify constant item in read /,
+'read($var, FILE, 1) segfaults on 5.6.1 [ID 20011025.054]' );
# This used to dump core (bug #17920)
eval q{ sub { sub { f1(f2();); my($a,$b,$c) } } };
-print $@ $@ =~ /error/ ? ok 1\n : not ok 1\n;
+like( $@, qr/error/, 'lexical block discarded by yacc' );
//depot/perl/t/run/fresh_perl.t#19 (text)
Index: perl/t/run/fresh_perl.t
--- perl/t/run/fresh_perl.t#18~18055~ Thu Oct 24 15:34:10 2002
+++ perl/t/run/fresh_perl.t Fri Nov 22 12:49:12 2002
@@ -4,20 +4,9 @@
# Instead, put the test in the appropriate test file and use the
# fresh_perl_is()/fresh_perl_like() functions in t/test.pl.
-# This is for tests that will normally cause segfaults, and other nasty
+# This is for tests that used to abnormally cause segfaults, and other nasty
# errors that might kill the interpreter and for some reason you can't
# use an eval().
-#
-# New tests are added to the bottom. For example.
-#
-# perlbug ID 20020831.001
-# ($a, b) = (1,2)
-# EXPECT
-# Can't modify constant item in list assignment - at line 1
-#
-# to test that the code ($a, b) = (1,2) causes the appropriate syntax
-# error, rather than just segfaulting as reported in perlbug ID
-# 20020831.001
BEGIN {
chdir 't' if -d 't';
@@ -114,11 +103,6 @@
EXPECT
12345
-%@x=0;
-EXPECT
-Can't modify hash dereference in repeat (x) at - line 1, near 0;
-Execution of - aborted due to compilation errors.
-
$_=foo;
printf(STDOUT %s\n, $_);
EXPECT
@@ -688,18 +672,6 @@
EXPECT
ok
-# Bug 20010422.005
-{s//${}/; //}
-EXPECT
-syntax error at - line 2, near ${}
-Execution of - aborted due to compilation errors.
-
-# Bug 20010528.007
-\x{
-EXPECT
-Missing right brace on \x{} at - line 2, within string
-Execution of - aborted due to compilation errors.
-
my $foo = Bar-new();
my @dst;
END {
@@ -717,26 +689,6 @@
}
EXPECT
Bar=ARRAY(0x...)
-
- found by Markov chain stress testing
-eval a.b.c.d.e.f;sub
-EXPECT
-
- perlbug ID 20010831.001
-($a, b) = (1, 2);
-EXPECT
-Can't modify constant item in list assignment at - line 1, near );
-Execution of - aborted due to compilation errors.
- tying a bareword causes a segfault in 5.6.1
-tie FOO, Foo;
-EXPECT
-Can't modify constant item in tie at - line 1, near Foo;
-Execution of - aborted due to compilation errors.
- undefing constant causes a segfault in 5.6.1 [ID 20010906.019]
-undef foo;
-EXPECT
-Can't modify constant item in undef operator at - line 1, near foo;
-Execution of - aborted due to compilation errors.
(?{...}) compilation bounces on PL_rs
-0
{
@@ -746,11 +698,6 @@
BEGIN { print ok\n }
EXPECT
ok
- read($var, FILE, 1) segfaults on 5.6.1 [ID 20011025.054]
-read($bla, FILE, 1);
-EXPECT
-Can't modify constant item in read at - line 1, near 1)
-Execution of - aborted due to compilation errors.
scalar ref to file test operator segfaults on 5.6.1 [ID 20011127.155]
# This only happens if the filename is 11 characters or less.
$foo = \-f blah;
End of Patch.
Change 18172: [PATCH] Historic version labels
Change 18172 by rgs@rgs-home on 2002/11/22 21:44:09 Subject: [PATCH] Historic version labels From: [EMAIL PROTECTED] (Andreas J. Koenig) Date: Fri, 22 Nov 2002 14:39:41 +0100 Message-ID: [EMAIL PROTECTED] Affected files ... //depot/perl/Changes5.005#7 edit //depot/perl/Changes5.6#4 edit Differences ... //depot/perl/Changes5.005#7 (text) Index: perl/Changes5.005 --- perl/Changes5.005#6~3477~ Tue May 25 03:43:48 1999 +++ perl/Changes5.005 Fri Nov 22 13:44:09 2002 @@ -10105,6 +10105,11 @@ Files: t/op/ipcmsg.t Branch: maint-5.004/perl ! t/op/ipcmsg.t + + +Version 5.004_65 + + [ 988] By: mbeattie on 1998/05/15 16:28:08 Log: Patch from Sarathy to fix up win32 integration. Patch from Jarkko //depot/perl/Changes5.6#4 (text) Index: perl/Changes5.6 --- perl/Changes5.6#3~7475~ Sat Oct 28 16:57:25 2000 +++ perl/Changes5.6 Fri Nov 22 13:44:09 2002 @@ -23213,6 +23213,11 @@ Skip NIS includes. Branch: cfgperl ! t/op/pwent.t + + +Version 5.005_54 + + [ 2430] By: gsar on 1998/12/01 12:12:50 Log: 5.005_54, as released @@ -23279,11 +23284,6 @@ Log: Undo #2395, seems more like a problem in netbsd-current. Branch: cfgperl ! util.c - - -Version 5.005_54 - - [ 2414] By: gsar on 1998/11/30 02:23:55 Log: more JPL tweaks End of Patch.
Change 18173: Integrate
Change 18173 by jhi@lyta on 2002/11/23 02:02:33 Integrate [ 18135] Subject: [PATCH] perlopentut and PerlIO documentation From: Slaven Rezic [EMAIL PROTECTED] Date: 08 Nov 2002 22:22:19 +0100 Message-ID: [EMAIL PROTECTED] [ 18136] Subject: t/run/runenv.t bug From: Salvador Fandiño [EMAIL PROTECTED] Date: Fri, 8 Nov 2002 08:07:13 -0800 (PST) Message-ID: [EMAIL PROTECTED] [ 18137] Subject: [PATCH] warning fix in SYNOPSIS example of Term::ReadLine pod From: Slaven Rezic [EMAIL PROTECTED] Date: Sat, 9 Nov 2002 22:31:31 +0100 (CET) Message-Id: [EMAIL PROTECTED] [ 18139] Date: Tue, 12 Nov 2002 16:49:22 +0200 From: Jarkko Hietaniemi [EMAIL PROTECTED] Subject: [PATCH] Tru64 osvers Message-ID: [EMAIL PROTECTED] [ 18141] repair 18139 (missing awk command) [ 18147] Subject: [PATCH] Typo in perl58delta From: [EMAIL PROTECTED] (Andreas J. Koenig) Date: Sat, 16 Nov 2002 16:29:14 +0100 Message-ID: [EMAIL PROTECTED] [ 18148] New B::Lint option, bare-subs, that checks for implicitely quoted barewords that are also subroutines, from Ian Phillipps [EMAIL PROTECTED]. Message-ID: [EMAIL PROTECTED] With a few tweaks to the implementation and tests. [ 18149] New B::Lint option, bare-subs, that checks for implicitely quoted barewords that are also subroutines, from Ian Phillipps [EMAIL PROTECTED]. Message-ID: [EMAIL PROTECTED] With a few tweaks to the implementation and tests. (previous change was empty) [ 18150] Subject: [PATCH] optional code for debugging leaking scalars From: Dave Mitchell [EMAIL PROTECTED] Date: Thu, 14 Nov 2002 23:03:00 + Message-ID: [EMAIL PROTECTED] [ 18151] Document PRIVSHIFT. Subject: [PATCH] two small doc patches From: [EMAIL PROTECTED] (Yitzchak Scott-Thoennes) Date: Thu, 14 Nov 2002 15:07:35 -0800 Message-ID: [EMAIL PROTECTED] [ 18152] Subject: Re: [PATCH] optional code for debugging leaking scalars From: Dave Mitchell [EMAIL PROTECTED] Date: Sat, 16 Nov 2002 22:18:23 + Message-ID: [EMAIL PROTECTED] Documentation for change #18150. [ 18154] Correction to change #18152, by Dave Mitchell. [ 18158] Remove duplicate my() declaration giving warnings from change #18105. [ 18159] Subject: Re: [perl #18113] UNIVERSAL::AUTOLOAD doesn't work if the stash doesn't exist yet From: Gurusamy Sarathy [EMAIL PROTECTED] Date: Wed, 30 Oct 2002 20:58:15 -0800 Message-Id: [EMAIL PROTECTED] Date: Wed, 30 Oct 2002 21:56:22 -0800 Message-Id: [EMAIL PROTECTED] Date: Wed, 30 Oct 2002 22:55:30 -0800 Message-Id: [EMAIL PROTECTED] [ 18160] Subject: [PATCH] regen_headers outside Makefile (was Re: [PATCH] embed.pl doc) From: Nicholas Clark [EMAIL PROTECTED] Date: Tue, 29 Oct 2002 23:00:05 + Message-ID: [EMAIL PROTECTED] [ 18161] Subject: [PATCH Win32] Document wperl.exe From: Brent Dax [EMAIL PROTECTED] Date: Fri, 15 Nov 2002 23:02:01 -0800 Message-ID: 034e01c28d3e$0fed1680$6501a8c0@deepblue [ 18162] Subject: [PATCH ext/threads/threads.xs] trivial typo From: Dave Mitchell [EMAIL PROTECTED] Date: Thu, 14 Nov 2002 22:55:39 + Message-ID: [EMAIL PROTECTED] [ 18163] Subject: Re: [PATCH] AutoLoader gives wrong message From: Peter Scott [EMAIL PROTECTED] Date: Thu, 07 Nov 2002 19:04:27 -0800 Message-id: [EMAIL PROTECTED] With a tweak to the END cleanup block to fully remove the temporary test directory [ 18164] t/io/crlf.t failed with miniperl. [ 18165] Subject: Re: [PATCH] UTF-8 enabling via locale (was: Re: Redhat 8 issue?) From: Jarkko Hietaniemi [EMAIL PROTECTED] Date: Sun, 3 Nov 2002 17:50:08 +0200 Message-ID: [EMAIL PROTECTED] [ 18166] Fix perl bug #17920 : a case of parser coredump. The fix is to disable Perl_block_start and Perl_block_end when the yacc parser has encountered errors. This prevents corruption of the internal stack, at the expense of correctness, but this doesn't matter as the code is unparseable anyway. [ 18168] Subject: [PATCH] hires sleeping wants libs Date: Wed, 20 Nov 2002 17:18:31 +0200 From:
