Fossil SCM
Included the answer text supplied to a fossil command when provided to fossil_maybe_answer in a call to protOut. This makes debugging tests using fossil http and a GET or POST to /json easier.
Commit
f34014308039bdd82caf0015ce44d27e1adb6d34
Parent
c2c49b3543e9bd0…
1 file changed
+1
+1
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -133,10 +133,11 @@ | ||
| 133 | 133 | } |
| 134 | 134 | protOut $cmd |
| 135 | 135 | |
| 136 | 136 | flush stdout |
| 137 | 137 | if {[string length $answer] > 0} { |
| 138 | + protOut $answer | |
| 138 | 139 | set prompt_file [file join $::tempPath fossil_prompt_answer] |
| 139 | 140 | write_file $prompt_file $answer\n |
| 140 | 141 | set rc [catch {eval exec $cmd <$prompt_file} result] |
| 141 | 142 | file delete $prompt_file |
| 142 | 143 | } else { |
| 143 | 144 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -133,10 +133,11 @@ | |
| 133 | } |
| 134 | protOut $cmd |
| 135 | |
| 136 | flush stdout |
| 137 | if {[string length $answer] > 0} { |
| 138 | set prompt_file [file join $::tempPath fossil_prompt_answer] |
| 139 | write_file $prompt_file $answer\n |
| 140 | set rc [catch {eval exec $cmd <$prompt_file} result] |
| 141 | file delete $prompt_file |
| 142 | } else { |
| 143 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -133,10 +133,11 @@ | |
| 133 | } |
| 134 | protOut $cmd |
| 135 | |
| 136 | flush stdout |
| 137 | if {[string length $answer] > 0} { |
| 138 | protOut $answer |
| 139 | set prompt_file [file join $::tempPath fossil_prompt_answer] |
| 140 | write_file $prompt_file $answer\n |
| 141 | set rc [catch {eval exec $cmd <$prompt_file} result] |
| 142 | file delete $prompt_file |
| 143 | } else { |
| 144 |