From fbc62c271669a746eb4f0acbc2f156ba306365d4 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Tue, 1 Nov 2011 10:41:08 -0400 Subject: Add support for [string totitle] Signed-off-by: Steve Bennett --- tests/string.test | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'tests') diff --git a/tests/string.test b/tests/string.test index 5da52df..4cb54ac 100644 --- a/tests/string.test +++ b/tests/string.test @@ -770,6 +770,19 @@ test string-16.6 {string toupper} { string toupper {123#$&*()} } {123#$&*()} +test string-17.1 {string totitle} -body { + string totitle +} -returnCodes error -match glob -result {wrong # args: should be "string totitle string*} +test string-17.3 {string totitle} { + string totitle abCDEf +} {Abcdef} +test string-17.4 {string totitle} { + string totitle "abc xYz" +} {Abc xyz} +test string-17.5 {string totitle} { + string totitle {123#$&*()} +} {123#$&*()} + test string-18.1 {string trim} { list [catch {string trim} msg] } {1} -- cgit v1.1