From e47c30bf431f3c8160b41384eedb538ba16578d0 Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Fri, 29 May 2015 15:41:15 +0200
Subject: 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.
---
 lib/flags.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/flags.ml')

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
-- 
cgit v1.2.3