mrcImageOpticalFlow & mrcImageLucasKanade & mrcImageHornSchunckの変更

[eos/base.git] / util / src / TclTk / tcl8.6.12 / pkgs / thread2.8.7 / tests / tkt-84be1b5a73.test

diff --git a/util/src/TclTk/tcl8.6.12/pkgs/thread2.8.7/tests/tkt-84be1b5a73.test b/util/src/TclTk/tcl8.6.12/pkgs/thread2.8.7/tests/tkt-84be1b5a73.test
new file mode 100644 (file)
index 0000000..946c6db
--- /dev/null
+++ b/util/src/TclTk/tcl8.6.12/pkgs/thread2.8.7/tests/tkt-84be1b5a73.test
@@ -0,0 +1,25 @@
+package require tcltest
+namespace import ::tcltest::*
+tcltest::loadTestedCommands
+package require Thread
+
+# This test used to segfault before commit f4c95731c0.
+test tkt-84be1b5a73 {Ticket 84be1b5a73} -body {
+    set t [thread::create]
+    set resultvar() {}
+
+    trace add variable resultvar() write {
+        unset -nocomplain resultvar()
+        list}
+
+    proc errorproc {tid einfo} {}
+    thread::errorproc errorproc
+    thread::send -async $t {
+        error ""
+    } resultvar()
+
+    after 1000 {
+        set forever 1
+    }
+    vwait forever
+} -returnCodes 0