Fossil SCM
Allow override, via the environment, to make 'require_no_open_checkout' into a NOP.
Commit
d1438b400b85dfe88a2c16469d050cbc380c5a55
Parent
b9558349f970e07…
1 file changed
+4
+4
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -190,10 +190,14 @@ | ||
| 190 | 190 | regsub -all { +\n} $y \n y |
| 191 | 191 | return [expr {$x==$y}] |
| 192 | 192 | } |
| 193 | 193 | |
| 194 | 194 | proc require_no_open_checkout {} { |
| 195 | + if {[info exists ::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT)] && \ | |
| 196 | + $::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT) eq "YES_DO_IT"} { | |
| 197 | + return | |
| 198 | + } | |
| 195 | 199 | catch {exec $::fossilexe info} res |
| 196 | 200 | if {![regexp {use --repository} $res]} { |
| 197 | 201 | set projectName <unknown> |
| 198 | 202 | set localRoot <unknown> |
| 199 | 203 | regexp -line -- {^project-name: (.*)$} $res dummy projectName |
| 200 | 204 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -190,10 +190,14 @@ | |
| 190 | regsub -all { +\n} $y \n y |
| 191 | return [expr {$x==$y}] |
| 192 | } |
| 193 | |
| 194 | proc require_no_open_checkout {} { |
| 195 | catch {exec $::fossilexe info} res |
| 196 | if {![regexp {use --repository} $res]} { |
| 197 | set projectName <unknown> |
| 198 | set localRoot <unknown> |
| 199 | regexp -line -- {^project-name: (.*)$} $res dummy projectName |
| 200 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -190,10 +190,14 @@ | |
| 190 | regsub -all { +\n} $y \n y |
| 191 | return [expr {$x==$y}] |
| 192 | } |
| 193 | |
| 194 | proc require_no_open_checkout {} { |
| 195 | if {[info exists ::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT)] && \ |
| 196 | $::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT) eq "YES_DO_IT"} { |
| 197 | return |
| 198 | } |
| 199 | catch {exec $::fossilexe info} res |
| 200 | if {![regexp {use --repository} $res]} { |
| 201 | set projectName <unknown> |
| 202 | set localRoot <unknown> |
| 203 | regexp -line -- {^project-name: (.*)$} $res dummy projectName |
| 204 |