diff options
Diffstat (limited to 'tests/set.test')
| -rw-r--r-- | tests/set.test | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/tests/set.test b/tests/set.test index cad951b..76eab79 100644 --- a/tests/set.test +++ b/tests/set.test @@ -9,6 +9,8 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# RCS: @(#) $Id: set.test,v 1.15 2008/02/13 20:35:03 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -521,11 +523,6 @@ 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} |