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

[coke at svn.parrot.org]

Author: coke
Date: Wed Apr 22 19:14:46 2009
New Revision: 38273
URL: https://trac.parrot.org/parrot/changeset/38273

Log:
[t] add a test for TT #575

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

Modified: trunk/t/compilers/imcc/syn/regressions.t
==============================================================================
--- trunk/t/compilers/imcc/syn/regressions.t	Wed Apr 22 16:36:57 2009	(r38272)
+++ trunk/t/compilers/imcc/syn/regressions.t	Wed Apr 22 19:14:46 2009	(r38273)
@@ -1,12 +1,12 @@
 #!perl
-# Copyright (C) 2008, Parrot Foundation.
+# Copyright (C) 2008-2009, Parrot Foundation.
 # $Id$
 
 use strict;
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 9;
+use Parrot::Test tests => 10;
 
 pir_error_output_like( <<'CODE', <<'OUT', 'invalid get_results syntax');
 .sub main :main
@@ -126,6 +126,22 @@
 /syntax error/
 OUT
 
+TODO: {
+  local $TODO = "TT #575";
+
+pir_output_is( <<'CODE', <<'OUT', 'unicode lexical identifiers (TT #575)');
+ .sub main :main
+    $P0 = box 'hello world'
+    .lex unicode:"$\u03b2\u03bf\u03bf", $P0
+
+    $P1 = find_lex unicode:"$\u03b2\u03bf\u03bf"
+    say $P1
+ .end
+CODE
+hello world
+OUT
+}
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4