Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix releasetest.tcl so that output lines are less than 80 characters wide. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | mp-releasetest |
Files: | files | file ages | folders |
SHA1: |
aef177fef049f9ffb0d138b947326dc0 |
User & Date: | dan 2015-11-02 20:24:29.534 |
Context
2015-11-02
| ||
20:28 | Fix releasetest.tcl so that it does not choke if a test fails so badly that there is no log file. Add the --jobs switch to the usage message. (check-in: 20e96f521f user: dan tags: mp-releasetest) | |
20:24 | Fix releasetest.tcl so that output lines are less than 80 characters wide. (check-in: aef177fef0 user: dan tags: mp-releasetest) | |
18:32 | Add the "--jobs N" option to the releasetest.tcl script to allow tests to be run in parallel by N processes. N defaults to 1. (check-in: 3d29f912cb user: dan tags: mp-releasetest) | |
Changes
Changes to test/releasetest.tcl.
︙ | ︙ | |||
456 457 458 459 460 461 462 | set status FAIL incr ::NERR } else { set status Ok } set n [string length $title] | | | 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 | set status FAIL incr ::NERR } else { set status Ok } set n [string length $title] PUTS "finished: ${title}[string repeat . [expr {53-$n}]] $status $tm" if {$errmsg!=""} {PUTS " $errmsg"} flush stdout } incr G(nJob) -1 } else { set line [gets $fd] |
︙ | ︙ |