From 8ea22a0b6d6fd6d009a1cd86ac8de8d14e1367f3 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Thu, 17 May 2001 02:18:53 +0000
Subject: 	* tests/error.test: updated error-1.3 message to account for 
 string index being compiled at toplevel.

---
 tests/append.test | 14 +-------------
 tests/error.test  | 10 +++++++---
 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
-- 
cgit v0.12