Fossil SCM
Improve on [c028f36de8] and list tests skipped tests due to require_no_open_checkout.
Commit
7a666efb6ae17575e2eae2bb341a0054753c05820b2c71d799761a16cb22e567
Parent
381f1ecbf55b68e…
1 file changed
+2
+2
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -433,10 +433,12 @@ | ||
| 433 | 433 | $::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT) eq "YES_DO_IT"} { |
| 434 | 434 | return |
| 435 | 435 | } |
| 436 | 436 | catch {exec $::fossilexe info} res |
| 437 | 437 | if {[regexp {local-root:} $res]} { |
| 438 | + global skipped_tests testfile | |
| 439 | + lappend skipped_tests $testfile | |
| 438 | 440 | set projectName <unknown> |
| 439 | 441 | set localRoot <unknown> |
| 440 | 442 | regexp -line -- {^project-name: (.*)$} $res dummy projectName |
| 441 | 443 | set projectName [string trim $projectName] |
| 442 | 444 | regexp -line -- {^local-root: (.*)$} $res dummy localRoot |
| 443 | 445 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -433,10 +433,12 @@ | |
| 433 | $::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT) eq "YES_DO_IT"} { |
| 434 | return |
| 435 | } |
| 436 | catch {exec $::fossilexe info} res |
| 437 | if {[regexp {local-root:} $res]} { |
| 438 | set projectName <unknown> |
| 439 | set localRoot <unknown> |
| 440 | regexp -line -- {^project-name: (.*)$} $res dummy projectName |
| 441 | set projectName [string trim $projectName] |
| 442 | regexp -line -- {^local-root: (.*)$} $res dummy localRoot |
| 443 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -433,10 +433,12 @@ | |
| 433 | $::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT) eq "YES_DO_IT"} { |
| 434 | return |
| 435 | } |
| 436 | catch {exec $::fossilexe info} res |
| 437 | if {[regexp {local-root:} $res]} { |
| 438 | global skipped_tests testfile |
| 439 | lappend skipped_tests $testfile |
| 440 | set projectName <unknown> |
| 441 | set localRoot <unknown> |
| 442 | regexp -line -- {^project-name: (.*)$} $res dummy projectName |
| 443 | set projectName [string trim $projectName] |
| 444 | regexp -line -- {^local-root: (.*)$} $res dummy localRoot |
| 445 |