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

coke at svn.parrot.org coke at svn.parrot.org
Tue Oct 27 23:57:38 UTC 2009


Author: coke
Date: Tue Oct 27 23:57:37 2009
New Revision: 42146
URL: https://trac.parrot.org/parrot/changeset/42146

Log:
Ok, this is a perfectly valid test, just not for --run-pbc; so bring it
back, but skip it on run-pbc instead of todo'ing it.

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

Modified: trunk/t/compilers/imcc/syn/hll.t
==============================================================================
--- trunk/t/compilers/imcc/syn/hll.t	Tue Oct 27 23:40:11 2009	(r42145)
+++ trunk/t/compilers/imcc/syn/hll.t	Tue Oct 27 23:57:37 2009	(r42146)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 1;
+use Parrot::Test tests => 2;
 
 pir_output_is( <<'CODE', <<'OUT', ".param :slurpy (using PMC)" );
 
@@ -38,3 +38,46 @@
 3
 ResizableStringArray
 OUT
+
+$ENV{TEST_PROG_ARGS} ||= '';
+
+SKIP: {
+
+skip('use of :immediate for this test does not work with --run-pbc', 1)
+  if $ENV{TEST_PROG_ARGS} =~ /--run-pbc/;
+
+pir_output_is( <<'CODE', <<'OUT', ".param :slurpy (using object)" );
+
+.sub setup :anon :immediate
+ $P0 = subclass 'ResizablePMCArray', 'Stack'
+.end
+
+.HLL 'misc'
+.sub anon :anon :init
+  .local pmc interp
+  .local pmc rpa,stack
+  interp = getinterp
+  rpa = get_class 'ResizablePMCArray'
+  stack = get_class 'Stack'
+  interp.'hll_map'(rpa,stack)
+.end
+
+
+.sub main :main
+  elm('a','b','c')
+.end
+
+.sub elm
+  .param pmc args :slurpy
+
+  $I1 = elements args
+  say $I1
+
+  $S0 = typeof args
+  say $S0
+.end
+CODE
+3
+Stack
+OUT
+}


More information about the parrot-commits mailing list