Commit 33a1a15d authored by Julien Lopez's avatar Julien Lopez

Fix tests and git hook

parent a348bcd9
This diff is collapsed.
...@@ -57,7 +57,7 @@ let test_print = ...@@ -57,7 +57,7 @@ let test_print =
(Printf.sprintf " Printing %s " s) >:: (fun _ -> (Printf.sprintf " Printing %s " s) >:: (fun _ ->
let t = parse_typ s in let t = parse_typ s in
Format.printf "String : %s\n" s; 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; Format.printf "Dump : %a\n\n" Types.dump t;
*) *)
......
...@@ -42,6 +42,6 @@ let rex = ...@@ -42,6 +42,6 @@ let rex =
;; ;;
let string = Sequence.star Types.Char.any ;; 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" Format.fprintf Format.std_formatter "\n"
...@@ -16,6 +16,10 @@ fi ...@@ -16,6 +16,10 @@ fi
echo "Testing lambda..." echo "Testing lambda..."
cd tests/lambda cd tests/lambda
make > /dev/null 2>&1 && ./lambdaTests.native > /dev/null 2>&1 && ./valueTests.native > /dev/null 2>&1 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..." echo "Cleaning..."
make clean > /dev/null 2>&1 make clean > /dev/null 2>&1
cd ../.. cd ../..
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment