[svn:parrot] r8794 - trunk/languages/tcl/t

[coke]

Author: coke
Date: Wed Aug  3 14:28:58 2005
New Revision: 8794

Modified:
   trunk/languages/tcl/t/tcl_backslash.t
Log:
\xfoo != \x{foo} - test the right thing, live with the warnings.



Modified: trunk/languages/tcl/t/tcl_backslash.t
==============================================================================
--- trunk/languages/tcl/t/tcl_backslash.t       (original)
+++ trunk/languages/tcl/t/tcl_backslash.t       Wed Aug  3 14:28:58 2005
@@ -217,28 +217,28 @@ language_output_is("tcl",<<'TCL',<<OUT,"
   set a \u666
   puts $a
 TCL
-\x666
+\x{666}
 OUT
 
 language_output_is("tcl",<<'TCL',<<OUT,"unicode three chars, extra");
   set a \u666q
   puts $a
 TCL
-\x666q
+\x{666}q
 OUT
 
 language_output_is("tcl",<<'TCL',<<OUT,"unicode four chars");
   set a \u6666
   puts $a
 TCL
-\x6666
+\x{6666}
 OUT
 
 language_output_is("tcl",<<'TCL',<<OUT,"unicode four chars, extra");
   set a \u6666q
   puts $a
 TCL
-\x6666q
+\x{6666}q
 OUT
 
 }