diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 13:25:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 13:25:16 (GMT) |
| commit | 39aec08fb0bcd5aa7d51f44c3b79e21d8de33744 (patch) | |
| tree | 2eeb4befb4f1ef1b1fe50521d45f6d78bd31fcb1 /tests/stringObj.test | |
| parent | f073bc7484740398be58c99c4313c4c6202954f7 (diff) | |
| parent | 66798b2c0139ffe530f62d2f3519859a451c6eaa (diff) | |
| download | tcl-39aec08fb0bcd5aa7d51f44c3b79e21d8de33744.zip tcl-39aec08fb0bcd5aa7d51f44c3b79e21d8de33744.tar.gz tcl-39aec08fb0bcd5aa7d51f44c3b79e21d8de33744.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/stringObj.test')
| -rw-r--r-- | tests/stringObj.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/stringObj.test b/tests/stringObj.test index 258e59a..e1b6c03 100644 --- a/tests/stringObj.test +++ b/tests/stringObj.test @@ -28,8 +28,8 @@ testConstraint fullutf [expr {[string length \U010000] == 1}] test stringObj-1.1 {string type registration} testobj { set t [testobj types] set first [string first "string" $t] - set result [expr {$first != -1}] -} {1} + set result [expr {$first >= 0}] +} 1 test stringObj-2.1 {Tcl_NewStringObj} testobj { set result "" |