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

[coke at svn.parrot.org]

Author: coke
Date: Tue May 12 16:22:00 2009
New Revision: 38717
URL: https://trac.parrot.org/parrot/changeset/38717

Log:
[t] add regressions for RT #41788

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:02:16 2009	(r38716)
+++ trunk/t/compilers/imcc/syn/regressions.t	Tue May 12 16:22:00 2009	(r38717)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 11;
+use Parrot::Test tests => 13;
 
 pir_error_output_like( <<'CODE', <<'OUT', 'invalid get_results syntax');
 .sub main :main
@@ -153,6 +153,31 @@
 ok 1
 OUT
 
+my $register = "9" x 4096;
+pir_output_is( <<"CODE", <<'OUT', 'long register numbers in PIR (RT #41788)');
+.sub main
+      \$P$register = new 'Integer'
+      \$P$register = 3
+  say \$P$register
+.end
+CODE
+3
+OUT
+
+TODO: {
+    local $TODO = "works in PIR, not PASM";
+
+pasm_output_is( <<"CODE", <<'OUT', 'long register numbers in PASM (RT #41788)');
+      new P$register, 'Integer'
+      assign P$register, 3
+  say P$register
+CODE
+3
+OUT
+
+}
+
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4