Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
| Comment: | Fix releasetest.tcl so that output lines are less than 80 characters wide. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | mp-releasetest |
| Files: | files | file ages | folders |
| SHA1: |
aef177fef049f9ffb0d138b947326dc0 |
| User & Date: | dan 2015-11-02 20:24:29 |
|
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: 20e96f52 user: dan tags: mp-releasetest) | |
| 20:24 | Fix releasetest.tcl so that output lines are less than 80 characters wide. (check-in: aef177fe 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: 3d29f912 user: dan tags: mp-releasetest) | |
Changes to test/releasetest.tcl.
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 {63-$n}]] $status $tm"
if {$errmsg!=""} {PUTS " $errmsg"}
flush stdout
}
incr G(nJob) -1
} else {
set line [gets $fd]
|
| |
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]
|