diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-06 21:16:47 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-06 21:16:47 (GMT) |
commit | 3bbffed01d2dbaa523b752cf39da3868869ab30a (patch) | |
tree | c14615d6142b071be9e263cb3a93d4bac98dad89 /tests/string.test | |
parent | 66cb991a8b6edb5c8f424d1aed10e35b8113bd13 (diff) | |
parent | a211779208901e6896f83c8f03817fadfe6b95d0 (diff) | |
download | tcl-3bbffed01d2dbaa523b752cf39da3868869ab30a.zip tcl-3bbffed01d2dbaa523b752cf39da3868869ab30a.tar.gz tcl-3bbffed01d2dbaa523b752cf39da3868869ab30a.tar.bz2 |
merge trunk
Diffstat (limited to 'tests/string.test')
-rw-r--r-- | tests/string.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/string.test b/tests/string.test index e86c0de..f558d30 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1484,8 +1484,8 @@ 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 + string trim \ufeff\x00\u0085\u00a0\u1680\u180eABC\u1361\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u200b\u2028\u2029\u202f\u205f\u3000 +} ABC\u1361 test string-19.1 {string trimleft} { list [catch {string trimleft} msg] $msg @@ -1494,8 +1494,8 @@ test string-19.2 {string trimleft} { string trimleft " XYZ " } {XYZ } test string-19.3 {string trimleft, unicode default} { - string trimleft \u1361\u1680\u3000ABC -} ABC + string trimleft \ufeff\u0085\u00a0\x00\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u200b\u2028\u2029\u202f\u205f\u3000\u1361ABC +} \u1361ABC test string-20.1 {string trimright errors} { list [catch {string trimright} msg] $msg @@ -1513,8 +1513,8 @@ test string-20.5 {string trimright} { string trimright "" } {} test string-20.6 {string trimright, unicode default} { - string trimright ABC\u1361\u1680\u3000 -} ABC + string trimright ABC\u1361\u0085\x00\u00a0\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u200b\u2028\u2029\u202f\u205f\u3000 +} ABC\u1361 test string-21.1 {string wordend} { list [catch {string wordend a} msg] $msg |