[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