summaryrefslogtreecommitdiffstats
path: root/tests/regexp.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-07-26 13:21:30 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-07-26 13:21:30 (GMT)
commitc86bd1b78ad2eec0899db1c0927048cf9f0ed435 (patch)
treedc7fda1f50641956df70b65faf7ba9a1661861fd /tests/regexp.test
parent7fb69e61c80a0f943d0cbc01e7f4ba39eb2cb737 (diff)
downloadtcl-c86bd1b78ad2eec0899db1c0927048cf9f0ed435.zip
tcl-c86bd1b78ad2eec0899db1c0927048cf9f0ed435.tar.gz
tcl-c86bd1b78ad2eec0899db1c0927048cf9f0ed435.tar.bz2
[6585b21ca8] [regexp {(\w).*?\1} abb] failed to match.
Thanks to Tom Lane for passing on the discovery in Postgres.
Diffstat (limited to 'tests/regexp.test')
-rw-r--r--tests/regexp.test4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/regexp.test b/tests/regexp.test
index 8138054..362f425 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -728,6 +728,10 @@ test regexp-22.5 {Bug 3610026} -setup {
} -cleanup {
unset -nocomplain e cp
} -returnCodes error -match glob -result {*too many colors*}
+test regexp-22.6 {Bug 6585b21ca8} {
+ expr {[regexp {(\w).*?\1} Programmer m] ? $m : "<NONE>"}
+} rogr
+
test regexp-23.1 {regexp -all and -line} {
set string ""