diff options
author | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
commit | 494c2de3a748b449c69ce322a1a741f5a31fd4d5 (patch) | |
tree | c3ece48c0ae3f4ba54787e0e8e729b65752ef3f9 /tests/listObj.test | |
parent | 7a698c0488d99c0af42022714638ae1ba2afaa49 (diff) | |
download | tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.zip tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.gz tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.bz2 |
Added contents of Tcl 8.1a2
Diffstat (limited to 'tests/listObj.test')
-rw-r--r-- | tests/listObj.test | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/tests/listObj.test b/tests/listObj.test index 00eb7c6..db4a7aa 100644 --- a/tests/listObj.test +++ b/tests/listObj.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) listObj.test 1.9 97/06/10 15:28:11 +# SCCS: @(#) listObj.test 1.11 97/12/16 13:34:13 if {[info commands testobj] == {}} { puts "This application hasn't been compiled with the \"testobj\"" @@ -27,16 +27,19 @@ test listobj-1.1 {Tcl_GetListObjType} { set result [expr {$first != -1}] } {1} -test listobj-2.1 {Tcl_ListObjForObjArray, use in lappend} { +test listobj-2.1 {Tcl_SetListObj, use in lappend} { catch {unset x} list [lappend x 1 abc def] [lappend x 1 ghi jkl] $x } {{1 abc def} {1 abc def 1 ghi jkl} {1 abc def 1 ghi jkl}} -test listobj-2.2 {Tcl_ListObjForObjArray, use in ObjInterpProc} { +test listobj-2.2 {Tcl_SetListObj, use in ObjInterpProc} { proc return_args {args} { return $args } list [return_args] [return_args x] [return_args x y] } {{} x {x y}} +test listobj-2.3 {Tcl_SetListObj, zero element count} { + list +} {} test listobj-3.1 {Tcl_ListObjAppend, list conversion} { catch {unset x} @@ -174,3 +177,5 @@ test listobj-8.1 {SetListFromAny} { test listobj-9.1 {UpdateStringOfList} { string length [list foo\x00help] } 8 + +return |