diff options
| author | andy <andrew.m.goth@gmail.com> | 2016-12-13 01:27:25 (GMT) |
|---|---|---|
| committer | andy <andrew.m.goth@gmail.com> | 2016-12-13 01:27:25 (GMT) |
| commit | 06e138e871b01b6684e91910664bcefe1e01d969 (patch) | |
| tree | 4b39cc37d626c7bc7f25783832dbb58fa823ace4 /tests | |
| parent | 75abd6bb662ec2650847427da15a629842b3a63f (diff) | |
| parent | 6da0c767cd83c18aa8a2c152ad6b0298ea4f28ab (diff) | |
| download | tcl-lanam_array_for_impl.zip tcl-lanam_array_for_impl.tar.gz tcl-lanam_array_for_impl.tar.bz2 | |
Merge trunklanam_array_for_impl
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/cmdMZ.test | 2 | ||||
| -rw-r--r-- | tests/set-old.test | 7 |
2 files changed, 8 insertions, 1 deletions
diff --git a/tests/cmdMZ.test b/tests/cmdMZ.test index 2d68138..a5f3009 100644 --- a/tests/cmdMZ.test +++ b/tests/cmdMZ.test @@ -234,7 +234,7 @@ test cmdMZ-3.3 {Tcl_SourceObjCmd: error conditions} -constraints { test cmdMZ-3.4 {Tcl_SourceObjCmd: error conditions} -constraints { unixOrPc } -returnCodes error -body { - source a b + source a b c d e f } -match glob -result {wrong # args: should be "source*fileName"} test cmdMZ-3.5 {Tcl_SourceObjCmd: error in script} -body { set file [makeFile { diff --git a/tests/set-old.test b/tests/set-old.test index 3b0d48b..b2e7aa6 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 |