Author: coke
Date: Wed Aug 3 10:34:38 2005
New Revision: 8784
Modified:
trunk/languages/tcl/t/tcl_backslash.t
Log:
two edge cases for hex,unicode tcl interpolation
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 10:34:38 2005
@@ -2,7 +2,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 32;
+use Parrot::Test tests => 34;
use Test::More;
use vars qw($TODO);
@@ -116,6 +116,13 @@ local $TODO = "hex & unicode escapes rec
# XXX Should suppress warnings about wide characters in Test::*... how?
+language_output_is("tcl",<<'TCL',<<OUT,"hex single char, invalid");
+ set a \xq
+ puts $a
+TCL
+xq
+OUT
+
language_output_is("tcl",<<'TCL',<<OUT,"hex single char");
set a \x7
puts $a
@@ -172,6 +179,13 @@ TCL
jq
OUT
+language_output_is("tcl",<<'TCL',<<OUT,"unicode single char, invalid");
+ set a \uq
+ puts $a
+TCL
+xq
+OUT
+
language_output_is("tcl",<<'TCL',<<OUT,"unicode one char");
set a \u7
puts $a
