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

[coke at svn.parrot.org]

Author: coke
Date: Sat May  9 17:09:14 2009
New Revision: 38651
URL: https://trac.parrot.org/parrot/changeset/38651

Log:
Add a test for TT #654

Courtesy pmichaud++

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

Modified: trunk/t/compilers/imcc/syn/regressions.t
==============================================================================
--- trunk/t/compilers/imcc/syn/regressions.t	Sat May  9 16:54:04 2009	(r38650)
+++ trunk/t/compilers/imcc/syn/regressions.t	Sat May  9 17:09:14 2009	(r38651)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 10;
+use Parrot::Test tests => 11;
 
 pir_error_output_like( <<'CODE', <<'OUT', 'invalid get_results syntax');
 .sub main :main
@@ -138,6 +138,24 @@
 hello world
 OUT
 
+TODO: {
+  local $TODO = 'TT #654';
+pir_output_is( <<'CODE', <<'OUT', 'unicode named identifiers (TT #654)');
+ .sub 'main' :main
+    'foo'(1 :named(unicode:"\x{e4}"))
+ .end
+
+ # Perl 6:  sub foo(:$ä) { say "ok $ä"; }
+ .sub 'foo'
+    .param int x :named(unicode:"\x{e4}")
+    print "ok "
+    say x
+ .end
+CODE
+1
+OUT
+}
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4