Complete 1.04.p: add semantic actions to parser

[tiger.ml.git] / tiger / src / exe / tiger_tests.ml

diff --git a/tiger/src/exe/tiger_tests.ml b/tiger/src/exe/tiger_tests.ml
index d8b7f04..d9eb050 100644 (file)
--- a/tiger/src/exe/tiger_tests.ml
+++ b/tiger/src/exe/tiger_tests.ml
@@ -147,6 +147,7 @@ let test_case_from_book_09 =
   (* TODO: Type error test case *)
   (name, code, tokens)
 
+(*
 let test_case_from_book_queens =
   let code =
     "\
@@ -195,6 +196,7 @@ let test_case_from_book_queens =
     "
   in
   (code, code, [])
+*)
 
 let test_cases_from_book =
   [ test_case_from_book_01
@@ -202,7 +204,7 @@ let test_cases_from_book =
   ; test_case_from_book_03
   ; test_case_from_book_04
   ; test_case_from_book_09
-  ; test_case_from_book_queens
+  (*; test_case_from_book_queens*)
   ]
 
 let tests_micro_cases =
@@ -311,8 +313,8 @@ let () =
         let L.({lex_curr_p = {pos_lnum=l; pos_bol=b; pos_cnum=c; _}; _}) = lb in
         let msg = sprintf "Syntax error around line: %d, column: %d" l (c - b) in
         Error msg
-    | parsetree ->
-        Ok parsetree
+    | absyn ->
+        Ok (Tiger.Absyn.to_string absyn)
     )
   in
   let bar_sep = String.make 80 '-' in