X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=compiler%2Fsrc%2Flib%2Ftiger%2Ftiger_test_cases_book.ml;h=3911f53d06c5c1cd605c1742fbf96f83bbae4ab0;hb=789ef466bebb54a589039a8100147a11ea6f9719;hp=3cad92bc50a316d82375dd767c0bd56b59cfbda4;hpb=c0b10ff1a1cf0abcc1cd2f7e5aa255f1edc620c9;p=tiger.ml.git

diff --git a/compiler/src/lib/tiger/tiger_test_cases_book.ml b/compiler/src/lib/tiger/tiger_test_cases_book.ml
index 3cad92b..3911f53 100644
--- a/compiler/src/lib/tiger/tiger_test_cases_book.ml
+++ b/compiler/src/lib/tiger/tiger_test_cases_book.ml
@@ -85,15 +85,34 @@ let is_error_expected_parsing_of_filename =
   let module E = Tiger_error in
   function
   | "test49.tig" ->
-      Some (function E.Invalid_syntax _ -> true | _ -> false)
+      Some Error.is_invalid_syntax
       (* TODO: Be more specific - test position *)
   | _ ->
     (* TODO: Fill-in other expected cases *)
     None
 
+(* TODO test21.tig - error : procedure returns value  and procedure is used in arexpr *)
+(* TODO test22.tig - No_such_field_in_record *)
+(* TODO test24.tig - Exp_not_an_array *)
+(* TODO test25.tig - Exp_not_a_record *)
+
 let is_error_expected_semant_of_filename =
   let module E = Tiger_error in
   function
+  | "test17.tig" ->
+      Some Error.is_unknown_type
+      (* TODO: Be more specific - which type? *)
+  | "test09.tig"
+  | "test11.tig"
+  | "test13.tig"
+  | "test14.tig"
+  | "test23.tig"
+  | "test26.tig"
+  | "test28.tig"
+  | "test29.tig"
+  | "test31.tig"
+  | "test32.tig"
+  | "test34.tig"
   | "test43.tig" ->
       Some Error.is_wrong_type
       (* TODO: Be more specific - what expected, what given? *)