Fossil SCM
Update tester.tcl to reflect changes to 'fossil info' behavior in [1da8afdf].
Commit
6a8477a5f41c56ddf820f8bd5c06fce8b38f15e4f9fda293d4be9a341d4ffc0b
Parent
ac4ddd88930f1a6…
1 file changed
+1
-1
+1
-1
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -391,11 +391,11 @@ | ||
| 391 | 391 | if {[info exists ::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT)] && \ |
| 392 | 392 | $::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT) eq "YES_DO_IT"} { |
| 393 | 393 | return |
| 394 | 394 | } |
| 395 | 395 | catch {exec $::fossilexe info} res |
| 396 | - if {![regexp {use --repository} $res]} { | |
| 396 | + if {[regexp {local-root:} $res]} { | |
| 397 | 397 | set projectName <unknown> |
| 398 | 398 | set localRoot <unknown> |
| 399 | 399 | regexp -line -- {^project-name: (.*)$} $res dummy projectName |
| 400 | 400 | set projectName [string trim $projectName] |
| 401 | 401 | regexp -line -- {^local-root: (.*)$} $res dummy localRoot |
| 402 | 402 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -391,11 +391,11 @@ | |
| 391 | if {[info exists ::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT)] && \ |
| 392 | $::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT) eq "YES_DO_IT"} { |
| 393 | return |
| 394 | } |
| 395 | catch {exec $::fossilexe info} res |
| 396 | if {![regexp {use --repository} $res]} { |
| 397 | set projectName <unknown> |
| 398 | set localRoot <unknown> |
| 399 | regexp -line -- {^project-name: (.*)$} $res dummy projectName |
| 400 | set projectName [string trim $projectName] |
| 401 | regexp -line -- {^local-root: (.*)$} $res dummy localRoot |
| 402 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -391,11 +391,11 @@ | |
| 391 | if {[info exists ::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT)] && \ |
| 392 | $::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT) eq "YES_DO_IT"} { |
| 393 | return |
| 394 | } |
| 395 | catch {exec $::fossilexe info} res |
| 396 | if {[regexp {local-root:} $res]} { |
| 397 | set projectName <unknown> |
| 398 | set localRoot <unknown> |
| 399 | regexp -line -- {^project-name: (.*)$} $res dummy projectName |
| 400 | set projectName [string trim $projectName] |
| 401 | regexp -line -- {^local-root: (.*)$} $res dummy localRoot |
| 402 |