diff options
Diffstat (limited to 'tests/load.test')
-rw-r--r-- | tests/load.test | 12 |
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 |