summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-05-17 02:18:53 (GMT)
committerhobbs <hobbs>2001-05-17 02:18:53 (GMT)
commit8ea22a0b6d6fd6d009a1cd86ac8de8d14e1367f3 (patch)
tree7029966159f2ea5c7c4bc3812d638b8dba34c355
parent90c9c56c211f33d783dfd5e332d3e90bfd6abd84 (diff)
downloadtcl-8ea22a0b6d6fd6d009a1cd86ac8de8d14e1367f3.zip
tcl-8ea22a0b6d6fd6d009a1cd86ac8de8d14e1367f3.tar.gz
tcl-8ea22a0b6d6fd6d009a1cd86ac8de8d14e1367f3.tar.bz2
* tests/error.test: updated error-1.3 message to account for
string index being compiled at toplevel.
-rw-r--r--tests/append.test14
-rw-r--r--tests/error.test10
2 files changed, 8 insertions, 16 deletions
diff --git a/tests/append.test b/tests/append.test
index cc0d1b9..a96d977 100644
--- a/tests/append.test
+++ b/tests/append.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: append.test,v 1.5 2000/04/10 17:18:56 ericm Exp $
+# RCS: @(#) $Id: append.test,v 1.6 2001/05/17 02:18:53 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -181,15 +181,3 @@ catch {rename check ""}
# cleanup
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/tests/error.test b/tests/error.test
index e054463..1558341 100644
--- a/tests/error.test
+++ b/tests/error.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: error.test,v 1.7 2000/04/10 17:18:58 ericm Exp $
+# RCS: @(#) $Id: error.test,v 1.8 2001/05/17 02:18:53 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -44,9 +44,13 @@ test error-1.2 {simple errors from commands} {
test error-1.3 {simple errors from commands} {
catch {format [string index]} b
set errorInfo
+ # this used to return '... while executing ...', but
+ # string index is fully compiled as of 8.4a3
} {wrong # args: should be "string index string charIndex"
- while executing
-"string index"}
+ while compiling
+"string index"
+ while compiling
+"format [string index]"}
test error-1.4 {simple errors from commands} {
catch {error glorp} b