summaryrefslogtreecommitdiffstats
path: root/tests/set-old.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2017-08-10 17:03:53 (GMT)
committerdgp <dgp@users.sourceforge.net>2017-08-10 17:03:53 (GMT)
commited3d8a5c300d7029bc85bc0c012386ae933e230f (patch)
tree84d168be09660df884bd93b669ec1c23a7b3836c /tests/set-old.test
parentd6e5a5012c055c7737f8f12ba124248812b4422a (diff)
downloadtcl-ed3d8a5c300d7029bc85bc0c012386ae933e230f.zip
tcl-ed3d8a5c300d7029bc85bc0c012386ae933e230f.tar.gz
tcl-ed3d8a5c300d7029bc85bc0c012386ae933e230f.tar.bz2
Backport [array names -regexp] should support backrefs
Diffstat (limited to 'tests/set-old.test')
-rw-r--r--tests/set-old.test7
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/set-old.test b/tests/set-old.test
index 1c68f91..6138ed8 100644
--- a/tests/set-old.test
+++ b/tests/set-old.test
@@ -652,6 +652,13 @@ test set-old-8.52 {array command, array names -regexp on regexp pattern} {
set a(11) 1
list [catch {lsort [array names a -regexp ^1]} msg] $msg
} {0 {1*2 11 12}}
+test set-old-8.52.1 {array command, array names -regexp, backrefs} {
+ catch {unset a}
+ set a(1*2) 1
+ set a(12) 1
+ set a(11) 1
+ list [catch {lsort [array names a -regexp {^(.)\1}]} msg] $msg
+} {0 11}
test set-old-8.53 {array command, array names -regexp} {
catch {unset a}
set a(-glob) 1