diff options
| author | Enrico Tassi | 2015-05-29 15:41:15 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2015-05-29 15:44:47 +0200 |
| commit | e47c30bf431f3c8160b41384eedb538ba16578d0 (patch) | |
| tree | 24cfa371ee2aa5ed996a88af9346ff448d150d99 /lib | |
| parent | f63c0cdd3c7da642e505569e83199784bbfdc367 (diff) | |
Flag -test-mode intended to be used for ad-hoc prints in test-suite
Of course there is an exception to the previous commit.
Fail used to print even if silenced but loading a vernac file.
This behavior is useful only in tests, hence this flag.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 2 | ||||
| -rw-r--r-- | lib/flags.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 313da0c5bd..009caa9dee 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -48,6 +48,8 @@ let batch_mode = ref false type compilation_mode = BuildVo | BuildVio | Vio2Vo let compilation_mode = ref BuildVo +let test_mode = ref false + type async_proofs = APoff | APonLazy | APon let async_proofs_mode = ref APoff type cache = Force diff --git a/lib/flags.mli b/lib/flags.mli index 1f68a88f3a..544e2a72ae 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -15,6 +15,8 @@ val batch_mode : bool ref type compilation_mode = BuildVo | BuildVio | Vio2Vo val compilation_mode : compilation_mode ref +val test_mode : bool ref + type async_proofs = APoff | APonLazy | APon val async_proofs_mode : async_proofs ref type cache = Force |