Tk Source Code

Check-in [b8129965]
Login

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

Overview
Comment:Add non-regression test btree-14.3 crashing before the fix in the previous commit [4bce1cc1].
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | revised_text | tip-466
Files: files | file ages | folders
SHA3-256: b8129965bef243d3a36217a83027d29aa55c7f1a4003ec85a9747bee20622971
User & Date: fvogel 2025-02-01 15:51:00
References
2025-02-01
15:52 Ticket [bdd1f645] Assertion failed when switching -elide in the revised text widget status still Open with 3 other changes artifact: a93588f2 user: fvogel
Context
2025-02-01
15:51
Add non-regression test btree-14.3 crashing before the fix in the previous commit [4bce1cc1]. Leaf check-in: b8129965 user: fvogel tags: revised_text, tip-466
15:08
Fix [bdd1f64523]: Assertion failed when switching -elide in the revised text widget check-in: 4bce1cc1 user: fvogel tags: revised_text, tip-466
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/textBTree.test.
945
946
947
948
949
950
951












952
953
954
955
956
957
958
    .t tag add sel 1.2 3.2
    # next line used to panic because of "Bad tag priority being toggled on"
    # (see bug [382da038c9])
    .t index "2.0 - 1 display line linestart"
} -cleanup {
    destroy .t
} -result {1.0}













test btree-15.1 {rebalance with empty node} -setup {
    destroy .t
} -body {
    text .t
    .t debug 1
    .t insert end "1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\n20\n21\n22\n23"







>
>
>
>
>
>
>
>
>
>
>
>







945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
    .t tag add sel 1.2 3.2
    # next line used to panic because of "Bad tag priority being toggled on"
    # (see bug [382da038c9])
    .t index "2.0 - 1 display line linestart"
} -cleanup {
    destroy .t
} -result {1.0}
test btree-14.3 {Bug [bdd1f64523] - switch the -elide state of a tag} -setup {
    destroy .t
    text .t
} -body {
    .t insert end "text_ellipse" tag_ellipse
    .t insert end "text_hidden"  tag_hidden
    .t tag configure tag_hidden   -elide 1
    .t tag configure tag_ellipse  -elide 1
    .t tag configure tag_hidden   -elide 0  ; # used to crash (assertion failed)
} -cleanup {
    destroy .t
} -result {}

test btree-15.1 {rebalance with empty node} -setup {
    destroy .t
} -body {
    text .t
    .t debug 1
    .t insert end "1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\n20\n21\n22\n23"