Set $MCTUTILS_TRUNCATE to 50 by default

Author: shym

dune

@@ -1,5 +1,11 @@
 (env
- (debug-runtime (link_flags :standard -runtime-variant=d))
+ (debug-runtime
+  (link_flags :standard -runtime-variant=d)
+  (env-vars
+   (MCTUTILS_TRUNCATE 50)))
+ (_
+  (env-vars
+   (MCTUTILS_TRUNCATE 50)))
 )
 
 ;; make `dune build` target a recursive default target

test/dune

@@ -10,7 +10,10 @@
  (name util_pp)
  (modules util_pp)
  (package qcheck-multicoretests-util)
- (libraries qcheck-multicoretests-util))
+ (libraries qcheck-multicoretests-util)
+ (action
+  (setenv MCTUTILS_TRUNCATE ""
+   (run %{dep:util_pp.exe}))))
 
 (rule
  (alias runtest)