Author: coke
Date: Wed Aug 3 14:03:47 2005
New Revision: 8792
Modified:
trunk/languages/tcl/t/tcl_backslash.t
trunk/t/op/stringu.t
Log:
Specify unicode values in the tests in a way that doesn't cause
Test::* to squawk.
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:03:47 2005
@@ -209,9 +209,6 @@ TCL
jq
OUT
-# XXX Should suppress warnings about wide characters in Test::*... how?
-binmode *STDOUT, ':utf8';
-
TODO: {
local $TODO = "These four tests tickle a seg-fault in parrot: [#36794]";
@@ -220,28 +217,28 @@ language_output_is("tcl",<<'TCL',<<OUT,"
set a \u666
puts $a
TCL
-\x{666}
+\x666
OUT
language_output_is("tcl",<<'TCL',<<OUT,"unicode three chars, extra");
set a \u666q
puts $a
TCL
-\x{666}q
+\x666q
OUT
language_output_is("tcl",<<'TCL',<<OUT,"unicode four chars");
set a \u6666
puts $a
TCL
-\x{6666}
+\x6666
OUT
language_output_is("tcl",<<'TCL',<<OUT,"unicode four chars, extra");
set a \u6666q
puts $a
TCL
-\x{6666}q
+\x6666q
OUT
}
Modified: trunk/t/op/stringu.t
==============================================================================
--- trunk/t/op/stringu.t (original)
+++ trunk/t/op/stringu.t Wed Aug 3 14:03:47 2005
@@ -212,7 +212,7 @@ output_is( <<'CODE', <<OUTPUT, "substr w
chr S1, I0
substr S0, 0, 5, S1
CODE
-\x{666}
+\x666
OUTPUT
}
