[sledge] Improve tracing in unit tests

Summary:
It is more convenient, and harder to misunderstand, if the verbose
tracing setting comes commented-out after the default non-verbose
setting.

Reviewed By: jvillard

Differential Revision: D20583755

fbshipit-source-id: 06ecb0e9a

sledge/lib/equality_test.ml

@@ -5,11 +5,13 @@
  * LICENSE file in the root directory of this source tree.
  *)
 
+(* [@@@warning "-32"] *)
+
 let%test_module _ =
   ( module struct
     open Equality
 
-    let () = Trace.init ~margin:68 ~config:Trace.none ()
+    let () = Trace.init ~margin:68 ()
 
     (* let () =
      *   Trace.init ~margin:160

sledge/lib/exp_test.ml

@@ -7,9 +7,10 @@
 
 let%test_module _ =
   ( module struct
-    (* let () = Trace.init ~margin:68 ~config:Trace.all () *)
     let () = Trace.init ~margin:68 ()
 
+    (* let () = Trace.init ~margin:68 ~config:Trace.all () *)
+
     open Exp
 
     let pp e = Format.printf "@\n{desc= %a; term= %a}@." pp e Term.pp e.term

sledge/lib/sh_test.ml

@@ -5,14 +5,17 @@
  * LICENSE file in the root directory of this source tree.
  *)
 
+(* [@@@warning "-32"] *)
+
 let%test_module _ =
   ( module struct
     open Sh
 
+    let () = Trace.init ~margin:68 ()
+
     (* let () =
      *   Trace.init ~margin:160 ~config:(Result.ok_exn (Trace.parse "+Sh")) () *)
 
-    let () = Trace.init ~margin:68 ~config:Trace.none ()
     let pp = Format.printf "@\n%a@." pp
     let pp_raw = Format.printf "@\n%a@." pp_raw
     let pp_djn = Format.printf "@\n%a@." pp_djn

sledge/lib/solver_test.ml

@@ -5,6 +5,8 @@
  * LICENSE file in the root directory of this source tree.
  *)
 
+(* [@@@warning "-32"] *)
+
 let%test_module _ =
   ( module struct
     let () =

sledge/lib/term_test.ml

@@ -5,11 +5,14 @@
  * LICENSE file in the root directory of this source tree.
  *)
 
+(* [@@@warning "-32"] *)
+
 let%test_module _ =
   ( module struct
-    (* let () = Trace.init ~margin:68 ~config:Trace.all () *)
     let () = Trace.init ~margin:68 ()
 
+    (* let () = Trace.init ~margin:68 ~config:Trace.all () *)
+
     open Term
 
     let pp = Format.printf "@\n%a@." pp