Test every book test case

[tiger.ml.git] / compiler / src / exe / tigert.ml

diff --git a/compiler/src/exe/tigert.ml b/compiler/src/exe/tigert.ml
index bd7e12d..10b5cbe 100644 (file)
--- a/compiler/src/exe/tigert.ml
+++ b/compiler/src/exe/tigert.ml
@@ -1,2 +1,5 @@
 let () =
-  Tiger.Test.run Tiger.Test_cases.all
+  let dir = ref "testcases" in
+  Arg.parse [("-dir", String (fun s -> dir := s), "")] (fun _ -> ()) "";
+  let dir = !dir in
+  Tiger.Test.run (Tiger.Test_cases.all ~dir)