Author: coke
Date: Thu Dec 29 22:46:18 2005
New Revision: 10782
Modified:
trunk/languages/tcl/t/cmd_lindex.t
trunk/languages/tcl/t/cmd_string.t
Log:
tcl: update some error verbage expectations to tcl's cvs-latest.
Modified: trunk/languages/tcl/t/cmd_lindex.t
==============================================================================
--- trunk/languages/tcl/t/cmd_lindex.t (original)
+++ trunk/languages/tcl/t/cmd_lindex.t Thu Dec 29 22:46:18 2005
@@ -32,7 +32,7 @@ local $TODO = "wrong index types";
language_output_is("tcl",<<'TCL',<<'OUT',"bogus index")
lindex a bogus
TCL
-bad index "bogus": must be integer or end?-integer?
+bad index "bogus": must be integer?[+-]integer? or end?[+-]integer?
OUT
}
Modified: trunk/languages/tcl/t/cmd_string.t
==============================================================================
--- trunk/languages/tcl/t/cmd_string.t (original)
+++ trunk/languages/tcl/t/cmd_string.t Thu Dec 29 22:46:18 2005
@@ -58,7 +58,7 @@ OUT
language_output_is("tcl",<<TCL,<<OUT,"first, index, invalid index");
puts [string first c abcd joe]
TCL
-bad index "joe": must be integer or end?-integer?
+bad index "joe": must be integer?[+-]integer? or end?[+-]integer?
OUT
language_output_is("tcl",<<TCL,<<OUT,"first, not enough args");
@@ -120,7 +120,7 @@ OUT
language_output_is("tcl",<<TCL,<<OUT,"last, index, invalid index");
puts [string last c abcd joe]
TCL
-bad index "joe": must be integer or end?-integer?
+bad index "joe": must be integer?[+-]integer? or end?[+-]integer?
OUT
language_output_is("tcl",<<TCL,<<OUT,"last, not enough args");
@@ -180,7 +180,7 @@ OUT
language_output_is("tcl",<<TCL,<<OUT,"index, float");
puts [string index abcde 1.2]
TCL
-bad index "1.2": must be integer or end?-integer?
+bad index "1.2": must be integer?[+-]integer? or end?[+-]integer?
OUT
language_output_is("tcl",<<TCL,<<OUT,"index, end-float");
@@ -198,7 +198,7 @@ OUT
language_output_is("tcl",<<TCL,<<OUT,"index, bad -end");
puts [string index abcde end-bogus]
TCL
-bad index "end-bogus": must be integer or end?-integer?
+bad index "end-bogus": must be integer?[+-]integer? or end?[+-]integer?
OUT
language_output_is("tcl",<<TCL,<<OUT,"length, too many args");
