regex: counts were not all being cleared

If a cached regex containing counts was reused, the result
may have been incorrect.

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 6 insertions, 0 deletions

diff --git a/tests/regcount.test b/tests/regcount.test
index 6b05686..96f4ddd 100644
--- a/tests/regcount.test
+++ b/tests/regcount.test
@@ -103,4 +103,10 @@ foreach {pat str exp} {
 	test regcount-1.[incr n] "Test: regexp $pat $str" [list regexp -inline -- $pat $str] $exp
 }
 
+test regcount-2.1 "regexp counts cleared" {
+	set re "((a|b){1,2}(c{2,3}))"
+	regexp -inline $re xabcccce
+	regexp -inline $re xabcccce
+} {abccc abccc b ccc}
+
 testreport