diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-07 07:23:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-07 07:23:10 (GMT) |
| commit | e10915b5653f5d4a028bf008d0f48d28f8279e49 (patch) | |
| tree | 925e8a74a19785c8ad7f82c466b49dc6fec2c954 /tests/stringObj.test | |
| parent | fa795b478ac557afbf6511559553e279a046862a (diff) | |
| parent | f5ba8a8478a966af91228ad54eb264c04c21b11d (diff) | |
| download | tcl-e10915b5653f5d4a028bf008d0f48d28f8279e49.zip tcl-e10915b5653f5d4a028bf008d0f48d28f8279e49.tar.gz tcl-e10915b5653f5d4a028bf008d0f48d28f8279e49.tar.bz2 | |
Fix [95e287b956]: uninit value use in stringObj-4.2
Diffstat (limited to 'tests/stringObj.test')
| -rw-r--r-- | tests/stringObj.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/stringObj.test b/tests/stringObj.test index dce932b..c45bdb2 100644 --- a/tests/stringObj.test +++ b/tests/stringObj.test @@ -66,8 +66,8 @@ test stringObj-4.2 {Tcl_SetObjLength procedure, string gets longer} testobj { testobj freeallvars teststringobj set 1 abcdef teststringobj setlength 1 10 - list [teststringobj length 1] [teststringobj length2 1] -} {10 10} + teststringobj length 1 +} 10 test stringObj-4.3 {Tcl_SetObjLength procedure, string gets longer} testobj { testobj freeallvars teststringobj set 1 abcdef @@ -75,7 +75,7 @@ test stringObj-4.3 {Tcl_SetObjLength procedure, string gets longer} testobj { list [teststringobj length 1] [teststringobj length2 1] \ [teststringobj get 1] } {10 20 abcdefxyzq} -test stringObj-4.4 {Tcl_SetObjLength procedure, "expty string", length 0} testobj { +test stringObj-4.4 {Tcl_SetObjLength procedure, "empty string", length 0} testobj { testobj freeallvars testobj newobj 1 teststringobj setlength 1 0 |