/ Check-in [e565e026]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix the --dryrun option on the releasetest.tcl script.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | mp-releasetest
Files: files | file ages | folders
SHA1:e565e0261501e4c21e4ad3d12f9f5b24c761bf96
User & Date: dan 2015-11-02 20:52:20
Context
2015-11-02
21:05
Get things working better on Windows with MSVC. check-in: 22cc3e6c user: mistachkin tags: mp-releasetest
20:52
Fix the --dryrun option on the releasetest.tcl script. check-in: e565e026 user: dan tags: mp-releasetest
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/releasetest.tcl.

404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
...
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
# The slave then runs the "configure && make test" commands specified. It
# exits successfully if the tests passes, or with a non-zero error code
# otherwise.
#
proc run_slave_test {} {
  # Read global vars configuration from stdin.
  set V [gets stdin]
  foreach {::TRACE} $V {}

  # Read the test-suite configuration from stdin.
  set T [gets stdin]
  foreach {title dir configOpts testtarget cflags opts} $T {}

  # Create and switch to the test directory.
  trace_cmd file mkdir $dir
................................................................................
      # Run the job.
      #
      set tm1 [clock seconds]
      incr G(nJob)
      set fd [open "|[info nameofexecutable] [info script] --slave" r+]
      fconfigure $fd -blocking 0
      fileevent $fd readable [list slave_fileevent $fd $T $tm1]
      puts $fd [list $::TRACE]
      puts $fd [list {*}$T]
      flush $fd
    }
  }
}

proc add_test_suite {listvar name testtarget config} {







|







 







|







404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
...
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
# The slave then runs the "configure && make test" commands specified. It
# exits successfully if the tests passes, or with a non-zero error code
# otherwise.
#
proc run_slave_test {} {
  # Read global vars configuration from stdin.
  set V [gets stdin]
  foreach {::TRACE ::MSVC ::DRYRUN} $V {}

  # Read the test-suite configuration from stdin.
  set T [gets stdin]
  foreach {title dir configOpts testtarget cflags opts} $T {}

  # Create and switch to the test directory.
  trace_cmd file mkdir $dir
................................................................................
      # Run the job.
      #
      set tm1 [clock seconds]
      incr G(nJob)
      set fd [open "|[info nameofexecutable] [info script] --slave" r+]
      fconfigure $fd -blocking 0
      fileevent $fd readable [list slave_fileevent $fd $T $tm1]
      puts $fd [list $::TRACE $::MSVC $::DRYRUN]
      puts $fd [list {*}$T]
      flush $fd
    }
  }
}

proc add_test_suite {listvar name testtarget config} {