/ 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 Unified Diffs Ignore Whitespace Patch

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]