diff options
author | dgp <dgp@users.sourceforge.net> | 2022-10-27 13:48:34 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2022-10-27 13:48:34 (GMT) |
commit | 4a0240f1539380862fa46bac023272dcc8557053 (patch) | |
tree | 62856cf07f320d9262cc193bc333dd43411ec0b2 | |
parent | 27f09fdb5ced601cb23ffc86b882c29a3ee7dd21 (diff) | |
download | tcl-4a0240f1539380862fa46bac023272dcc8557053.zip tcl-4a0240f1539380862fa46bac023272dcc8557053.tar.gz tcl-4a0240f1539380862fa46bac023272dcc8557053.tar.bz2 |
In a -singleproc 1 test run, [info loaded] can report libraries brought in
by other test files. Protect the tests that care about that.
-rw-r--r-- | tests/load.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/load.test b/tests/load.test index 728fad9..bc964a1 100644 --- a/tests/load.test +++ b/tests/load.test @@ -202,13 +202,13 @@ test load-8.1 {TclGetLoadedPackages procedure} [list teststaticpkg_8.x $dll $loa test load-8.2 {TclGetLoadedPackages procedure} -constraints {teststaticpkg_8.x} -body { info loaded gorp } -returnCodes error -result {could not find interpreter "gorp"} -test load-8.3a {TclGetLoadedPackages procedure} [list teststaticpkg_8.x $dll $loaded] { +test load-8.3a {TclGetLoadedPackages procedure} [list !singleTestInterp teststaticpkg_8.x $dll $loaded] { lsort -index 1 [info loaded {}] } [lsort -index 1 [list {{} Double} {{} More} {{} Another} {{} Test} [list [file join $testDir pkga$ext] Pkga] [list [file join $testDir pkgb$ext] Pkgb] {*}$alreadyLoaded]] test load-8.3b {TclGetLoadedPackages procedure} [list teststaticpkg_8.x $dll $loaded] { lsort -index 1 [info loaded child] } [lsort -index 1 [list {{} Test} [list [file join $testDir pkgb$ext] Pkgb]]] -test load-8.4 {TclGetLoadedPackages procedure} [list teststaticpkg_8.x $dll $loaded] { +test load-8.4 {TclGetLoadedPackages procedure} [list !singleTestInterp teststaticpkg_8.x $dll $loaded] { load [file join $testDir pkgb$ext] Pkgb list [lsort -index 1 [info loaded {}]] [lsort [info commands pkgb_*]] } [list [lsort -index 1 [concat [list [list [file join $testDir pkgb$ext] Pkgb] {{} Double} {{} More} {{} Another} {{} Test} [list [file join $testDir pkga$ext] Pkga]] $alreadyLoaded]] {pkgb_demo pkgb_sub pkgb_unsafe}] |