summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/string.test11
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/string.test b/tests/string.test
index 64ec56f..c2ddfc8 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: string.test,v 1.73 2008/07/19 22:50:38 nijtmans Exp $
+# RCS: @(#) $Id: string.test,v 1.74 2008/09/29 08:20:38 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1407,6 +1407,9 @@ test string-18.10 {string trim} {
test string-18.11 {string trim, unicode} {
string trim "\xe7\xe8 AB\xe7C \xe8\xe7" \xe7\xe8
} " AB\xe7C "
+test string-18.12 {string trim, unicode default} {
+ string trim ABC\u1361\u1680\u3000
+} ABC
test string-19.1 {string trimleft} {
list [catch {string trimleft} msg] $msg
@@ -1414,6 +1417,9 @@ test string-19.1 {string trimleft} {
test string-19.2 {string trimleft} {
string trimleft " XYZ "
} {XYZ }
+test string-19.3 {string trimleft, unicode default} {
+ string trimleft \u1361\u1680\u3000ABC
+} ABC
test string-20.1 {string trimright errors} {
list [catch {string trimright} msg] $msg
@@ -1430,6 +1436,9 @@ test string-20.4 {string trimright} {
test string-20.5 {string trimright} {
string trimright ""
} {}
+test string-20.6 {string trimright, unicode default} {
+ string trimright ABC\u1361\u1680\u3000
+} ABC
test string-21.1 {string wordend} {
list [catch {string wordend a} msg] $msg