* 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, 10 insertions, 10 deletions

diff --git a/tests/proc-old.test b/tests/proc-old.test
index fe33ef4..7e2a067 100644
--- a/tests/proc-old.test
+++ b/tests/proc-old.test
@@ -14,7 +14,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: proc-old.test,v 1.14 2006/02/01 19:26:02 dgp Exp $
+# RCS: @(#) $Id: proc-old.test,v 1.15 2006/10/09 19:15:45 msofer Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -316,7 +316,7 @@ test proc-old-5.13 {error conditions} {
 	return
     }
     catch tproc msg
-    set errorInfo
+    set ::errorInfo
 } {error in procedure
     while executing
 "error "error in procedure""
@@ -330,7 +330,7 @@ test proc-old-5.14 {error conditions} {
 	return
     }
     catch tproc msg
-    set errorInfo
+    set ::errorInfo
 } {invoked "break" outside of a loop
     (procedure "tproc" line 1)
     invoked from within
@@ -342,7 +342,7 @@ test proc-old-5.15 {error conditions} {
 	return
     }
     catch tproc msg
-    set errorInfo
+    set ::errorInfo
 } {invoked "continue" outside of a loop
     (procedure "tproc" line 1)
     invoked from within
@@ -360,7 +360,7 @@ test proc-old-5.16 {error conditions} {
 	}
     }
     set fooMsg "foo not called"
-    list [catch tproc msg] $msg $errorInfo $fooMsg
+    list [catch tproc msg] $msg $::errorInfo $fooMsg
 } {1 {Nested error} {Nested error
     while executing
 "error "Nested error""
@@ -395,7 +395,7 @@ test proc-old-7.1 {return with special completion code} {
     list [catch {tproc ok} msg] $msg
 } {0 abc}
 test proc-old-7.2 {return with special completion code} {
-    list [catch {tproc error} msg] $msg $errorInfo $errorCode
+    list [catch {tproc error} msg] $msg $::errorInfo $::errorCode
 } {1 abc {abc
     while executing
 "tproc error"} NONE}
@@ -435,7 +435,7 @@ test proc-old-7.11 {return with special completion code} {
 	catch {open _bad_file_name r} msg
 	return -code error -errorinfo $errorInfo -errorcode $errorCode $msg
     }
-    set msg [list [catch tproc2 msg] $msg $errorInfo $errorCode]
+    set msg [list [catch tproc2 msg] $msg $::errorInfo $::errorCode]
     regsub -all [file join {} _bad_file_name] $msg "_bad_file_name" msg
     normalizeMsg $msg
 } {1 {couldn't open "_bad_file_name": no such file or directory} {couldn't open "_bad_file_name": no such file or directory
@@ -449,7 +449,7 @@ test proc-old-7.12 {return with special completion code} {
 	catch {open _bad_file_name r} msg
 	return -code error -errorcode $errorCode $msg
     }
-    set msg [list [catch tproc2 msg] $msg $errorInfo $errorCode]
+    set msg [list [catch tproc2 msg] $msg $::errorInfo $::errorCode]
     regsub -all [file join {} _bad_file_name] $msg "_bad_file_name" msg
     normalizeMsg $msg
 } {1 {couldn't open "_bad_file_name": no such file or directory} {couldn't open "_bad_file_name": no such file or directory
@@ -461,7 +461,7 @@ test proc-old-7.13 {return with special completion code} {
 	catch {open _bad_file_name r} msg
 	return -code error -errorinfo $errorInfo $msg
     }
-    set msg [list [catch tproc2 msg] $msg $errorInfo $errorCode]
+    set msg [list [catch tproc2 msg] $msg $::errorInfo $::errorCode]
     regsub -all [file join {} _bad_file_name] $msg "_bad_file_name" msg
     normalizeMsg $msg
 } {1 {couldn't open "_bad_file_name": no such file or directory} {couldn't open "_bad_file_name": no such file or directory
@@ -475,7 +475,7 @@ test proc-old-7.14 {return with special completion code} {
 	catch {open _bad_file_name r} msg
 	return -code error $msg
     }
-    set msg [list [catch tproc2 msg] $msg $errorInfo $errorCode]
+    set msg [list [catch tproc2 msg] $msg $::errorInfo $::errorCode]
     regsub -all [file join {} _bad_file_name] $msg "_bad_file_name" msg
     normalizeMsg $msg
 } {1 {couldn't open "_bad_file_name": no such file or directory} {couldn't open "_bad_file_name": no such file or directory