Author: coke
Date: Tue Jul 22 12:00:49 2008
New Revision: 29682
Added:
trunk/t/compilers/imcc/syn/hll.t (contents, props changed)
Modified:
trunk/MANIFEST
Log:
[HLL] RT#56958 - add a test to avoid regression.
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Tue Jul 22 12:00:49 2008
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Tue Jul 22 15:34:40 2008 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Tue Jul 22 18:07:34 2008 UT
#
# See tools/dev/install_files.pl for documentation on the
# format of this file.
@@ -3233,6 +3233,7 @@
t/compilers/imcc/syn/errors.t []
t/compilers/imcc/syn/eval.t []
t/compilers/imcc/syn/file.t []
+t/compilers/imcc/syn/hll.t []
t/compilers/imcc/syn/keyed.t []
t/compilers/imcc/syn/labels.t []
t/compilers/imcc/syn/macro.t []
Added: trunk/t/compilers/imcc/syn/hll.t
==============================================================================
--- (empty file)
+++ trunk/t/compilers/imcc/syn/hll.t Tue Jul 22 12:00:49 2008
@@ -0,0 +1,33 @@
+#!perl
+# Copyright (C) 2008, The Perl Foundation.
+# $Id$
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+
+use Test::More;
+use Parrot::Test tests => 1;
+
+pir_output_is( <<'CODE', <<'OUT', ".param :slurpy (using PMC)" );
+
+.HLL 'misc', ''
+.HLL_map 'ResizablePMCArray', 'ResizableStringArray'
+
+.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
+ResizableStringArray
+OUT
