diff options
Diffstat (limited to 'tests/listObj.test')
| -rw-r--r-- | tests/listObj.test | 30 |
1 files changed, 2 insertions, 28 deletions
diff --git a/tests/listObj.test b/tests/listObj.test index 1b9b542..a3c9f20 100644 --- a/tests/listObj.test +++ b/tests/listObj.test @@ -10,14 +10,14 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# RCS: @(#) $Id: listObj.test,v 1.8 2005/07/27 18:12:43 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest namespace import -force ::tcltest::* } -testConstraint testobj [llength [info commands testobj]] - catch {unset x} test listobj-1.1 {Tcl_GetListObjType} emptyTest { # Test removed; tested an internal detail @@ -175,32 +175,6 @@ test listobj-9.1 {UpdateStringOfList} { string length [list foo\x00help] } 8 -test listobj-10.1 {Bug [2971669]} {*}{ - -constraints testobj - -setup { - testobj freeallvars - } - -body { - set result {} - lappend result \ - [testlistobj set 1 a b c d e] \ - [testlistobj replace 1 0x7fffffff 0x7fffffff f] \ - [testlistobj get 1] - } - -cleanup { - testobj freeallvars - } - -result {{a b c d e} {} {a b c d e f}} -} - -test listobj-11.1 {Bug 3598580: Tcl_ListObjReplace refcount management} testobj { - testobj bug3598580 -} 123 - # cleanup ::tcltest::cleanupTests return - -# Local Variables: -# mode: tcl -# End: |