diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-06 14:35:02 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-06 14:35:02 (GMT) |
commit | f5fa2726ea8bf7971595d20e6e423641710e5d13 (patch) | |
tree | e255bf6c75e462ecf2643574cbc48c8015142792 /tests/string.test | |
parent | 8fcb14a7340a0079186e9c81589be46e0186e1d7 (diff) | |
parent | 9c05979998520bc1162e96cdd7a6de1011ff548c (diff) | |
download | tcl-f5fa2726ea8bf7971595d20e6e423641710e5d13.zip tcl-f5fa2726ea8bf7971595d20e6e423641710e5d13.tar.gz tcl-f5fa2726ea8bf7971595d20e6e423641710e5d13.tar.bz2 |
merge core-8-6-branch
Diffstat (limited to 'tests/string.test')
-rw-r--r-- | tests/string.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/string.test b/tests/string.test index 11cbcff..fa7f8fb 100644 --- a/tests/string.test +++ b/tests/string.test @@ -576,12 +576,12 @@ test string-6.85 {string is control} { } 0 test string-6.86 {string is graph} { ## graph is any print char, except space - list [string is gra -fail var "0123abc!@#\$\u0100 "] $var -} {0 12} + list [string is gra -fail var "0123abc!@#\$\u0100\UE0100\UE01EF "] $var +} {0 14} test string-6.87 {string is print} { ## basically any printable char - list [string is print -fail var "0123abc!@#\$\u0100 \u0010"] $var -} {0 13} + list [string is print -fail var "0123abc!@#\$\u0100 \UE0100\UE01EF\u0010"] $var +} {0 15} test string-6.88 {string is punct} { ## any graph char that isn't alnum list [string is punct -fail var "_!@#\u00beq0"] $var |