diff options
Diffstat (limited to 'lang/tclX/files/tcl85-test-patch')
| -rw-r--r-- | lang/tclX/files/tcl85-test-patch | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lang/tclX/files/tcl85-test-patch b/lang/tclX/files/tcl85-test-patch index 9d7a3d2bcfe8..e647f20f0231 100644 --- a/lang/tclX/files/tcl85-test-patch +++ b/lang/tclX/files/tcl85-test-patch @@ -56,20 +56,22 @@ Tcl-versions, should still do that... ERRORCODE] --- tests/string.test 2002-09-25 20:19:02.000000000 -0400 +++ tests/string.test 2009-10-13 18:25:03.000000000 -0400 -@@ -47,9 +47,19 @@ +@@ -47,9 +47,21 @@ } 0 {E} +switch $tcl_version { +8.3 { + set anticipate "syntax error in expression \"4x-3\"" +} 8.4 { -+ puts stderr "tcl_version is $tcl_version" + set anticipate "syntax error in expression \"4x-3\": extra tokens at end of expression" -+} default { ++} 8.5 { + set anticipate {invalid bareword "x" +in expression "4_@_x-3"; +should be "$x" or "{x}" or "x(...)" or ...} -+}} ++} default { ++ set anticipate {invalid bareword "4x" ++in expression "4x-3"; ++should be "$4x" or "{4x}" or "4x(...)" or ...} + Test string-1.7 {cindex tests} { - cindex ABCDEFG lenx-3 |