diff options
Diffstat (limited to 'tests/set.test')
| -rw-r--r-- | tests/set.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/set.test b/tests/set.test index 1d88553..cad951b 100644 --- a/tests/set.test +++ b/tests/set.test @@ -15,9 +15,6 @@ if {[lsearch [namespace children] ::tcltest] == -1} { namespace import -force ::tcltest::* } -::tcltest::loadTestedCommands -catch [list package require -exact Tcltest [info patchlevel]] - testConstraint testset2 [llength [info commands testset2]] catch {unset x} @@ -524,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} |