diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-07-18 05:49:48 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-07-18 05:49:48 (GMT) |
| commit | 19ae84136c8b20a3062fc02e9f4f78511e1168d7 (patch) | |
| tree | 28d2fde9d27e55c9c818aad17ac81c5f6def321f /tests/unload.test | |
| parent | 9cc388df3d06570e47d68f284a74f4fa26b45426 (diff) | |
| download | tcl-pyk_pkgrequirenre.zip tcl-pyk_pkgrequirenre.tar.gz tcl-pyk_pkgrequirenre.tar.bz2 | |
NRE-enable [package ifneeded] scripts.pyk_pkgrequirenre
Diffstat (limited to 'tests/unload.test')
| -rw-r--r-- | tests/unload.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/unload.test b/tests/unload.test index 5a374c4..32e91d9 100644 --- a/tests/unload.test +++ b/tests/unload.test @@ -78,7 +78,7 @@ test unload-2.1 {basic loading of non-unloadable package, with guess for package } {0 {pkga_eq pkga_quote}} test unload-2.2 {basic loading of unloadable package, with guess for package name} [list $dll $loaded] { list $pkgua_loaded $pkgua_detached $pkgua_unloaded \ - [load [file join $testDir pkgua$ext]] \ + [load [file join $testDir pkgua$ext]; list] \ [pkgua_eq abc def] [lsort [info commands pkgua_*]] \ $pkgua_loaded $pkgua_detached $pkgua_unloaded } {{} {} {} {} 0 {pkgua_eq pkgua_quote} . {} {}} @@ -94,7 +94,7 @@ test unload-2.4 {basic unloading of unloadable package, with guess for package n } {. {} {} {} {} . . .} test unload-2.5 {reloading of unloaded package, with guess for package name} [list $dll $loaded] { list $pkgua_loaded $pkgua_detached $pkgua_unloaded \ - [load [file join $testDir pkgua$ext]] \ + [load [file join $testDir pkgua$ext]; list] \ [pkgua_eq abc def] [lsort [info commands pkgua_*]] \ $pkgua_loaded $pkgua_detached $pkgua_unloaded } {. . . {} 0 {pkgua_eq pkgua_quote} .. . .} @@ -171,7 +171,7 @@ child-trusted eval { test unload-4.1 {loading of unloadable package in trusted interpreter, with guess for package name} \ [list $dll $loaded] { list [list $pkgua_loaded $pkgua_detached $pkgua_unloaded] \ - [load [file join $testDir pkgua$ext]] \ + [load [file join $testDir pkgua$ext]; list] \ [pkgua_eq abc def] [lsort [info commands pkgua_*]] \ [list $pkgua_loaded $pkgua_detached $pkgua_unloaded] } {{.. .. ..} {} 0 {pkgua_eq pkgua_quote} {... .. ..}} |