Tcl Source Code

Check-in [4dca2189b0]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix typo in set-old.test
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-421 | bll-array-for
Files: files | file ages | folders
SHA3-256: 4dca2189b07e6f5ec2ed5b875e6aae28982ed21e8debc965b5d48f38d3818e3a
User & Date: fvogel 2017-10-25 17:31:09
Context
2018-03-05
16:49
Rebase TIP 421 implementation to core-8-branch (8.7). var-23.1[01] segfaults! check-in: 3d48c6641f user: dgp tags: tip-421
2017-10-25
17:31
Fix typo in set-old.test Closed-Leaf check-in: 4dca2189b0 user: fvogel tags: tip-421, bll-array-for
2017-10-24
21:24
'array for' implementation (TIP #421) from Brad Lanam check-in: 4d4e808594 user: fvogel tags: tip-421, bll-array-for
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/set-old.test.

648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
test set-old-8.52 {array command, array names -regexp on regexp pattern} {
    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 {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} {






|







648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
test set-old-8.52 {array command, array names -regexp on regexp pattern} {
    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 {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} {