diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-07 07:41:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-07 07:41:26 (GMT) |
| commit | 1ae5fd81988e8b441287635556dd750f21bc0560 (patch) | |
| tree | c9708044604d54f6c03d6ea0d2e7f4da12076750 | |
| parent | 03618f8c95b6e023368b42a060a28a5b20483d28 (diff) | |
| parent | 01d6e026664f6e05a1cfbfc38cc14fdf6119b95d (diff) | |
| download | tcl-1ae5fd81988e8b441287635556dd750f21bc0560.zip tcl-1ae5fd81988e8b441287635556dd750f21bc0560.tar.gz tcl-1ae5fd81988e8b441287635556dd750f21bc0560.tar.bz2 | |
Merge 8.7
| -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 263e7ef..492e0eb 100644 --- a/tests/stringObj.test +++ b/tests/stringObj.test @@ -67,8 +67,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 @@ -76,7 +76,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 |