Fossil SCM
Enhance some proc comments in 'tester.tcl'.
Commit
ea29d113c75fd38bccd612b56b4f48261e8501f3
Parent
a58b4a878ebe1b6…
1 file changed
+13
-2
+13
-2
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -87,17 +87,28 @@ | ||
| 87 | 87 | puts $out $msg |
| 88 | 88 | close $out |
| 89 | 89 | } |
| 90 | 90 | } |
| 91 | 91 | |
| 92 | -# Run the fossil program. | |
| 92 | +# Run the Fossil program with the specified arguments. | |
| 93 | +# | |
| 94 | +# Consults the VERBOSE global variable to determine if | |
| 95 | +# diagnostics should be emitted when no error is seen. | |
| 96 | +# Sets the CODE and RESULT global variables for use in | |
| 97 | +# test expressions. | |
| 93 | 98 | # |
| 94 | 99 | proc fossil {args} { |
| 95 | 100 | return [uplevel 1 fossil_maybe_answer [list ""] $args] |
| 96 | 101 | } |
| 97 | 102 | |
| 98 | -# Run the fossil program and possibly answer the first prompt. | |
| 103 | +# Run the Fossil program with the specified arguments | |
| 104 | +# and possibly answer the first prompt, if any. | |
| 105 | +# | |
| 106 | +# Consults the VERBOSE global variable to determine if | |
| 107 | +# diagnostics should be emitted when no error is seen. | |
| 108 | +# Sets the CODE and RESULT global variables for use in | |
| 109 | +# test expressions. | |
| 99 | 110 | # |
| 100 | 111 | proc fossil_maybe_answer {answer args} { |
| 101 | 112 | global fossilexe |
| 102 | 113 | set cmd $fossilexe |
| 103 | 114 | foreach a $args { |
| 104 | 115 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -87,17 +87,28 @@ | |
| 87 | puts $out $msg |
| 88 | close $out |
| 89 | } |
| 90 | } |
| 91 | |
| 92 | # Run the fossil program. |
| 93 | # |
| 94 | proc fossil {args} { |
| 95 | return [uplevel 1 fossil_maybe_answer [list ""] $args] |
| 96 | } |
| 97 | |
| 98 | # Run the fossil program and possibly answer the first prompt. |
| 99 | # |
| 100 | proc fossil_maybe_answer {answer args} { |
| 101 | global fossilexe |
| 102 | set cmd $fossilexe |
| 103 | foreach a $args { |
| 104 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -87,17 +87,28 @@ | |
| 87 | puts $out $msg |
| 88 | close $out |
| 89 | } |
| 90 | } |
| 91 | |
| 92 | # Run the Fossil program with the specified arguments. |
| 93 | # |
| 94 | # Consults the VERBOSE global variable to determine if |
| 95 | # diagnostics should be emitted when no error is seen. |
| 96 | # Sets the CODE and RESULT global variables for use in |
| 97 | # test expressions. |
| 98 | # |
| 99 | proc fossil {args} { |
| 100 | return [uplevel 1 fossil_maybe_answer [list ""] $args] |
| 101 | } |
| 102 | |
| 103 | # Run the Fossil program with the specified arguments |
| 104 | # and possibly answer the first prompt, if any. |
| 105 | # |
| 106 | # Consults the VERBOSE global variable to determine if |
| 107 | # diagnostics should be emitted when no error is seen. |
| 108 | # Sets the CODE and RESULT global variables for use in |
| 109 | # test expressions. |
| 110 | # |
| 111 | proc fossil_maybe_answer {answer args} { |
| 112 | global fossilexe |
| 113 | set cmd $fossilexe |
| 114 | foreach a $args { |
| 115 |