aboutsummaryrefslogtreecommitdiff
path: root/tests/string.test
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2011-04-21 17:47:53 +1000
committerSteve Bennett <steveb@workware.net.au>2011-04-21 17:47:53 +1000
commit827c2764f9a4bebff0947ad1fd3cd5fb1f787c4a (patch)
treeb014bc7e08d060fad77a4333be08c91896b233fd /tests/string.test
parentb9e7448cc5560d4f945d648f099be3219dfb2d81 (diff)
downloadjimtcl-827c2764f9a4bebff0947ad1fd3cd5fb1f787c4a.zip
jimtcl-827c2764f9a4bebff0947ad1fd3cd5fb1f787c4a.tar.gz
jimtcl-827c2764f9a4bebff0947ad1fd3cd5fb1f787c4a.tar.bz2
string trim is now 8 bit clean
i.e. supports embedded nulls Also now supports utf-8 trim chars Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/string.test')
-rw-r--r--tests/string.test15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/string.test b/tests/string.test
index c2d5f10..6a70b79 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -809,4 +809,19 @@ test string-20.5 {string trimright} {
string trimright ""
} {}
+# Test for 8-bit clean and utf-8 trim chars
+test string-21.1 {string trim embedded nulls} {
+ string trim " abc\x00def "
+} "abc\x00def"
+test string-21.2 {string trimleft embedded nulls} {
+ string trimleft " abc\x00def "
+} "abc\x00def "
+test string-21.3 {string trimright embedded nulls} {
+ string trimright " abc\x00def "
+} " abc\x00def"
+test string-21.4 {string trim utf-8} {
+ string trim "\u00b5\u00b6abc\x00def\u00b5\u00b5" "\u00b5\u00b6"
+} "abc\x00def"
+
+
testreport