Added contents of Tcl 8.1a2

1 files changed, 9 insertions, 3 deletions

diff --git a/tests/load.test b/tests/load.test
index 5c33677..4e8d29c 100644
--- a/tests/load.test
+++ b/tests/load.test
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# SCCS: @(#) load.test 1.19 96/11/30 16:05:18
+# SCCS: @(#) load.test 1.22 98/02/11 19:45:38
 
 if {[string compare test [info procs test]] == 1} then {source defs}
 
@@ -42,7 +42,7 @@ test load-1.2 {basic errors} {
 } {1 {wrong # args: should be "load fileName ?packageName? ?interp?"}}
 test load-1.3 {basic errors} {
     list [catch {load a b foobar} msg] $msg
-} {1 {couldn't find slave interpreter named "foobar"}}
+} {1 {could not find interpreter "foobar"}}
 test load-1.4 {basic errors} {
     list [catch {load {}} msg] $msg
 } {1 {must specify either file name or package name}}
@@ -76,6 +76,8 @@ test load-3.1 {error in _Init procedure, same interpreter} {
     while executing
 "open non_existent"
     invoked from within
+"if 44 {open non_existent}"
+    invoked from within
 "load [file join $testDir pkge$ext] pkge"} {POSIX ENOENT {no such file or directory}}}
 test load-3.2 {error in _Init procedure, slave interpreter} {
     catch {interp delete x}
@@ -90,6 +92,8 @@ test load-3.2 {error in _Init procedure, slave interpreter} {
     while executing
 "open non_existent"
     invoked from within
+"if 44 {open non_existent}"
+    invoked from within
 "load [file join $testDir pkge$ext] pkge x"} {POSIX ENOENT {no such file or directory}}}
 
 test load-4.1 {reloading package into same interpreter} {
@@ -148,7 +152,7 @@ if {[info command teststaticpkg] != ""} {
     } "{{} Double} {{} More} {{} Another} {{} Test} {[file join $testDir pkge$ext] Pkge} {[file join $testDir pkgb$ext] Pkgb} {[file join $testDir pkga$ext] Pkga} $alreadyTotalLoaded"
     test load-8.2 {TclGetLoadedPackages procedure} {
 	list [catch {info loaded gorp} msg] $msg
-    } {1 {couldn't find slave interpreter named "gorp"}}
+    } {1 {could not find interpreter "gorp"}}
     test load-8.3 {TclGetLoadedPackages procedure} {
 	list [info loaded {}] [info loaded child]
     } "{{{} Double} {{} More} {{} Another} {{} Test} {[file join $testDir pkga$ext] Pkga} $alreadyLoaded} {{{} Test} {[file join $testDir pkgb$ext] Pkgb}}"
@@ -158,3 +162,5 @@ if {[info command teststaticpkg] != ""} {
     } "{{[file join $testDir pkgb$ext] Pkgb} {{} Double} {{} More} {{} Another} {{} Test} {[file join $testDir pkga$ext] Pkga} $alreadyLoaded} {pkgb_sub pkgb_unsafe}"
     interp delete child
 }
+
+return