Tcl Source Code

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

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

Overview
Comment:Additional test
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-35a8f1c04a
Files: files | file ages | folders
SHA3-256:94ad0517c549a915b4734b051f7341379d340a4c9ccc0d5c0c2d02693927b228
User & Date: dgp 2018-11-09 15:47:37
Context
2018-11-09
16:00
[35a8f1c04a] Fix bad lengths when creating string rep of some lists. check-in: b2575c74bc user: dgp tags: core-8-5-branch
15:47
Additional test Closed-Leaf check-in: 94ad0517c5 user: dgp tags: bug-35a8f1c04a
15:39
Revise bug fix to support (length == 0) correctly. Added comments and improved safety in caller. check-in: 3b0bc7a6e1 user: dgp tags: bug-35a8f1c04a
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/list.test.

   119    119   	set list [string trim " $list "]
   120    120   	if {[llength $list] > 1 || $i ne [lindex $list 0]} {
   121    121   	    lappend result "wrong string-representation of list by '$i', length: [llength $list], list: '$list'"
   122    122   	}
   123    123       }
   124    124       set result [join $result \n]
   125    125   } {}
          126  +test list-4.3 {Bug 35a8f1c04a, check correct string length} {
          127  +    string length [list #""]
          128  +} 5
   126    129   
   127    130   # cleanup
   128    131   ::tcltest::cleanupTests
   129    132   return