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

let () =
  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)
Commit	Line	Data
d3bdde4b	1	let () =
38ffcb1f	2	let dir = ref "testcases" in
ce2f1040	3	Arg.parse [("-dir", Arg.String (fun s -> dir := s), "")] (fun _ -> ()) "";
38ffcb1f SK	4	let dir = !dir in
38ffcb1f SK	5	Tiger.Test.run (Tiger.Test_cases.all ~dir)