Check-in [966cb6e777]

Not logged in
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 sorting of test times in summary output, note we are sorting numbers.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 966cb6e77776f9f0c72e8d7aa1b7fb87aa4ccf76
User & Date: aku 2017-06-14 23:41:05
Context
2017-10-04
03:23
Fix handling of @owns when scanning file in a subdirectory of the sources. check-in: 8bd2dcddb1 user: aku tags: trunk
2017-06-14
23:41
Fix sorting of test times in summary output, note we are sorting numbers. check-in: 966cb6e777 user: aku tags: trunk
23:40
Bit of extended debugging in meta data handling. Fixed issue with name to use in the meta data of apps. check-in: 26eece52d6 user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to testsuite.tcl.

419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
    set tmp {}
    foreach k [lsort -dict [dict keys $times]] {
	lassign $k                   shell suite
	lassign [dict get $times $k] ntests sec usec
	lappend tmp [list $shell $suite $ntests $sec $usec]
    }

    # Sort tuples by time per test, and transpose into
    # columns. Add the header and footer lines.

    lappend sh Shell     =====
    lappend ts Testsuite =========
    lappend nt Tests     =====
    lappend ns Seconds   =======
    lappend us uSec/Test =========

    foreach item [lsort -index 4 -decreasing $tmp] {
	lassign $item shell suite ntests sec usec
	lappend sh $shell
	lappend ts $suite
	lappend nt $ntests
	lappend ns $sec
	lappend us $usec
    }






|
|







|







419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
    set tmp {}
    foreach k [lsort -dict [dict keys $times]] {
	lassign $k                   shell suite
	lassign [dict get $times $k] ntests sec usec
	lappend tmp [list $shell $suite $ntests $sec $usec]
    }

    # Sort tuples by time per test (longest taken at the top), and
    # transpose into columns. Add the header and footer lines.

    lappend sh Shell     =====
    lappend ts Testsuite =========
    lappend nt Tests     =====
    lappend ns Seconds   =======
    lappend us uSec/Test =========

    foreach item [lsort -index 4 -integer -decreasing $tmp] {
	lassign $item shell suite ntests sec usec
	lappend sh $shell
	lappend ts $suite
	lappend nt $ntests
	lappend ns $sec
	lappend us $usec
    }