diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-11-09 05:32:09 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-11-10 07:39:18 +1000 |
| commit | cd2e4d7831ccc468a11247596c7891a1df81f505 (patch) | |
| tree | 4ac931917f116ba9c9b73d1dd45614cfd30d4bba /tests | |
| parent | 5773653645346329ae65c8e7c865f43ffd7d9b0b (diff) | |
| download | jimtcl-cd2e4d7831ccc468a11247596c7891a1df81f505.zip jimtcl-cd2e4d7831ccc468a11247596c7891a1df81f505.tar.gz jimtcl-cd2e4d7831ccc468a11247596c7891a1df81f505.tar.bz2 | |
regex: add support for non-capturing parentheses
Tcl-compatible syntax: (?:...)
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/regmin.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/regmin.test b/tests/regmin.test index 15a1932..ed4f1cd 100644 --- a/tests/regmin.test +++ b/tests/regmin.test @@ -44,4 +44,12 @@ test regexpmin-2.2 {utf8 min repeat} utf8 { regexp -inline {a\u00df+?} a\udf\udf\udf\udf\ub5z } "a\udf" +test regexpmin-3.1 {non-capturing paren} { + regexp -inline {x(?:a|b)?} xababcabc +} {xa} + +test regexpmin-3.2 {non-capturing paren} { + regexp -inline {x(?:a|b)?.*(b|c)} xababcabc +} {xababcabc c} + testreport |