diff options
author | mi <mi@FreeBSD.org> | 2014-08-02 09:00:04 +0800 |
---|---|---|
committer | mi <mi@FreeBSD.org> | 2014-08-02 09:00:04 +0800 |
commit | 20273b843e2e32d0c181aeab10d4fc5cfa2f9f9e (patch) | |
tree | b7df2884a84871c1e21b0f08fcb5be5ebd11f01e /lang/tclX | |
parent | f12d8aa9f5d0485496f594d65225be3f84ef3e22 (diff) | |
download | freebsd-ports-gnome-20273b843e2e32d0c181aeab10d4fc5cfa2f9f9e.tar.gz freebsd-ports-gnome-20273b843e2e32d0c181aeab10d4fc5cfa2f9f9e.tar.zst freebsd-ports-gnome-20273b843e2e32d0c181aeab10d4fc5cfa2f9f9e.zip |
Fix the string-test to match today's 8.5 error-messages.
Diffstat (limited to 'lang/tclX')
-rw-r--r-- | lang/tclX/files/tcl85-test-patch | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lang/tclX/files/tcl85-test-patch b/lang/tclX/files/tcl85-test-patch index e647f20f0231..cfd07de15ec8 100644 --- a/lang/tclX/files/tcl85-test-patch +++ b/lang/tclX/files/tcl85-test-patch @@ -56,7 +56,7 @@ 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,21 @@ +@@ -47,9 +47,18 @@ } 0 {E} +switch $tcl_version { @@ -64,14 +64,11 @@ Tcl-versions, should still do that... + set anticipate "syntax error in expression \"4x-3\"" +} 8.4 { + set anticipate "syntax error in expression \"4x-3\": extra tokens at end of expression" -+} 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 |