diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-06-05 23:20:36 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-06-05 23:20:36 (GMT) |
| commit | f8223fa81718da26562fff851b4a56d18b58a62a (patch) | |
| tree | 2c47bdd025eab065e5f559ade49795a3acaf938e /tests/set-old.test | |
| parent | e9d31a334b4cbd18716b3c1eacf7f516cbc7286d (diff) | |
| parent | 0b178367ba3b9a10d44f89025c89292a4ea49b20 (diff) | |
| download | tcl-dkf_expose_ptrgetvar.zip tcl-dkf_expose_ptrgetvar.tar.gz tcl-dkf_expose_ptrgetvar.tar.bz2 | |
merge trunkdkf_expose_ptrgetvar
Diffstat (limited to 'tests/set-old.test')
| -rw-r--r-- | tests/set-old.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/set-old.test b/tests/set-old.test index 93169f1..309abaf 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 |