[svn:parrot] rev 7879 - trunk/languages/tcl/t

[coke]

Author: coke
Date: Mon Apr 18 22:20:16 2005
New Revision: 7879

Modified:
   trunk/languages/tcl/t/tcl_backslash.t
Log:
\1 is an octal escape, not a normal character



Modified: trunk/languages/tcl/t/tcl_backslash.t
==============================================================================
--- trunk/languages/tcl/t/tcl_backslash.t       (original)
+++ trunk/languages/tcl/t/tcl_backslash.t       Mon Apr 18 22:20:16 2005
@@ -52,9 +52,9 @@
 language_output_is("tcl",$tcl,$expected,"backslash");
 
 $tcl = <<'EOTCL';
-puts -nonewline "\1"
+puts -nonewline "\q"
 EOTCL
-$expected = "1";
+$expected = "q";
 language_output_is("tcl",$tcl,$expected,"normal character");
 
 $tcl = <<'EOTCL';