diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-10-20 16:53:14 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-10-20 16:53:14 (GMT) |
| commit | 6aa2bc6d5c78c18a1562bdae776914890037f24f (patch) | |
| tree | 7399dd17f2038c84240f9e6624bfb2100b2a1682 | |
| parent | 00b0ab809d40145b98bbb032e46f6050d030e94e (diff) | |
| download | tcl-6aa2bc6d5c78c18a1562bdae776914890037f24f.zip tcl-6aa2bc6d5c78c18a1562bdae776914890037f24f.tar.gz tcl-6aa2bc6d5c78c18a1562bdae776914890037f24f.tar.bz2 | |
Add test to trigger bug 33b2486199
| -rw-r--r-- | tests/zipfs.test | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index c1cde5e..d8817f8 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -19,6 +19,7 @@ if {"::tcltest" ni [namespace children]} { source [file join [file dirname [info script]] tcltests.tcl] testConstraint zipfs [expr {[llength [info commands zipfs]]}] +testConstraint thread [expr {0 == [catch {package require Thread 2.8-}]}] set ziproot [zipfs root] @@ -1923,6 +1924,14 @@ namespace eval test_ns_zipfs { zipfs unmount $mt } -result "" + test bug-33b2486199 "zipfs unmounted on thread exit" -constraints { + thread + } -body { + set before [lsort [zipfs mount]] + thread::release [thread::create] + after 100; # Needed to allow the spawned thread to exit to trigger bug + string equal $before [lsort [zipfs mount]] + } -result 1 } |