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

[coke at svn.parrot.org]

Author: coke
Date: Mon Sep 21 03:42:13 2009
New Revision: 41389
URL: https://trac.parrot.org/parrot/changeset/41389

Log:
Add TODO test for TT#1030

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

Modified: trunk/t/compilers/imcc/syn/pcc.t
==============================================================================
--- trunk/t/compilers/imcc/syn/pcc.t	Mon Sep 21 00:54:44 2009	(r41388)
+++ trunk/t/compilers/imcc/syn/pcc.t	Mon Sep 21 03:42:13 2009	(r41389)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
 use Parrot::Config;
-use Parrot::Test tests => 23;
+use Parrot::Test tests => 24;
 
 ##############################
 # Parrot Calling Conventions
@@ -563,6 +563,37 @@
 ok 2 - Unicode method names allowed
 OUT
 
+pir_output_is( <<'CODE', <<'OUT', 'named parameters', todo => 'long version fails, TT# 1030');
+.sub main
+.local pmc foo
+foo = get_global 'foo'
+
+foo('x' => 1, 'y' => 2)
+foo(1 :named('x'), 2 :named('y'))
+
+.begin_call
+.set_arg 1 :named('x')
+.set_arg 2 :named('y')
+.call foo
+.end_call
+.end
+
+.sub foo
+.param int i :named('y')
+.param int j :named('x')
+say i
+say j
+.end
+
+CODE
+2
+1
+2
+1
+2
+1
+OUT
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4