SQLite

Check-in [e565e02615]
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
Timelines: family | ancestors | descendants | both | mp-releasetest
Files: files | file ages | folders
SHA1: e565e0261501e4c21e4ad3d12f9f5b24c761bf96
User & Date: dan 2015-11-02 20:52:20.250
Context
2015-11-02
21:05
Get things working better on Windows with MSVC. (check-in: 22cc3e6c8e user: mistachkin tags: mp-releasetest)
20:52
Fix the --dryrun option on the releasetest.tcl script. (check-in: e565e02615 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: 20e96f521f user: dan tags: mp-releasetest)
Changes
Unified Diff Ignore Whitespace Patch
Changes to test/releasetest.tcl.
︙︙
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418

# 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








|








404
405
406
407
408
409
410
411
412
413
414
415
416
417
418

# 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
︙︙
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531

      # 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} {








|








517
518
519
520
521
522
523
524
525
526
527
528
529
530
531

      # 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} {
︙︙