module List = ListLabels
+module Error = Tiger_error
module Test = Tiger_test
let read_file filepath =
(* TODO: Fill-in other expected cases *)
None
-let is_error_expected_semant_of_filename _ =
- (* TODO: Fill-in expected cases *)
- None
+let is_error_expected_semant_of_filename =
+ let module E = Tiger_error in
+ function
+ | "test43.tig" ->
+ Some Error.is_wrong_type
+ (* TODO: Be more specific - what expected, what given? *)
+ | _ ->
+ (* TODO: Fill-in other expected cases *)
+ None
let test_case_of_filename filename ~dir =
Test.case