compiler/src/exe/tigert.ml

   1 let () =
   2   let dir = ref "testcases" in
   3   Arg.parse [("-dir", String (fun s -> dir := s), "")] (fun _ -> ()) "";
   4   let dir = !dir in
   5   Tiger.Test.run (Tiger.Test_cases.all ~dir)