/ Check-in [aef177fe]
Login

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 | SQL archive
Timelines: family | ancestors | descendants | both | mp-releasetest
Files: files | file ages | folders
SHA1: aef177fef049f9ffb0d138b947326dc0186b1f4f
User & Date: dan 2015-11-02 20:24:29
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: 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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/releasetest.tcl.

   456    456           set status FAIL
   457    457           incr ::NERR
   458    458         } else {
   459    459           set status Ok
   460    460         }
   461    461   
   462    462         set n [string length $title]
   463         -      PUTS "finished: ${title}[string repeat . [expr {63-$n}]] $status $tm"
          463  +      PUTS "finished: ${title}[string repeat . [expr {53-$n}]] $status $tm"
   464    464         if {$errmsg!=""} {PUTS "     $errmsg"}
   465    465         flush stdout
   466    466       }
   467    467   
   468    468       incr G(nJob) -1
   469    469     } else {
   470    470       set line [gets $fd]