Author: coke
Date: Wed Aug 10 14:21:28 2005
New Revision: 8910
Modified:
trunk/languages/tcl/t/cmd_string.t
Log:
tcl: thanks to PGE, pass a few more tests.
Modified: trunk/languages/tcl/t/cmd_string.t
==============================================================================
--- trunk/languages/tcl/t/cmd_string.t (original)
+++ trunk/languages/tcl/t/cmd_string.t Wed Aug 10 14:21:28 2005
@@ -2,7 +2,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 44;
+use Parrot::Test tests => 46;
use Test::More;
use vars qw($TODO);
@@ -221,21 +221,29 @@ TCL
1
OUT
-TODO: {
-local $TODO = "PGE Globbing doesn't do backslash escaping [#36820]";
-
-language_output_is("tcl",<<TCL,<<OUT,"string match \[");
+language_output_is("tcl",<<'TCL',<<OUT,"string match \[");
puts [string match {\[} {[}]
TCL
1
OUT
-language_output_is("tcl",<<TCL,<<OUT,"string match \]");
+language_output_is("tcl",<<'TCL',<<OUT,"string match \]");
puts [string match {\]} {]}]
TCL
1
OUT
-}
+
+language_output_is("tcl",<<'TCL',<<OUT,"string match \*");
+ puts [string match {\*} {*}]
+TCL
+1
+OUT
+
+language_output_is("tcl",<<'TCL',<<OUT,"string match \?");
+ puts [string match {\?} {?}]
+TCL
+1
+OUT
language_output_is("tcl",<<TCL,<<OUT,"string repeat: simple");
puts [string repeat a 5]
