Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | In the test suite, require the configured temporary directory to be valid prior to attempting to run any tests. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
e2bd4bfced4915d381ac6089b6c5d8e2 |
User & Date: | mistachkin 2016-01-06 03:38:35 |
Context
2016-01-06
| ||
03:49 | Adjust two markdown tests so they pass again. ... (check-in: a489aecc user: mistachkin tags: trunk) | |
03:38 | In the test suite, require the configured temporary directory to be valid prior to attempting to run any tests. ... (check-in: e2bd4bfc user: mistachkin tags: trunk) | |
2016-01-05
| ||
04:52 | Update the built-in SQLite to the next 3.10.0 beta. ... (check-in: cd58f59a user: drh tags: trunk) | |
Changes
Changes to test/tester.tcl.
︙ | ︙ | |||
55 56 57 58 59 60 61 | if {[llength $argv]==0} { foreach f [lsort [glob $testdir/*.test]] { set base [file root [file tail $f]] lappend argv $base } } | < < < < < < < | 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | if {[llength $argv]==0} { foreach f [lsort [glob $testdir/*.test]] { set base [file root [file tail $f]] lappend argv $base } } # start protocol # proc protInit {cmd} { if {$::PROT} { set out [open [file join $::testrundir prot] w] fconfigure $out -translation platform puts $out "starting tests with: $cmd" |
︙ | ︙ | |||
252 253 254 255 256 257 258 | } # Saves the TH1 setup script file by renaming it, based on the current # process ID. # proc saveTh1SetupFile {} { set oldFileName [getTh1SetupFileName] | | | | 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 | } # Saves the TH1 setup script file by renaming it, based on the current # process ID. # proc saveTh1SetupFile {} { set oldFileName [getTh1SetupFileName] if {[file exists $oldFileName]} { set newFileName [getSavedTh1SetupFileName] catch {file delete $newFileName} file rename $oldFileName $newFileName } } # Restores the original TH1 setup script file by renaming it back, based # on the current process ID. # proc restoreTh1SetupFile {} { set oldFileName [getSavedTh1SetupFileName] set newFileName [getTh1SetupFileName] if {[file exists $oldFileName]} { catch {file delete $newFileName} file rename $oldFileName $newFileName } else { # # NOTE: There was no TH1 setup script file, delete the test one. # file delete $newFileName |
︙ | ︙ | |||
365 366 367 368 369 370 371 | set outFileName [file join $::tempPath [appendArgs test-http-out- $suffix]] set data [subst [read_file $dataFileName]] write_file $inFileName $data fossil http $inFileName $outFileName 127.0.0.1 $repository --localauth set result [expr {[file exists $outFileName] ? [read_file $outFileName] : ""}] | | | 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 | set outFileName [file join $::tempPath [appendArgs test-http-out- $suffix]] set data [subst [read_file $dataFileName]] write_file $inFileName $data fossil http $inFileName $outFileName 127.0.0.1 $repository --localauth set result [expr {[file exists $outFileName] ? [read_file $outFileName] : ""}] if {1} { catch {file delete $inFileName} catch {file delete $outFileName} } return $result } |
︙ | ︙ | |||
416 417 418 419 420 421 422 423 424 425 426 427 428 429 | return [lindex [split [normalize_result] \n] end-1] } # returns the third to last line of the normalized result. proc third_to_last_data_line {} { return [lindex [split [normalize_result] \n] end-2] } protInit $fossilexe foreach testfile $argv { set dir [file root [file tail $testfile]] file delete -force $dir file mkdir $dir set origwd [pwd] | > > > > > > > > > > > > > > | 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 | return [lindex [split [normalize_result] \n] end-1] } # returns the third to last line of the normalized result. proc third_to_last_data_line {} { return [lindex [split [normalize_result] \n] end-2] } set tempPath [expr {[info exists env(TEMP)] ? \ $env(TEMP) : [file dirname [info script]]}] if {$tcl_platform(platform) eq "windows"} { set tempPath [string map [list \\ /] $tempPath] } if {[catch { write_file [file join $tempPath temporary.txt] [clock seconds] } error] != 0} { error "could not write file to directory \"$tempPath\",\ please set TEMP variable in environment: $error" } protInit $fossilexe foreach testfile $argv { set dir [file root [file tail $testfile]] file delete -force $dir file mkdir $dir set origwd [pwd] |
︙ | ︙ |