Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix the releasetest-out.txt log output from releasetest.tcl so that it works when the --jobs option is used. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
6bb314a5022c8bae63f6cdb48652915e |
User & Date: | drh 2015-11-13 12:52:34.131 |
Context
2015-11-13
| ||
13:15 | Add the --transaction option to the sqldiff tool. (check-in: 8882d1f3ef user: drh tags: trunk) | |
12:52 | Fix the releasetest-out.txt log output from releasetest.tcl so that it works when the --jobs option is used. (check-in: 6bb314a502 user: drh tags: trunk) | |
12:32 | Disable two PRAGMA cache_spill tests when MEMORY_MANAGEMENT is enabled. (check-in: ebda77aad4 user: drh tags: trunk) | |
Changes
Changes to test/releasetest.tcl.
︙ | ︙ | |||
302 303 304 305 306 307 308 | if {0==[info exists ::Configs($v)]} { puts stderr "No such configuration: \"$v\"" exit -1 } } } | | > | | < | | > > | | > | > > > | | | | | > > > > > > > > > > > | 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 | if {0==[info exists ::Configs($v)]} { puts stderr "No such configuration: \"$v\"" exit -1 } } } # Output log. Disabled for slave interpreters. # if {[lindex $argv end]!="--slave"} { set LOG [open releasetest-out.txt w] proc PUTS {txt} { puts $txt puts $::LOG $txt flush $::LOG } proc PUTSNNL {txt} { puts -nonewline $txt puts -nonewline $::LOG $txt flush $::LOG } proc PUTSERR {txt} { puts stderr $txt puts $::LOG $txt flush $::LOG } puts $LOG "$argv0 $argv" set tm0 [clock format [clock seconds] -format {%Y-%m-%d %H:%M:%S} -gmt 1] puts $LOG "start-time: $tm0 UTC" } else { proc PUTS {txt} { puts $txt } proc PUTSNNL {txt} { puts -nonewline $txt } proc PUTSERR {txt} { puts stderr $txt } } # Open the file $logfile and look for a report on the number of errors # and the number of test cases run. Add these values to the global # $::NERRCASE and $::NTESTCASE variables. # # If any errors occur, then write into $errmsgVar the text of an appropriate # one-line error message to show on the output. |
︙ | ︙ | |||
805 806 807 808 809 810 811 | -enable-* - -disable-* - *=* { lappend ::EXTRACONFIG [lindex $argv $i] } default { | | | | | 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 | -enable-* - -disable-* - *=* { lappend ::EXTRACONFIG [lindex $argv $i] } default { PUTSERR stderr "" PUTSERR stderr [string trim $::USAGE_MESSAGE] exit -1 } } } if {0==[info exists ::Platforms($platform)]} { PUTS "Unknown platform: $platform" PUTSNNL "Set the -platform option to " set print [list] foreach p [array names ::Platforms] { lappend print "\"$p\"" } lset print end "or [lindex $print end]" PUTS "[join $print {, }]." exit |
︙ | ︙ | |||
840 841 842 843 844 845 846 | } } else { set ::CONFIGLIST $::Platforms($platform) } } PUTS "Running the following test configurations for $platform:" PUTS " [string trim $::CONFIGLIST]" | | | | | | | | | | 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 | } } else { set ::CONFIGLIST $::Platforms($platform) } } PUTS "Running the following test configurations for $platform:" PUTS " [string trim $::CONFIGLIST]" PUTSNNL "Flags:" if {$::PROGRESS_MSGS} {PUTSNNL " --progress"} if {$::DRYRUN} {PUTSNNL " --dryrun"} if {$::BUILDONLY} {PUTSNNL " --buildonly"} if {$::MSVC} {PUTSNNL " --msvc"} switch -- $::QUICK { 1 {PUTSNNL " --quick"} 2 {PUTSNNL " --veryquick"} } if {$::JOBS>1} {PUTSNNL " --jobs $::JOBS"} PUTS "" } # Main routine. # proc main {argv} { |
︙ | ︙ |