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 Unified Diffs Show Whitespace Changes Patch

Changes to tests/list.test.

119
120
121
122
123
124
125



126
127
128
129
	set list [string trim " $list "]
	if {[llength $list] > 1 || $i ne [lindex $list 0]} {
	    lappend result "wrong string-representation of list by '$i', length: [llength $list], list: '$list'"
	}
    }
    set result [join $result \n]
} {}




# cleanup
::tcltest::cleanupTests
return







>
>
>




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

# cleanup
::tcltest::cleanupTests
return