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

[coke at svn.parrot.org]

Author: coke
Date: Wed Oct 28 01:19:02 2009
New Revision: 42149
URL: https://trac.parrot.org/parrot/changeset/42149

Log:
add a test for TT #1152

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

Modified: trunk/t/compilers/imcc/syn/pcc.t
==============================================================================
--- trunk/t/compilers/imcc/syn/pcc.t	Wed Oct 28 01:02:57 2009	(r42148)
+++ trunk/t/compilers/imcc/syn/pcc.t	Wed Oct 28 01:19:02 2009	(r42149)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
 use Parrot::Config;
-use Parrot::Test tests => 25;
+use Parrot::Test tests => 26;
 
 ##############################
 # Parrot Calling Conventions
@@ -594,7 +594,7 @@
 1
 OUT
 
-pir_output_is( <<'CODE', <<'OUT', 'escape sequences in sub names, TT #1125' )
+pir_output_is( <<'CODE', <<'OUT', 'escape sequences in sub names, TT #1125' );
 .sub 'main'
     say "xyz:<\" \">"
     .const 'Sub' $P0 = 'foo'
@@ -622,6 +622,21 @@
 xyz:<\>
 OUT
 
+pir_output_is( <<'CODE', <<'OUT', ':named should default to param name', todo=>'TT#1152');
+.sub main
+  $I0 = 'incr'('value'=>3)
+  say $I0
+.end
+
+.sub 'incr'
+  .param int value :named
+  inc value
+  .return(value)
+.end
+CODE
+4
+OUT
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4