diff options
| author | sebres <sebres@users.sourceforge.net> | 2020-08-28 14:05:53 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2020-08-28 14:05:53 (GMT) |
| commit | 6149b214e82b319f46e5e41a30cc5b4d0db7b37e (patch) | |
| tree | 58861ca4776a854647d4d9e13750a848bfe30bda | |
| parent | 43d2fdc86c454dc83a6fe24125d0fd1188cc1bfa (diff) | |
| parent | 4af0efa4cb10780f9c7d391eb66fe1c3367872d2 (diff) | |
| download | tcl-6149b214e82b319f46e5e41a30cc5b4d0db7b37e.zip tcl-6149b214e82b319f46e5e41a30cc5b4d0db7b37e.tar.gz tcl-6149b214e82b319f46e5e41a30cc5b4d0db7b37e.tar.bz2 | |
merge 8.5
| -rw-r--r-- | tests/regexp.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/regexp.test b/tests/regexp.test index 9fff262..3ed0623 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -178,6 +178,10 @@ 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} { + regexp -inline -indices {(\w+)-(\w+)} \ + "gr\u00FC\u00DF-\u043F\u0440\u0438\u0432\u0435\u0442" +} {{0 10} {0 3} {5 10}} test regexp-4.1 {-nocase option to regexp} { regexp -nocase foo abcFOo |