diff options
| author | Steve Bennett <steveb@workware.net.au> | 2019-12-30 11:42:09 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2019-12-30 11:42:09 +1000 |
| commit | 8041a06372fa1dbbbf58c404bc98096ea2852a17 (patch) | |
| tree | 873b817def4e206031345fd1ddd030c4eacabac4 /tests/regexp.test | |
| parent | 32eed9197b9560356d7c81a65d4de9f06fe70081 (diff) | |
| download | jimtcl-8041a06372fa1dbbbf58c404bc98096ea2852a17.zip jimtcl-8041a06372fa1dbbbf58c404bc98096ea2852a17.tar.gz jimtcl-8041a06372fa1dbbbf58c404bc98096ea2852a17.tar.bz2 | |
regexp: Reset scanner position on failed optional group
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/regexp.test')
| -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 2e9b13e..03fdcbe 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -669,4 +669,8 @@ test reg-31.1 {[[:xdigit:]] behaves correctly when followed by [[:space:]]} { # Code used to produce {1 2:::DebugWin32 2 :::DebugWin32} !!! } {1 2 2 {}} +test reg-31.2 {scanner not reset in failed optional group} { + regexp -inline {^(?:(-)(?:(\w[\w-]*)\|)?)?(\w[\w-]*)$} -debug +} {-debug - {} debug} + testreport |