[svn:parrot] r9374 - trunk/imcc/t/syn

[particle]

Author: particle
Date: Thu Oct  6 10:39:51 2005
New Revision: 9374

Modified:
   trunk/imcc/t/syn/namespace.t
Log:
test unicode namespaces

Modified: trunk/imcc/t/syn/namespace.t
==============================================================================
--- trunk/imcc/t/syn/namespace.t        (original)
+++ trunk/imcc/t/syn/namespace.t        Thu Oct  6 10:39:51 2005
@@ -3,7 +3,7 @@
 # $Id$
 
 use strict;
-use Parrot::Test tests => 3;
+use Parrot::Test;
 
 ##############################
 pir_output_is(<<'CODE', <<'OUT', "namespace 1");
@@ -113,3 +113,25 @@ CODE
 20
 OUT
 
+
+
+pir_output_is(<<'CODE', <<'OUT', "rejects unicode namespaces");
+.namespace [ "Fran�ois" ]
+
+.sub '__init'
+       print 'unicode namespaces are fun'
+.end
+
+.namespace [ "" ]
+
+.sub 'main' :main
+       $P0 = find_global 'Fran�ois', '__init'
+       $P0()
+.end
+CODE
+Malformed string
+OUT
+
+
+## remember to change the number of tests!
+BEGIN { plan tests => 4; }