diff options
author | dgp <dgp@users.sourceforge.net> | 2013-02-04 18:51:00 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-02-04 18:51:00 (GMT) |
commit | f1cc0757254d92df5b8f6fc68a55f5741dfde088 (patch) | |
tree | b8a3ae129e2fb1c22449d661cafeda30f5b0af46 /tests/set.test | |
parent | 8a43b2fbb57dcf1d1b9ccc26aa65e39263dc65dc (diff) | |
parent | 00085648bf2759b366438cbc3d9d1c4eb7ba379f (diff) | |
download | tcl-f1cc0757254d92df5b8f6fc68a55f5741dfde088.zip tcl-f1cc0757254d92df5b8f6fc68a55f5741dfde088.tar.gz tcl-f1cc0757254d92df5b8f6fc68a55f5741dfde088.tar.bz2 |
Fix for Bug 3602706.
Diffstat (limited to 'tests/set.test')
-rw-r--r-- | tests/set.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/set.test b/tests/set.test index 9e0ddc0..cad951b 100644 --- a/tests/set.test +++ b/tests/set.test @@ -521,6 +521,11 @@ test set-5.1 {error on malformed array name} testset2 { list $msg $msg1 } {{can't read "z(a)(b)": variable isn't array} {can't read "z(b)(a)": variable isn't array}} +# In a mem-debug build, this test will crash unless Bug 3602706 is fixed. +test set-5.2 {Bug 3602706} -body { + testset2 ::tcl_platform not-in-there +} -returnCodes error -result * -match glob + # cleanup catch {unset a} catch {unset b} |