diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-08 18:23:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-08 18:23:40 (GMT) |
| commit | ebf4c78ed811b2c54015d5c0a0fb446da5ae5140 (patch) | |
| tree | fd8e42a1c9c82a39621d4bbea322b37f30ddf99a /tests/zipfs.test | |
| parent | 8395974e1b9e2ab626f5fe69e2ae5e77481d0753 (diff) | |
| download | tcl-ebf4c78ed811b2c54015d5c0a0fb446da5ae5140.zip tcl-ebf4c78ed811b2c54015d5c0a0fb446da5ae5140.tar.gz tcl-ebf4c78ed811b2c54015d5c0a0fb446da5ae5140.tar.bz2 | |
Attempt to fix the last TIP #430 bits, needed to make it work for Tk (and other external packages)
Diffstat (limited to 'tests/zipfs.test')
| -rw-r--r-- | tests/zipfs.test | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index cdddc71..fd40f9e 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -20,11 +20,6 @@ testConstraint zipfs [expr { }] testConstraint zipfslib 1 -# Removed in tip430 - zipfs is no longer a static package -#test zipfs-0.0 {zipfs basics} -constraints zipfs -body { -# load {} zipfs -#} -result {} - set ziproot [zipfs root] set CWD [pwd] set tmpdir [file join $CWD tmp] @@ -44,7 +39,7 @@ if {![string match ${ziproot}* $tcl_library]} { # Hack the environment to pretend we did pull tcl_library from a zip # archive ### - set tclzip [file join $CWD [::tcl::pkgconfig get zipfile,runtime]] + set tclzip [file join $CWD [::tcl::pkgconfig get dllfile,runtime]] testConstraint zipfslib [file isfile $tclzip] if {[testConstraint zipfslib]} { zipfs mount /lib/tcl $tclzip |