diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-12-08 12:26:43 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-12-08 12:26:43 +1000 |
| commit | a312320da72bc1745ff9d327aa59ff8bab976782 (patch) | |
| tree | f7dc7d57b20c08ec56e205d97f0e0c9dd18522db /tests/utf8.test | |
| parent | 073f7ec76c8a3836d7706d2b57df6efa6966fa39 (diff) | |
| download | jimtcl-a312320da72bc1745ff9d327aa59ff8bab976782.zip jimtcl-a312320da72bc1745ff9d327aa59ff8bab976782.tar.gz jimtcl-a312320da72bc1745ff9d327aa59ff8bab976782.tar.bz2 | |
utf-8 case folding may change encoded length
Thus we may need a larger buffer for the encoded string
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/utf8.test')
| -rw-r--r-- | tests/utf8.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/utf8.test b/tests/utf8.test index 287f6b1..74a5aa8 100644 --- a/tests/utf8.test +++ b/tests/utf8.test @@ -129,6 +129,10 @@ test utf8-7.3 {Upper, lower for titlecase utf-8} { list [string toupper \u01c5] [string tolower \u01c5] } "\u01c4 \u01c6" +test utf8-7.4 {Case folding may change encoded length} { + list [string bytelength \u0131] [string bytelength [string toupper \u0131]] +} {2 1} + test utf8-8.1 {Chars outside the BMP} jim { string length \u{12000}\u{13000} } 2 |