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