diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-10-17 16:58:08 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-11-17 07:57:37 +1000 |
| commit | f86ed51e9b0f38954519ca21a623d27bc7c80a88 (patch) | |
| tree | f7e098e29695bb778e1a722a8e48ced6fa14ab59 /tests/regcount.test | |
| parent | b98537c32b9e481fe8b0653efcfeab950f5a8e87 (diff) | |
| download | jimtcl-f86ed51e9b0f38954519ca21a623d27bc7c80a88.zip jimtcl-f86ed51e9b0f38954519ca21a623d27bc7c80a88.tar.gz jimtcl-f86ed51e9b0f38954519ca21a623d27bc7c80a88.tar.bz2 | |
Add UTF-8 support to regexp
Plus various ARE enhancements and bug fixes
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/regcount.test')
| -rw-r--r-- | tests/regcount.test | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/tests/regcount.test b/tests/regcount.test new file mode 100644 index 0000000..4b4d106 --- /dev/null +++ b/tests/regcount.test @@ -0,0 +1,35 @@ +source testing.tcl + +# Test regexp counted repetitions + +set n 0 +foreach {pat str exp} { + a+ bac 1 + a{1,} bac 1 + a* bac 1 + a{0,} bac 1 + aa+ bac 0 + a{2,} bac 0 + a{2,} bacaad 1 + a{3,} bacaad 0 + a{2,}$ bacaad 0 + a{2,}$ bacaa 1 + a{2,}$ ba 0 + a{2,}$ aa 1 + a{0,0}b$ b 1 + a{1,1}b$ b 0 + a{1,1}b$ cab 1 + a{2,2}b$ cab 0 + a{2,2}b$ cabaabx 0 + a{2,2}b$ cacaab 1 + ca{2,4}b cacaab 1 + ca{2,3}b cacaab 1 + ca{2,3}b cacaaab 1 + c(a|b){2,3}d xcbad 1 + c(a|b){2,3}d xcabbd 1 + c(a|b){2,3}d xcbaaad 0 +} { + test regcount-1.[incr n] "Test: regexp $pat" [list regexp -- $pat $str] $exp +} + +testreport |