X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Fexe%2Ftigert.ml;h=f5a58510a1ae5b51bea92bcc505f66f9e82d1512;hp=bd7e12ddf3ebcd927a06306585a32ff8bddf7687;hb=ce2f1040878bdbda39c3e0a554b6f0221497eff0;hpb=d3bdde4b6b0b1a8cb41ee4de4fa73cd472ed23a4

diff --git a/compiler/src/exe/tigert.ml b/compiler/src/exe/tigert.ml
index bd7e12d..f5a5851 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", Arg.String (fun s -> dir := s), "")] (fun _ -> ()) "";
+  let dir = !dir in
+  Tiger.Test.run (Tiger.Test_cases.all ~dir)