diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-06-05 08:34:43 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-06-05 08:34:43 +1000 |
| commit | 9049b0e26eb017529d11c9b2375d978c94a04c20 (patch) | |
| tree | 5ec25b899bbb19cff5cb13e4c050967a765e63dd /tests/regmin.test | |
| parent | ca9506bfcc6143a617b1b4579e0b304a3bbf00f4 (diff) | |
| download | jimtcl-9049b0e26eb017529d11c9b2375d978c94a04c20.zip jimtcl-9049b0e26eb017529d11c9b2375d978c94a04c20.tar.gz jimtcl-9049b0e26eb017529d11c9b2375d978c94a04c20.tar.bz2 | |
Fix simple * and + case for utf-8
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/regmin.test')
| -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 5ffe808..8ff1eb2 100644 --- a/tests/regmin.test +++ b/tests/regmin.test @@ -36,4 +36,12 @@ test regexpmin-1.8 {Minimal html} { regexp -inline {<(.+?)>} <foo><bar><grill> } {<foo> foo} +test regexpmin-2.1 {utf8 repeat} { + regexp -inline {a\u00df+} a\udf\udf\udf\udf\ub5z +} "a\udf\udf\udf\udf" + +test regexpmin-2.2 {utf8 min repeat} { + regexp -inline {a\u00df+?} a\udf\udf\udf\udf\ub5z +} "a\udf" + testreport |