* tests/*.test: updated all tests to refer explicitly to thetip_278_20061009

	global variables ::errorInfo, ::errorCode, ::env and
	::tcl_platform: many were relying on the alternative lookup in the
	global namespace, that feature is tested specifically in namespace
	and variable tests.
	The modified testfiles are: apply.test, basic.test, case.test,
	cmdIL.test, cmdMZ.test, compExpr-old.test, error.test, eval.test,
	event.test, expr.test, fileSystem.test, for.test, http.test,
	if.test, incr-old.test, incr.test, interp.test, io.test,
	ioCmd.test, load.test, misc.test, namespace.test, parse.test,
	parseOld.test, pkg.test, proc-old.test, set.test, switch.test,
	tcltest.test, thread.test, var.test, while-old.test, while.test.

1 files changed, 7 insertions, 7 deletions

diff --git a/tests/namespace.test b/tests/namespace.test
index 00f5243..25bdb6f 100644
--- a/tests/namespace.test
+++ b/tests/namespace.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: namespace.test,v 1.56 2006/02/28 15:47:10 dgp Exp $
+# RCS: @(#) $Id: namespace.test,v 1.57 2006/10/09 19:15:45 msofer Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -1008,7 +1008,7 @@ test namespace-25.5 {NamespaceEvalCmd, multiple args} {
     namespace eval test_ns_1 "set" "v"
 } {314159}
 test namespace-25.6 {NamespaceEvalCmd, error in eval'd script} {
-    list [catch {namespace eval test_ns_1 {xxxx}} msg] $msg $errorInfo
+    list [catch {namespace eval test_ns_1 {xxxx}} msg] $msg $::errorInfo
 } {1 {invalid command name "xxxx"} {invalid command name "xxxx"
     while executing
 "xxxx"
@@ -1016,13 +1016,13 @@ test namespace-25.6 {NamespaceEvalCmd, error in eval'd script} {
     invoked from within
 "namespace eval test_ns_1 {xxxx}"}}
 test namespace-25.7 {NamespaceEvalCmd, error in eval'd script} {
-    list [catch {namespace eval test_ns_1 {error foo bar baz}} msg] $msg $errorInfo
+    list [catch {namespace eval test_ns_1 {error foo bar baz}} msg] $msg $::errorInfo
 } {1 foo {bar
     (in namespace eval "::test_ns_1" script line 1)
     invoked from within
 "namespace eval test_ns_1 {error foo bar baz}"}}
 test namespace-25.8 {NamespaceEvalCmd, error in eval'd script} {
-    list [catch {namespace eval test_ns_1 error foo bar baz} msg] $msg $errorInfo
+    list [catch {namespace eval test_ns_1 error foo bar baz} msg] $msg $::errorInfo
 } {1 foo {bar
     (in namespace eval "::test_ns_1" script line 1)
     invoked from within
@@ -1824,7 +1824,7 @@ test namespace-47.2 {ensemble: unknown handler} {
 	}
 	namespace ensemble create -unknown ::ns::Magic
     }
-    list [catch {ns spong} msg] $msg $errorInfo [namespace delete ns]
+    list [catch {ns spong} msg] $msg $::errorInfo [namespace delete ns]
 } {1 foobar {foobar
     while executing
 "error foobar"
@@ -1857,7 +1857,7 @@ test namespace-47.4 {ensemble: unknown handler} {
 	}
 	namespace ensemble create -unknown ::ns::Magic
     }
-    list [catch {ns spong} msg] $msg $errorInfo [namespace delete ns]
+    list [catch {ns spong} msg] $msg $::errorInfo [namespace delete ns]
 } {1 {unknown subcommand handler returned bad code: break} {unknown subcommand handler returned bad code: break
     result of ensemble unknown subcommand handler: ::ns::Magic ::ns spong
     invoked from within
@@ -1882,7 +1882,7 @@ test namespace-47.6 {ensemble: unknown handler} {
     proc bar {args} {
 	return "\{"
     }
-    set result [list [catch {foo bar} msg] $msg $errorInfo]
+    set result [list [catch {foo bar} msg] $msg $::errorInfo]
     rename foo {}
     set result
 } {1 {unmatched open brace in list} {unmatched open brace in list