Fix tests and git hook

tests/libtest/printTest.ml

@@ -57,7 +57,7 @@ let test_print =
       (Printf.sprintf " Printing %s " s) >:: (fun _ ->
           let t = parse_typ s in
           Format.printf "String : %s\n" s;
-          Format.printf "Print : %a\n\n" Types.Print.print t;
+          Format.printf "Print : %a\n\n" Types.Print.pp_value t;
           (*
           Format.printf "Dump : %a\n\n" Types.dump t;
           *)

tests/misc/build_types.ml

@@ -42,6 +42,6 @@ let rex =
 ;;
 
 let string = Sequence.star Types.Char.any ;;
-Types.Print.print Format.std_formatter rex;
+Types.Print.pp_value Format.std_formatter rex;
 Format.fprintf Format.std_formatter "\n"
 

tools/git_hooks/debug/pre-commit

@@ -16,6 +16,10 @@ fi
 echo "Testing lambda..."
 cd tests/lambda
 make > /dev/null 2>&1 && ./lambdaTests.native > /dev/null 2>&1 && ./valueTests.native > /dev/null 2>&1
+if test $? -ne 0; then
+   echo "Tests failed. Aborting commit."
+   exit 2
+fi
 echo "Cleaning..."
 make clean > /dev/null 2>&1
 cd ../..