summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorsebres <sebres@users.sourceforge.net>2020-08-28 15:01:23 (GMT)
committersebres <sebres@users.sourceforge.net>2020-08-28 15:01:23 (GMT)
commitbe42098b827423520078e2cb5150275a3a8540e2 (patch)
tree111bdce1934aa9b7e16d5aa44ceca874d52cce17
parent4af0efa4cb10780f9c7d391eb66fe1c3367872d2 (diff)
downloadtcl-be42098b827423520078e2cb5150275a3a8540e2.zip
tcl-be42098b827423520078e2cb5150275a3a8540e2.tar.gz
tcl-be42098b827423520078e2cb5150275a3a8540e2.tar.bz2
tests/regexp.test: more tests for -indices by multi-byte utf-8 (considering -start position now)
-rw-r--r--tests/regexp.test9
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/regexp.test b/tests/regexp.test
index 99113ce..d2bdf7b 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -156,10 +156,17 @@ test regexp-3.7 {getting substrings back from regexp} {
set foo 1; set f2 1; set f3 1; set f4 1
list [regexp -indices (a)(b)?(c) xacy foo f2 f3 f4] $foo $f2 $f3 $f4
} {1 {1 2} {1 1} {-1 -1} {2 2}}
-test regexp-3.8 {-indices by multi-byte utf-8} {
+test regexp-3.8a {-indices by multi-byte utf-8} {
regexp -inline -indices {(\w+)-(\w+)} \
"gr\u00FC\u00DF-\u043F\u0440\u0438\u0432\u0435\u0442"
} {{0 10} {0 3} {5 10}}
+test regexp-3.8b {-indices by multi-byte utf-8, from -start position} {
+ list\
+ [regexp -inline -indices -start 3 {(\w+)-(\w+)} \
+ "gr\u00FC\u00DF-\u043F\u0440\u0438\u0432\u0435\u0442"] \
+ [regexp -inline -indices -start 4 {(\w+)-(\w+)} \
+ "gr\u00FC\u00DF-\u043F\u0440\u0438\u0432\u0435\u0442"]
+} {{{3 10} {3 3} {5 10}} {}}
test regexp-4.1 {-nocase option to regexp} {
regexp -nocase foo abcFOo