From 38c389a29e8ff582ba32c7737bb90f0f0df12078 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Sun, 27 Oct 2019 20:46:56 +1000 Subject: regexp, regsub: -start is a character index Not a byte index Reported-by: dbohdan Signed-off-by: Steve Bennett --- tests/regexp2.test | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'tests/regexp2.test') diff --git a/tests/regexp2.test b/tests/regexp2.test index f7cf516..76735e6 100644 --- a/tests/regexp2.test +++ b/tests/regexp2.test @@ -627,7 +627,12 @@ test regexpComp-16.3 {regsub -start} { # lappend out [regsub -start 0 -all {\A(\w)} {abcde} {/\1} x] $x # lappend out [regsub -start 2 -all {\A(\w)} {abcde} {/\1} x] $x #} {5 /a/b/c/d/e 3 ab/c/d/e} - +test regexpComp-16.5 {regexp -start with utf8} utf8 { + regexp -inline -start 1 . \u0442\u0435\u0441\u0442 +} \u0435 +test regexpComp-16.6 {regexp -start with utf8} utf8 { + regsub -start 1 . \u0442\u0435\u0441\u0442 x +} \u0442x\u0441\u0442 test regexpComp-17.1 {regexp -inline} { regexp -inline b ababa } {b} -- cgit v1.1