diff options
author | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-05-15 21:56:03 (GMT) |
---|---|---|
committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-05-15 21:56:03 (GMT) |
commit | 7ee82af4aa11b02822159875e976d1469492e937 (patch) | |
tree | 7951504226debb7d782a9321015f34fa3b682fbd /tests/pkgMkIndex.test | |
parent | 1134511a980250dfb27153be57b4e64e8455cdfe (diff) | |
download | tcl-7ee82af4aa11b02822159875e976d1469492e937.zip tcl-7ee82af4aa11b02822159875e976d1469492e937.tar.gz tcl-7ee82af4aa11b02822159875e976d1469492e937.tar.bz2 |
Fix [28027d8bb7745fb0], memory leaks in tclUnload.c,
Diffstat (limited to 'tests/pkgMkIndex.test')
-rw-r--r-- | tests/pkgMkIndex.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test index df49c32..002efcc 100644 --- a/tests/pkgMkIndex.test +++ b/tests/pkgMkIndex.test @@ -577,19 +577,21 @@ test pkgMkIndex-10.1 {package in DLL and script} [list exec $dll] { exec [interpreter] << $cmd pkgtest::runCreatedIndex {0 {}} -lazy $fullPkgPath pkga[info sharedlibextension] pkga.tcl } "0 {{pkga:1.0 {tclPkgSetup {pkga[info sharedlibextension] load {pkga_eq pkga_quote}} {pkga.tcl source pkga_neq}}}}" + test pkgMkIndex-10.2 {package in DLL hidden by -load} [list exec $dll] { # Do all [load]ing of shared libraries in another process, so we can # delete the file and not get stuck because we're holding a reference to # it. # # This test depends on context from prior test, so repeat it. + set script \ "[list pkg_mkIndex -lazy $fullPkgPath [file tail $x] pkga.tcl]" append script \n \ "[list pkg_mkIndex -lazy -load Pkg* $fullPkgPath [file tail $x]]" exec [interpreter] << $script pkgtest::runCreatedIndex {0 {}} -lazy -load Pkg* -- $fullPkgPath pkga[info sharedlibextension] -} {0 {}} +} {0 {{pkga:1.0 {tclPkgSetup {pkga.so load {pkga_eq pkga_quote}}}}}} if {[testConstraint $dll]} { file delete -force [file join $fullPkgPath [file tail $x]] |