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

[coke at svn.parrot.org]

Author: coke
Date: Tue May 12 17:06:40 2009
New Revision: 38719
URL: https://trac.parrot.org/parrot/changeset/38719

Log:
[t] add a (passing) test for TT #629

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

Modified: trunk/t/compilers/imcc/syn/regressions.t
==============================================================================
--- trunk/t/compilers/imcc/syn/regressions.t	Tue May 12 16:48:28 2009	(r38718)
+++ trunk/t/compilers/imcc/syn/regressions.t	Tue May 12 17:06:40 2009	(r38719)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 13;
+use Parrot::Test tests => 14;
 
 pir_error_output_like( <<'CODE', <<'OUT', 'invalid get_results syntax');
 .sub main :main
@@ -177,6 +177,13 @@
 
 }
 
+pir_error_output_like( <<'CODE', <<'OUT', 'die in immediate, TT#629');
+.sub 'foo' :immediate
+  die 'no'
+.end
+CODE
+/no\ncurrent inst.*:2\)$/
+OUT
 
 # Local Variables:
 #   mode: cperl