X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Fexe%2Ftigert.ml;h=10b5cbeba3ee46dc9584f9e4c1ec708f3b24e8fc;hp=bd7e12ddf3ebcd927a06306585a32ff8bddf7687;hb=38ffcb1fc99ecb7a48097cbcf97b9a3062c8bfa0;hpb=4f2aaee3ef5f70f7769931032fd50af0403c51ae

diff --git a/compiler/src/exe/tigert.ml b/compiler/src/exe/tigert.ml
index bd7e12d..10b5cbe 100644
--- 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)