diff options
| author | Emilio Jesus Gallego Arias | 2019-03-01 19:32:08 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-03-01 19:32:08 +0100 |
| commit | 53240d3248ce1fb36ab99036186eda9051fbb068 (patch) | |
| tree | 9be346deef1c71458aab59da474a4eb2d8a19579 /vernac | |
| parent | 1e03d1e666e74b95b9936bfdd6f04d54c607c37f (diff) | |
| parent | f13a56cad95dae05b63b735fd6eb6bd4596f9a00 (diff) | |
Merge PR #9676: Move test_mode from Flags to Vernacentries (use point)
Reviewed-by: ejgallego
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 4 | ||||
| -rw-r--r-- | vernac/vernacentries.mli | 4 |
2 files changed, 7 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 11b64a5247..d9d824ad98 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -2377,6 +2377,8 @@ let locate_if_not_already ?loc (e, info) = exception HasNotFailed exception HasFailed of Pp.t +let test_mode = ref false + (* XXX STATE: this type hints that restoring the state should be the caller's responsibility *) let with_fail st b f = @@ -2402,7 +2404,7 @@ let with_fail st b f = | HasNotFailed -> user_err ~hdr:"Fail" (str "The command has not failed!") | HasFailed msg -> - if not !Flags.quiet || !Flags.test_mode then Feedback.msg_info + if not !Flags.quiet || !test_mode then Feedback.msg_info (str "The command has indeed failed with message:" ++ fnl () ++ msg) | _ -> assert false end diff --git a/vernac/vernacentries.mli b/vernac/vernacentries.mli index 4fbd3849b0..f43cec48e9 100644 --- a/vernac/vernacentries.mli +++ b/vernac/vernacentries.mli @@ -41,3 +41,7 @@ val command_focus : unit Proof.focus_kind val interp_redexp_hook : (Environ.env -> Evd.evar_map -> Genredexpr.raw_red_expr -> Evd.evar_map * Redexpr.red_expr) Hook.t + +(* Flag set when the test-suite is called. Its only effect to display + verbose information for `Fail` *) +val test_mode : bool ref |