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

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)