Author: coke Date: Thu May 5 09:53:12 2005 New Revision: 7988 Modified: trunk/languages/tcl/t/cmd_string.t Log: TODO all PGE-related errors.
Modified: trunk/languages/tcl/t/cmd_string.t ============================================================================== --- trunk/languages/tcl/t/cmd_string.t (original) +++ trunk/languages/tcl/t/cmd_string.t Thu May 5 09:53:12 2005 @@ -162,6 +162,9 @@ $expected = "abcde"; language_output_is("tcl",$tcl,$expected,"range, overextended"); +TODO: { +local $TODO = "New version of PGE\n"; + language_output_is("tcl",<<TCL,<<OUT,"string match * only"); puts [string match * foo] TCL @@ -174,14 +177,11 @@ 1 OUT -TODO: { -local $TODO = "[] doesn't work. PGE issue.\n"; language_output_is("tcl",<<TCL,<<OUT,"string match charset"); puts [string match {a[bc]c} abc] TCL 1 OUT -} language_output_is("tcl",<<TCL,<<OUT,"string match charset, fail"); puts [string match {a[ac]c} abc] @@ -201,31 +201,29 @@ 1 OUT -TODO: { -local $TODO = "Parser error"; -language_output_is("tcl",<<TCL,<<OUT,"string match \["); - puts [string match {\[} {[}] +language_output_is("tcl",<<TCL,<<OUT,"string match case failure"); + puts [string match ABC abc] TCL -1 +0 OUT -language_output_is("tcl",<<TCL,<<OUT,"string match \]"); - puts [string match {\]} {]}] +language_output_is("tcl",<<TCL,<<OUT,"string match nocase"); + puts [string match -nocase ABC abc ] TCL 1 OUT } -language_output_is("tcl",<<TCL,<<OUT,"string match case failure"); - puts [string match ABC abc] +TODO: { +local $TODO = "Parser error"; +language_output_is("tcl",<<TCL,<<OUT,"string match \["); + puts [string match {\[} {[}] TCL -0 +1 OUT -TODO: { -local $TODO = "-nocase isn't implemented, pending PGE support"; -language_output_is("tcl",<<TCL,<<OUT,"string match nocase"); - puts [string match -nocase ABC abc ] +language_output_is("tcl",<<TCL,<<OUT,"string match \]"); + puts [string match {\]} {]}] TCL 1 OUT