diff options
| author | andy <andrew.m.goth@gmail.com> | 2016-12-25 00:00:30 (GMT) |
|---|---|---|
| committer | andy <andrew.m.goth@gmail.com> | 2016-12-25 00:00:30 (GMT) |
| commit | 286ffe22183b6b28c6f813125c78bbee993f55bd (patch) | |
| tree | d798f909fd294498e649704d90999aefa20030b1 | |
| parent | 7c99a698fd3f179581a181dca262acd85d9a107c (diff) | |
| download | tcl-array_search_unset.zip tcl-array_search_unset.tar.gz tcl-array_search_unset.tar.bz2 | |
Reference ticket number in tests var-13.2 and var-13.3array_search_unset
| -rw-r--r-- | tests/var.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/var.test b/tests/var.test index 36cb3a7..f7a782c 100644 --- a/tests/var.test +++ b/tests/var.test @@ -778,7 +778,7 @@ test var-13.1 {Tcl_UnsetVar2, unset array with trace set on element} -setup { set x "If you see this, it worked" } -result "If you see this, it worked" -test var-13.2 {unset array with search} -body { +test var-13.2 {unset array with search, bug 46a2410650} -body { apply {{} { array set a {aa 11 bb 22 cc 33 dd 44 ee 55 ff 66} set s [array startsearch a] @@ -787,7 +787,7 @@ test var-13.2 {unset array with search} -body { }} } -returnCodes error -result {couldn't find search "s-1-a"} -test var-13.3 {unset array with search, causes SIGSEGV unless fixed} -body { +test var-13.3 {unset array with search, SIGSEGV, bug 46a2410650} -body { apply {{} { array set a {aa 11 bb 22 cc 33 dd 44 ee 55 ff 66} set s [array startsearch a] |