Fossil SCM
Add a '-keep' command line option to the test suite to prevent any test cleanup from taking place.
Commit
95f7fe5a8f65c5d59a43e1396b64c496e792d26d
Parent
e264125a2cb435f…
1 file changed
+10
+10
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -32,10 +32,18 @@ | ||
| 32 | 32 | [string length [file extension $fossilexe]] == 0} { |
| 33 | 33 | append fossilexe .exe |
| 34 | 34 | } |
| 35 | 35 | |
| 36 | 36 | set argv [lrange $argv 1 end] |
| 37 | + | |
| 38 | +set i [lsearch $argv -keep] | |
| 39 | +if {$i>=0} { | |
| 40 | + set KEEP 1 | |
| 41 | + set argv [lreplace $argv $i $i] | |
| 42 | +} else { | |
| 43 | + set KEEP 0 | |
| 44 | +} | |
| 37 | 45 | |
| 38 | 46 | set i [lsearch $argv -halt] |
| 39 | 47 | if {$i>=0} { |
| 40 | 48 | set HALT 1 |
| 41 | 49 | set argv [lreplace $argv $i $i] |
| @@ -238,10 +246,11 @@ | ||
| 238 | 246 | uplevel 1 [list test_cleanup] |
| 239 | 247 | return -code return |
| 240 | 248 | } |
| 241 | 249 | |
| 242 | 250 | proc test_cleanup {} { |
| 251 | + if {$::KEEP} {return}; # All cleanup disabled? | |
| 243 | 252 | if {![info exists ::tempRepoPath]} {return} |
| 244 | 253 | if {![file exists $::tempRepoPath]} {return} |
| 245 | 254 | if {![file isdirectory $::tempRepoPath]} {return} |
| 246 | 255 | set tempPathEnd [expr {[string length $::tempPath] - 1}] |
| 247 | 256 | if {[string length $::tempPath] == 0 || \ |
| @@ -265,10 +274,11 @@ | ||
| 265 | 274 | # unless forbidden by external forces. |
| 266 | 275 | if {![info exists ::tempKeepHome]} {delete_temporary_home} |
| 267 | 276 | } |
| 268 | 277 | |
| 269 | 278 | proc delete_temporary_home {} { |
| 279 | + if {$::KEEP} {return}; # All cleanup disabled? | |
| 270 | 280 | if {$::tcl_platform(platform) eq "windows"} { |
| 271 | 281 | robust_delete [file join $::tempHomePath _fossil] |
| 272 | 282 | } else { |
| 273 | 283 | robust_delete [file join $::tempHomePath .fossil] |
| 274 | 284 | } |
| 275 | 285 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -32,10 +32,18 @@ | |
| 32 | [string length [file extension $fossilexe]] == 0} { |
| 33 | append fossilexe .exe |
| 34 | } |
| 35 | |
| 36 | set argv [lrange $argv 1 end] |
| 37 | |
| 38 | set i [lsearch $argv -halt] |
| 39 | if {$i>=0} { |
| 40 | set HALT 1 |
| 41 | set argv [lreplace $argv $i $i] |
| @@ -238,10 +246,11 @@ | |
| 238 | uplevel 1 [list test_cleanup] |
| 239 | return -code return |
| 240 | } |
| 241 | |
| 242 | proc test_cleanup {} { |
| 243 | if {![info exists ::tempRepoPath]} {return} |
| 244 | if {![file exists $::tempRepoPath]} {return} |
| 245 | if {![file isdirectory $::tempRepoPath]} {return} |
| 246 | set tempPathEnd [expr {[string length $::tempPath] - 1}] |
| 247 | if {[string length $::tempPath] == 0 || \ |
| @@ -265,10 +274,11 @@ | |
| 265 | # unless forbidden by external forces. |
| 266 | if {![info exists ::tempKeepHome]} {delete_temporary_home} |
| 267 | } |
| 268 | |
| 269 | proc delete_temporary_home {} { |
| 270 | if {$::tcl_platform(platform) eq "windows"} { |
| 271 | robust_delete [file join $::tempHomePath _fossil] |
| 272 | } else { |
| 273 | robust_delete [file join $::tempHomePath .fossil] |
| 274 | } |
| 275 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -32,10 +32,18 @@ | |
| 32 | [string length [file extension $fossilexe]] == 0} { |
| 33 | append fossilexe .exe |
| 34 | } |
| 35 | |
| 36 | set argv [lrange $argv 1 end] |
| 37 | |
| 38 | set i [lsearch $argv -keep] |
| 39 | if {$i>=0} { |
| 40 | set KEEP 1 |
| 41 | set argv [lreplace $argv $i $i] |
| 42 | } else { |
| 43 | set KEEP 0 |
| 44 | } |
| 45 | |
| 46 | set i [lsearch $argv -halt] |
| 47 | if {$i>=0} { |
| 48 | set HALT 1 |
| 49 | set argv [lreplace $argv $i $i] |
| @@ -238,10 +246,11 @@ | |
| 246 | uplevel 1 [list test_cleanup] |
| 247 | return -code return |
| 248 | } |
| 249 | |
| 250 | proc test_cleanup {} { |
| 251 | if {$::KEEP} {return}; # All cleanup disabled? |
| 252 | if {![info exists ::tempRepoPath]} {return} |
| 253 | if {![file exists $::tempRepoPath]} {return} |
| 254 | if {![file isdirectory $::tempRepoPath]} {return} |
| 255 | set tempPathEnd [expr {[string length $::tempPath] - 1}] |
| 256 | if {[string length $::tempPath] == 0 || \ |
| @@ -265,10 +274,11 @@ | |
| 274 | # unless forbidden by external forces. |
| 275 | if {![info exists ::tempKeepHome]} {delete_temporary_home} |
| 276 | } |
| 277 | |
| 278 | proc delete_temporary_home {} { |
| 279 | if {$::KEEP} {return}; # All cleanup disabled? |
| 280 | if {$::tcl_platform(platform) eq "windows"} { |
| 281 | robust_delete [file join $::tempHomePath _fossil] |
| 282 | } else { |
| 283 | robust_delete [file join $::tempHomePath .fossil] |
| 284 | } |
| 285 |