diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-04-21 17:47:53 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-04-21 17:47:53 +1000 |
commit | 827c2764f9a4bebff0947ad1fd3cd5fb1f787c4a (patch) | |
tree | b014bc7e08d060fad77a4333be08c91896b233fd /tests/string.test | |
parent | b9e7448cc5560d4f945d648f099be3219dfb2d81 (diff) | |
download | jimtcl-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.test | 15 |
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 |