diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-10 11:56:23 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-10 11:56:23 (GMT) |
commit | 13347d984e68e94063bee8fe1b5c8cc77ef5b250 (patch) | |
tree | 556090915c1e4fb7420fa462964788c31d0852d9 /tests/string.test | |
parent | 5137357e74c887368ad68c3cb09998b154e68d4f (diff) | |
download | tcl-13347d984e68e94063bee8fe1b5c8cc77ef5b250.zip tcl-13347d984e68e94063bee8fe1b5c8cc77ef5b250.tar.gz tcl-13347d984e68e94063bee8fe1b5c8cc77ef5b250.tar.bz2 |
Eliminate exess spacings in many test-cases
Diffstat (limited to 'tests/string.test')
-rw-r--r-- | tests/string.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/string.test b/tests/string.test index 3611753..418bc61 100644 --- a/tests/string.test +++ b/tests/string.test @@ -219,7 +219,7 @@ test string-4.14 {string first, negative start index} { } 1 test string-4.15 {string first, ability to two-byte encoded utf-8 chars} { # Test for a bug in Tcl 8.3 where test for all-single-byte-encoded - # strings was incorrect, leading to an index returned by [string first] + # strings was incorrect, leading to an index returned by [string first] # which pointed past the end of the string. set uchar \u057e ;# character with two-byte encoding in utf-8 string first % %#$uchar$uchar#$uchar$uchar#% 3 @@ -419,7 +419,7 @@ test string-6.37 {string is double, false on int overflow} -setup { } -result {1 priorValue} # string-6.38 removed, underflow on input is no longer an error. test string-6.39 {string is double, false} { - # This test is non-portable because IRIX thinks + # This test is non-portable because IRIX thinks # that .e1 is a valid double - this is really a bug # on IRIX as .e1 should NOT be a valid double # @@ -1833,7 +1833,7 @@ proc MemStress {args} { set res {} foreach body $args { set end 0 - for {set i 0} {$i < 5} {incr i} { + for {set i 0} {$i < 5} {incr i} { proc MemStress_Body {} $body uplevel 1 MemStress_Body rename MemStress_Body {} |