1 # Commands covered: string
3 # This file contains a collection of tests for one or more of the Tcl
4 # built-in commands. Sourcing this file into Tcl runs the tests and
5 # generates output for errors. No output means no errors were found.
7 # Copyright (c) 1991-1993 The Regents of the University of California.
8 # Copyright (c) 1994 Sun Microsystems, Inc.
9 # Copyright (c) 1998-1999 by Scriptics Corporation.
11 # See the file "license.terms" for information on usage and redistribution
12 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
14 # RCS: @(#) $Id: string.test,v 1.23.2.1 2001/04/03 22:54:38 hobbs Exp $
16 source [file dirname [info script]]/testing.tcl
18 # Some tests require the testobj command
20 test string-1.1 {error conditions} {
21 list [catch {string gorp a b} msg]
23 test string-1.2 {error conditions} {
24 list [catch {string} msg]
27 test string-2.1 {string compare, too few args} {
28 list [catch {string compare a} msg]
30 test string-2.2 {string compare, bad args} {
31 list [catch {string compare a b c} msg]
33 test string-2.3 {string compare, bad args} {
34 list [catch {string compare -length -nocase str1 str2} msg]
36 test string-2.4 {string compare, too many args} {
37 list [catch {string compare -length 10 -nocase str1 str2 str3} msg]
39 test string-2.5 {string compare with length unspecified} {
40 list [catch {string compare -length 10 10} msg]
42 test string-2.6 {string compare} {
43 string compare abcde abdef
45 test string-2.7 {string compare, shortest method name} {
48 test string-2.8 {string compare} {
49 string compare abcde abcde
51 test string-2.9 {string compare with length} {
52 string compare -length 2 abcde abxyz
54 test string-2.10 {string compare with special index} {
55 list [catch {string compare -length end-3 abcde abxyz} msg]
57 test string-2.12 {string compare, high bit} {
58 # This test will fail if the underlying comparaison
59 # is using signed chars instead of unsigned chars.
60 # (like SunOS's default memcmp thus the compat/memcmp.c)
61 string compare "\x80" "@"
62 # Nb this tests works also in utf8 space because \x80 is
63 # translated into a 2 or more bytelength but whose first byte has
66 test string-2.13 {string compare -nocase} {
67 string compare -nocase abcde abdef
69 test string-2.14 {string compare -nocase} {
70 string co -nocase abcde ABCDE
72 test string-2.15 {string compare -nocase} {
73 string compare -nocase abcde abcde
75 test string-2.16 {string compare -nocase with length} {
76 string compare -length 2 -nocase abcde Abxyz
78 test string-2.17 {string compare -nocase with length} {
79 string compare -nocase -length 3 abcde Abxyz
81 test string-2.18 {string compare -nocase with length <= 0} {
82 string compare -nocase -length -1 abcde AbCdEf
84 test string-2.19 {string compare -nocase with excessive length} {
85 string compare -nocase -length 50 AbCdEf abcde
87 test string-2.20 {string compare -len unicode} {
88 # These are strings that are 6 BYTELENGTH long, but the length
89 # shouldn't make a different because there are actually 3 CHARS long
90 string compare -len 5 \334\334\334 \334\334\374
92 test string-2.21 {string compare -nocase with special index} {
93 list [catch {string compare -nocase -length end-3 Abcde abxyz} msg]
95 test string-2.22 {string compare, null strings} {
98 test string-2.23 {string compare, null strings} {
101 test string-2.24 {string compare, null strings} {
102 string compare foo ""
104 test string-2.25 {string compare -nocase, null strings} {
105 string compare -nocase "" ""
107 test string-2.26 {string compare -nocase, null strings} {
108 string compare -nocase "" foo
110 test string-2.27 {string compare -nocase, null strings} {
111 string compare -nocase foo ""
113 test string-2.28 {string equal with length, unequal strings} {
114 string compare -length 2 abc abde
116 test string-2.29 {string equal with length, unequal strings} {
117 string compare -length 2 ab abde
119 # only need a few tests on equal, since it uses the same code as
120 # string compare, but just modifies the return output
121 test string-3.1 {string equal} {
122 string equal abcde abdef
124 test string-3.2 {string equal} {
125 string eq abcde ABCDE
127 test string-3.3 {string equal} {
128 string equal abcde abcde
130 test string-3.4 {string equal -nocase} utf8 {
131 string equal -nocase \u00dc\u00dc\u00dc\u00dc\u00fc\u00fc\u00fc\u00fc \u00dc\u00dc\u00dc\u00dc\u00dc\u00dc\u00dc\u00dc
133 test string-3.5 {string equal -nocase} {
134 string equal -nocase abcde abdef
136 test string-3.6 {string equal -nocase} {
137 string eq -nocase abcde ABCDE
139 test string-3.7 {string equal -nocase} {
140 string equal -nocase abcde abcde
142 test string-3.8 {string equal with length, unequal strings} {
143 string equal -length 2 abc abde
145 test string-4.1 {string first, too few args} {
146 list [catch {string first a} msg]
148 test string-4.2 {string first, bad args} {
149 list [catch {string first a b c} msg]
151 test string-4.3 {string first, too many args} {
152 list [catch {string first a b 5 d} msg]
154 test string-4.4 {string first} {
155 string first bq abcdefgbcefgbqrs
157 test string-4.5 {string first} {
158 string fir bcd abcdefgbcefgbqrs
160 test string-4.6 {string first} {
161 string f b abcdefgbcefgbqrs
163 test string-4.7 {string first} {
164 string first xxx x123xx345xxx789xxx012
166 test string-4.8 {string first} {
167 string first "" x123xx345xxx789xxx012
169 test string-4.14 {string first, start index} {
170 string first a abcabc end-4
172 test string-4.15 {string first, empty needle} {
175 test string-4.16 {string first, empty haystack} {
178 test string-4.17 {string first, needle bigger than haystack} {
181 test string-4.18 {string first, negative index} {
182 string first a aaa -4
184 test string-4.19 {string first, not found} {
188 test string-5.1 {string index} {
189 list [catch {string index} msg]
191 test string-5.2 {string index} {
192 list [catch {string index a b c} msg]
194 test string-5.3 {string index} {
197 test string-5.4 {string index} {
200 test string-5.5 {string index} {
203 test string-5.6 {string index} {
204 list [catch {string index abcde -10} msg]
206 test string-5.7 {string index} {
207 list [catch {string index a xyz} msg]
209 test string-5.8 {string index} {
212 test string-5.9 {string index} {
213 string index abc end-1
215 test string-5.17 {string index, bad integer} tcl {
216 list [catch {string index "abc" 08} msg]
218 test string-5.18 {string index, bad integer} tcl {
219 list [catch {string index "abc" end-00289} msg]
221 test string-6.1 {string is, too few args} jim {
222 list [catch {string is} msg] $msg
223 } {1 {wrong # args: should be "string is class ?-strict? str"}}
224 test string-6.2 {string is, too few args} jim {
225 list [catch {string is alpha} msg] $msg
226 } {1 {wrong # args: should be "string is class ?-strict? str"}}
227 test string-6.3 {string is, bad args} jim {
228 list [catch {string is alpha -failin str} msg] $msg
229 } {1 {wrong # args: should be "string is class ?-strict? str"}}
230 test string-6.4 {string is, too many args} jim {
231 list [catch {string is alpha -failin var -strict str more} msg] $msg
232 } {1 {wrong # args: should be "string is class ?-strict? str"}}
233 test string-6.5 {string is, class check} jim {
234 list [catch {string is bogus str} msg] $msg
235 } {1 {bad class "bogus": must be alnum, alpha, ascii, boolean, control, digit, double, graph, integer, lower, print, punct, space, upper, or xdigit}}
236 test string-6.6 {string is, ambiguous class} jim {
237 list [catch {string is al str} msg] $msg
238 } {1 {ambiguous class "al": must be alnum, alpha, ascii, boolean, control, digit, double, graph, integer, lower, print, punct, space, upper, or xdigit}}
239 test string-6.10 {string is, ok on empty} {
242 test string-6.11 {string is, -strict check against empty} {
243 string is alpha -strict {}
245 test string-6.12 {string is alnum, true} {
246 string is alnum abc123
248 test string-6.15 {string is alpha, true} {
251 test string-6.16 {string is ascii, true} {
252 string is ascii abc123
254 test string-6.17 {string is ascii, false} {
255 string is ascii 0123Ü567
257 test string-6.24 {string is digit, true} {
258 string is digit 0123456789
260 test string-6.25 {string is digit, false} {
261 list [string is digit 0123Ü567]
263 test string-6.26 {string is digit, false} {
264 list [string is digit +123567]
266 test string-6.27 {string is double, true} {
269 test string-6.28 {string is double, true} {
270 string is double [expr double(1)]
272 test string-6.29 {string is double, true} {
275 test string-6.30 {string is double, true} {
276 string is double [string compare a a]
278 test string-6.31 {string is double, true} {
279 string is double " +1.0e-1 "
281 test string-6.32 {string is double, true} {
282 string is double "\n1.0\v"
284 test string-6.33 {string is double, false} {
285 list [string is double 1abc]
287 test string-6.34 {string is double, false} {
288 list [string is double abc]
290 test string-6.35 {string is double, false} {
291 list [string is double " 1.0e4e4 "]
293 test string-6.36 {string is double, false} {
294 list [string is double "\n"]
296 test string-6.38 {string is double, false on underflow} jim {
297 list [string is double 123e-9999]
299 test string-6.39 {string is double, false} {
300 # This test is non-portable because IRIX thinks
301 # that .e1 is a valid double - this is really a bug
302 # on IRIX as .e1 should NOT be a valid double
304 list [string is double .e1]
306 test string-6.48 {string is integer, true} {
307 string is integer +1234567890
309 test string-6.49 {string is integer, true on type} {
310 string is integer [expr int(50.0)]
312 test string-6.50 {string is integer, true} {
313 string is integer [list -10]
315 test string-6.51 {string is integer, true as hex} {
316 string is integer 0xabcdef
318 test string-6.52 {string is integer, true as octal} {
319 string is integer 012345
321 test string-6.53 {string is integer, true with whitespace} {
322 string is integer " \n1234\v"
324 test string-6.54 {string is integer, false} {
325 list [string is integer 123abc]
327 test string-6.56 {string is integer, false} {
328 list [string is integer [expr double(1)]]
330 test string-6.57 {string is integer, false} {
331 list [string is integer " "]
333 test string-6.58 {string is integer, false on bad octal} jim {
334 list [string is integer 036963]
336 test string-6.59 {string is integer, false on bad octal} tcl {
337 list [string is integer 036963]
339 test string-6.60 {string is integer, false on bad hex} {
340 list [string is integer 0X345XYZ]
342 test string-6.61 {string is lower, true} {
345 test string-6.62 {string is lower, false} {
346 list [string is lower aBc]
348 test string-6.63 {string is lower, false} {
349 list [string is lower abc1]
351 test string-6.64 {string is lower, unicode false} {
352 list [string is lower abÜUE]
354 test string-6.65 {string is space, true} {
355 string is space " \t\n\v\f"
357 test string-6.66 {string is space, false} {
358 list [string is space " \t\n\v1\f"]
360 test string-6.75 {string is upper, true} {
363 test string-6.77 {string is upper, false} {
364 list [string is upper AbC]
366 test string-6.78 {string is upper, false} {
367 list [string is upper AB2C]
369 test string-6.84 {string is control} {
370 ## Control chars are in the ranges
372 list [string is control \x00\x01\x10\x1F\x7F\x80\x9F\x60]
374 test string-6.85 {string is control} tcl {
375 string is control \u0100
377 test string-6.86 {string is graph} {
378 ## graph is any print char, except space
379 list [string is gra "0123abc!@#\$ "]
381 test string-6.87 {string is print} {
382 ## basically any printable char
383 list [string is print "0123abc!@#\$ \010"]
385 test string-6.88 {string is punct} {
386 ## any graph char that isn't alnum
387 list [string is punct "_!@#\000beq0"]
389 test string-6.89 {string is xdigit} {
390 list [string is xdigit 0123456789\u0061bcdefABCDEFg]
392 test string-6.90 {string is boolean, true} {
393 list [string is boolean 0]
395 test string-6.91 {string is boolean, true} {
396 list [string is boolean false]
398 test string-6.92 {string is boolean, true} {
399 list [string is boolean no]
401 test string-6.93 {string is boolean, true} {
402 list [string is boolean off]
404 test string-6.94 {string is boolean, true} {
405 list [string is boolean 1]
407 test string-6.95 {string is boolean, true} {
408 list [string is boolean true]
410 test string-6.96 {string is boolean, true} {
411 list [string is boolean yes]
413 test string-6.97 {string is boolean, true} {
414 list [string is boolean on]
416 test string-6.98 {string is boolean, not boolean string, false} {
417 list [string is boolean a]
419 test string-6.99 {string is boolean, special character, false} {
420 list [string is boolean -]
422 test string-6.10 {string is boolean, mixed case, false} {
423 list [string is boolean True]
425 test string-7.1 {string last, too few args} {
426 list [catch {string last a} msg]
428 test string-7.2 {string last, bad args} {
429 list [catch {string last a b c} msg]
431 test string-7.3 {string last, too many args} {
432 list [catch {string last a b c d} msg]
434 test string-7.4 {string last} {
435 string la xxx xxxx123xx345x678
437 test string-7.5 {string last} {
438 string last xx xxxx123xx345x678
440 test string-7.6 {string last} {
441 string las x xxxx123xx345x678
443 test string-7.13 {string last, start index} {
444 ## Constrain to last 'a' should work
445 string last ba badbad end-1
447 test string-7.14 {string last, start index} {
448 ## Constrain to last 'b' should skip last 'ba'
449 string last ba badbad end-2
451 test string-7.15 {string last, start index} {
452 string last \u00dca \u00dcad\u00dcad 0
454 test string-7.16 {string last, start index} utf8 {
455 string last \u00dca \u00dcad\u00dcad end-1
457 test string-7.17 {string last, too few args} {
460 test string-9.1 {string length} {
461 list [catch {string length} msg]
463 test string-9.2 {string length} {
464 list [catch {string length a b} msg]
466 test string-9.3 {string length} {
467 string length "a little string"
469 test string-9.4 {string length} {
473 test string-10.1 {string map, too few args} {
474 list [catch {string map} msg]
476 test string-10.2 {string map, bad args} {
477 list [catch {string map {a b} abba oops} msg]
479 test string-10.3 {string map, too many args} {
480 list [catch {string map -nocase {a b} str1 str2} msg]
482 test string-10.4 {string map} {
483 string map {a b} abba
485 test string-10.5 {string map} {
488 test string-10.6 {string map -nocase} {
489 string map -nocase {a b} Abba
491 test string-10.7 {string map} {
492 string map {abc 321 ab * a A} aabcabaababcab
494 test string-10.8 {string map -nocase} {
495 string map -nocase {aBc 321 Ab * a A} aabcabaababcab
497 test string-10.9 {string map -nocase} {
498 string map -no {abc 321 Ab * a A} aAbCaBaAbAbcAb
500 test string-10.10 {string map} {
501 list [catch {string map {a b c} abba} msg]
503 test string-10.11 {string map, nulls} {
504 string map {\x00 NULL blah \x00nix} {qwerty}
506 test string-10.12 {string map, unicode} {
507 string map [list \u00fc ue UE \u00dc] "a\u00fcueUE\000EU"
509 test string-10.13 {string map, -nocase unicode} {
510 string map -nocase [list \u00fc ue UE \u00dc] "a\u00fcueUE\000EU"
511 } aue\u00dc\u00dc\0EU
512 test string-10.14 {string map, -nocase null arguments} {
513 string map -nocase {{} abc} foo
515 test string-10.15 {string map, one pair case} {
516 string map -nocase {abc 32} aAbCaBaAbAbcAb
518 test string-10.16 {string map, one pair case} {
519 string map -nocase {ab 4321} aAbCaBaAbAbcAb
520 } {a4321C4321a43214321c4321}
521 test string-10.17 {string map, one pair case} {
522 string map {Ab 4321} aAbCaBaAbAbcAb
523 } {a4321CaBa43214321c4321}
525 test string-11.1 {string match, too few args} {
526 list [catch {string match a} msg]
528 test string-11.2 {string match, too many args} {
529 list [catch {string match a b c d} msg]
531 test string-11.3 {string match} {
534 test string-11.4 {string match} {
537 test string-11.5 {string match} {
538 string match ab*c abc
540 test string-11.6 {string match} {
541 string match ab**c abc
543 test string-11.7 {string match} {
544 string match ab* abcdef
546 test string-11.8 {string match} {
549 test string-11.9 {string match} {
550 string match *3*6*9 0123456789
552 test string-11.10 {string match} {
553 string match *3*6*9 01234567890
555 test string-11.11 {string match} {
558 test string-11.12 {string match} {
559 string match a??c abc
561 test string-11.13 {string match} {
562 string match ?1??4???8? 0123456789
564 test string-11.14 {string match} {
565 string match {[abc]bc} abc
567 test string-11.15 {string match} {
568 string match {a[abc]c} abc
570 test string-11.16 {string match} {
571 string match {a[xyz]c} abc
573 test string-11.17 {string match} {
574 string match {12[2-7]45} 12345
576 test string-11.18 {string match} {
577 string match {12[ab2-4cd]45} 12345
579 test string-11.19 {string match} {
580 string match {12[ab2-4cd]45} 12b45
582 test string-11.20 {string match} {
583 string match {12[ab2-4cd]45} 12d45
585 test string-11.21 {string match} {
586 string match {12[ab2-4cd]45} 12145
588 test string-11.22 {string match} {
589 string match {12[ab2-4cd]45} 12545
591 test string-11.23 {string match} {
592 string match {a\*b} a*b
594 test string-11.24 {string match} {
595 string match {a\*b} ab
597 test string-11.25 {string match} {
598 string match {a\*\?\[\]\\\x} "a*?\[\]\\x"
600 test string-11.26 {string match} {
603 test string-11.27 {string match} {
606 test string-11.28 {string match} {
609 test string-11.29 {string match} {
612 test string-11.30 {string match, bad args} {
613 list [catch {string match - b c} msg]
615 test string-11.31 {string match case} {
618 test string-11.32 {string match nocase} {
619 string match -nocase a A
621 test string-11.34 {string match nocase} {
622 string match -nocase a*f ABCDEf
624 test string-11.35 {string match case, false hope} {
625 # This is true because '_' lies between the A-Z and a-z ranges
626 string match {[A-z]} _
628 test string-11.36 {string match nocase range} {
629 # This is false because although '_' lies between the A-Z and a-z ranges,
630 # we lower case the end points before checking the ranges.
631 string match -nocase {[A-z]} _
633 test string-11.37 {string match nocase} {
634 string match -nocase {[A-fh-Z]} g
636 test string-11.38 {string match case, reverse range} {
637 string match {[A-fh-Z]} g
639 test string-11.39 {string match, *\ case} {
640 string match {*\abc} abc
642 test string-11.40 {string match, *special case} {
643 string match {*[ab]} abc
645 test string-11.41 {string match, *special case} {
646 string match {*[ab]*} abc
648 # I don't see why this shouldn't match. Ignored for jim
649 test string-11.42 {string match, *special case} tcl {
650 string match "*\\" "\\"
652 test string-11.43 {string match, *special case} {
653 string match "*\\\\" "\\"
655 test string-11.44 {string match, *special case} {
656 string match "*???" "12345"
658 test string-11.45 {string match, *special case} {
659 string match "*???" "12"
661 test string-11.46 {string match, *special case} {
662 string match "*\\*" "abc*"
664 test string-11.47 {string match, *special case} {
665 string match "*\\*" "*"
667 test string-11.48 {string match, *special case} {
668 string match "*\\*" "*abc"
670 test string-11.49 {string match, *special case} {
671 string match "?\\*" "a*"
673 # I don't see why this shouldn't match. Ignored for jim
674 test string-11.50 {string match, *special case} tcl {
675 string match "\\" "\\"
679 test string-12.1 {string range} {
680 list [catch {string range} msg]
682 test string-12.2 {string range} {
683 list [catch {string range a 1} msg]
685 test string-12.3 {string range} {
686 list [catch {string range a 1 2 3} msg]
688 test string-12.4 {string range} {
689 string range abcdefghijklmnop 2 14
691 test string-12.5 {string range, last > length} {
692 string range abcdefghijklmnop 7 1000
694 test string-12.6 {string range} {
695 string range abcdefghijklmnop 10 end
697 test string-12.7 {string range, last < first} {
698 string range abcdefghijklmnop 10 9
700 test string-12.8 {string range, first < 0} {
701 string range abcdefghijklmnop -3 2
703 test string-12.9 {string range} {
704 string range abcdefghijklmnop -3 -2
706 test string-12.10 {string range} {
707 string range abcdefghijklmnop 1000 1010
709 test string-12.11 {string range} {
710 string range abcdefghijklmnop -100 end
712 test string-12.12 {string range} {
713 list [catch {string range abc abc 1} msg]
715 test string-12.13 {string range} {
716 list [catch {string range abc 1 eof} msg]
718 test string-12.14 {string range} {
719 string range abcdefghijklmnop end-1 end
721 test string-12.15 {string range} {
722 string range abcdefghijklmnop end 1000
724 test string-12.16 {string range} {
725 string range abcdefghijklmnop end end-1
728 test string-13.1 {string repeat} {
729 list [catch {string repeat} msg]
731 test string-13.2 {string repeat} {
732 list [catch {string repeat abc 10 oops} msg]
734 test string-13.3 {string repeat} {
737 test string-13.4 {string repeat} {
740 test string-13.5 {string repeat} {
743 test string-13.6 {string repeat} {
746 test string-13.7 {string repeat} {
747 list [catch {string repeat abc end} msg]
749 test string-13.8 {string repeat} {
750 string repeat {} -1000
752 test string-13.9 {string repeat} {
755 test string-13.10 {string repeat} {
758 test string-13.11 {string repeat} {
761 test string-13.12 {string repeat} {
762 string repeat ab\u7266cd 3
763 } ab\u7266cdab\u7266cdab\u7266cd
764 test string-13.13 {string repeat} {
768 test string-14.1 {string replace} {
769 list [catch {string replace} msg] $msg
770 } {1 {wrong # args: should be "string replace string first last ?string?"}}
771 test string-14.2 {string replace} {
772 list [catch {string replace a 1} msg] $msg
773 } {1 {wrong # args: should be "string replace string first last ?string?"}}
774 test string-14.3 {string replace} {
775 list [catch {string replace a 1 2 3 4} msg] $msg
776 } {1 {wrong # args: should be "string replace string first last ?string?"}}
777 test string-14.4 {string replace} {
779 test string-14.5 {string replace} {
780 string replace abcdefghijklmnop 2 14
782 test string-14.6 {string replace} {
783 string replace abcdefghijklmnop 7 1000
785 test string-14.7 {string replace} {
786 string replace abcdefghijklmnop 10 end
788 test string-14.8 {string replace} {
789 string replace abcdefghijklmnop 10 9
791 test string-14.9 {string replace} {
792 string replace abcdefghijklmnop -3 2
794 test string-14.10 {string replace} {
795 string replace abcdefghijklmnop -3 -2
797 test string-14.11 {string replace} {
798 string replace abcdefghijklmnop 1000 1010
800 test string-14.12 {string replace} {
801 string replace abcdefghijklmnop -100 end
803 test string-14.13 {string replace} {
804 list [catch {string replace abc abc 1} msg] $msg
805 } {1 {bad index "abc": must be integer?[+-]integer? or end?[+-]integer?}}
806 test string-14.14 {string replace} {
807 list [catch {string replace abc 1 eof} msg] $msg
808 } {1 {bad index "eof": must be integer?[+-]integer? or end?[+-]integer?}}
809 test string-14.15 {string replace} {
810 string replace abcdefghijklmnop end-10 end-2 NEW
812 test string-14.16 {string replace} {
813 string replace abcdefghijklmnop 0 end foo
815 test string-14.17 {string replace} {
816 string replace abcdefghijklmnop end end-1
819 test string-15.1 {string tolower too few args} {
820 list [catch {string tolower} msg]
822 test string-15.2 {string tolower bad args} {
823 list [catch {string tolower a b} msg]
825 test string-15.3 {string tolower too many args} {
826 list [catch {string tolower ABC 1 end oops} msg]
828 test string-15.4 {string tolower} {
829 string tolower ABCDeF
831 test string-15.5 {string tolower} {
832 string tolower "ABC XyZ"
834 test string-15.6 {string tolower} {
835 string tolower {123#$&*()}
838 test string-16.1 {string toupper} {
839 list [catch {string toupper} msg]
841 test string-16.2 {string toupper} {
842 list [catch {string toupper a b} msg]
844 test string-16.4 {string toupper} {
845 string toupper abCDEf
847 test string-16.5 {string toupper} {
848 string toupper "abc xYz"
850 test string-16.6 {string toupper} {
851 string toupper {123#$&*()}
854 test string-17.1 {string totitle} -body {
856 } -returnCodes error -match glob -result {wrong # args: should be "string totitle string*}
857 test string-17.3 {string totitle} {
858 string totitle abCDEf
860 test string-17.4 {string totitle} {
861 string totitle "abc xYz"
863 test string-17.5 {string totitle} {
864 string totitle {123#$&*()}
867 test string-18.1 {string trim} {
868 list [catch {string trim} msg]
870 test string-18.2 {string trim} {
871 list [catch {string trim a b c} msg]
873 test string-18.3 {string trim} {
876 test string-18.4 {string trim} {
877 string trim "\t\nXYZ\t\n\r\n"
879 test string-18.5 {string trim} {
880 string trim " A XYZ A "
882 test string-18.6 {string trim} {
883 string trim "XXYYZZABC XXYYZZ" ZYX
885 test string-18.7 {string trim} {
888 test string-18.8 {string trim} {
889 string trim {abcdefg} {}
891 test string-18.9 {string trim} {
894 test string-18.10 {string trim} {
897 test string-18.11 {string trim, unicode} {
898 string trim "\xe7\xe8 AB\xe7C \xe8\xe7" \xe7\xe8
901 test string-19.1 {string trimleft} {
902 list [catch {string trimleft} msg]
904 test string-19.2 {string trimleft} {
905 string trimleft " XYZ "
908 test string-20.1 {string trimright errors} {
909 list [catch {string trimright} msg]
911 test string-20.2 {string trimright errors} {
912 list [catch {string trimg a} msg]
914 test string-20.3 {string trimright} {
915 string trimright " XYZ "
917 test string-20.4 {string trimright} {
920 test string-20.5 {string trimright} {
924 # Test for 8-bit clean and utf-8 trim chars
925 test string-21.1 {string trim embedded nulls} {
926 string trim " abc\x00def "
928 test string-21.2 {string trimleft embedded nulls} {
929 string trimleft " abc\x00def "
931 test string-21.3 {string trimright embedded nulls} {
932 string trimright " abc\x00def "
934 test string-21.4 {string trim utf-8} {
935 string trim "\u00b5\u00b6abc\x00def\u00b5\u00b5" "\u00b5\u00b6"
938 test string-22.1 {string replace} {
939 string replace //test.net/path/path2?query=url?otherquery 21 end
940 } {//test.net/path/path2}
942 test string-23.1 {string cat} {
946 test string-23.2 {string cat} {
950 test string-23.3 {string cat} {
954 test string-23.4 {string cat} {
956 string cat $abc (def)