svn commit: r363774 - head/lang/tclX/files

[Mikhail Teterin]

Author: mi
Date: Sat Aug  2 01:00:04 2014
New Revision: 363774
URL: http://svnweb.freebsd.org/changeset/ports/363774
QAT: https://qat.redports.org/buildarchive/r363774/

Log:
  Fix the string-test to match today's 8.5 error-messages.

Modified:
  head/lang/tclX/files/tcl85-test-patch

Modified: head/lang/tclX/files/tcl85-test-patch
==============================================================================
--- head/lang/tclX/files/tcl85-test-patch	Sat Aug  2 00:39:42 2014	(r363773)
+++ head/lang/tclX/files/tcl85-test-patch	Sat Aug  2 01:00:04 2014	(r363774)
@@ -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_ at _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