Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Get things working better on Windows with MSVC. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | mp-releasetest |
Files: | files | file ages | folders |
SHA1: |
22cc3e6c8e7f7eed854f8a50138ccb9c |
User & Date: | mistachkin 2015-11-02 21:05:56.617 |
Context
2015-11-02
| ||
23:21 | Fix the backcompat.test module so that it does not try to compare against itself on windows. (check-in: f625bce8b7 user: drh tags: mp-releasetest) | |
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) | |
Changes
Changes to test/releasetest.tcl.
︙ | ︙ | |||
420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 | catch {file delete core} catch {file delete test.log} # Run the "./configure && make" commands. set rc 0 set rc [catch [configureCommand $configOpts]] if {!$rc} { set rc [catch [makeCommand $testtarget $cflags $opts]] } # Exis successfully if the test passed, or with a non-zero error code # otherwise. exit $rc } | > > > > > > > > > > > | 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 | catch {file delete core} catch {file delete test.log} # Run the "./configure && make" commands. set rc 0 set rc [catch [configureCommand $configOpts]] if {!$rc} { if {[info exists ::env(TCLSH_CMD)]} { set savedEnv(TCLSH_CMD) $::env(TCLSH_CMD) } else { unset -nocomplain savedEnv(TCLSH_CMD) } set ::env(TCLSH_CMD) [file nativename [info nameofexecutable]] set rc [catch [makeCommand $testtarget $cflags $opts]] if {[info exists savedEnv(TCLSH_CMD)]} { set ::env(TCLSH_CMD) $savedEnv(TCLSH_CMD) } else { unset -nocomplain ::env(TCLSH_CMD) } } # Exis successfully if the test passed, or with a non-zero error code # otherwise. exit $rc } |
︙ | ︙ | |||
514 515 516 517 518 519 520 | flush stdout } # Run the job. # set tm1 [clock seconds] incr G(nJob) | > | | 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 | flush stdout } # Run the job. # set tm1 [clock seconds] incr G(nJob) set script [file normalize [info script]] set fd [open "|[info nameofexecutable] $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 } } |
︙ | ︙ |