[svn:parrot] r45305 - trunk/t/compilers/imcc/syn

coke at svn.parrot.org coke at svn.parrot.org
Tue Mar 30 02:33:10 UTC 2010


Author: coke
Date: Tue Mar 30 02:33:09 2010
New Revision: 45305
URL: https://trac.parrot.org/parrot/changeset/45305

Log:
add a test for TT #641

jonathand++

Modified:
   trunk/t/compilers/imcc/syn/regressions.t

Modified: trunk/t/compilers/imcc/syn/regressions.t
==============================================================================
--- trunk/t/compilers/imcc/syn/regressions.t	Tue Mar 30 02:12:02 2010	(r45304)
+++ trunk/t/compilers/imcc/syn/regressions.t	Tue Mar 30 02:33:09 2010	(r45305)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 20;
+use Parrot::Test tests => 21;
 
 pir_error_output_like( <<'CODE', <<'OUT', 'invalid get_results syntax');
 .sub main :main
@@ -228,6 +228,14 @@
 CODE
 OUT
 
+pir_error_output_like( <<'CODE', <<'OUT', 'over long keys should not segfault (TT #641)');
+.sub main
+ $P0 = new [0;0;0;0;0;0;0;0;0;0;0;0] # more than KEYLEN.
+.end
+CODE
+/key too complex/
+OUT
+
 # This test probably belongs in subflags.t
 # The test inspired by TT #744, even though it presents differently.
 {


More information about the parrot-commits mailing list