refactor: Syntax with unit tests

2026-05-13 17:12:10 +00:00 · 2024-07-08 16:44:42 +02:00
parent 6df363c78d
commit 2e76ccf9fc
39 changed files with 460 additions and 771 deletions
@@ -0,0 +1,29 @@
+open Alcotest
+open Syntax
+
+let test_pp_expressions () =
+  let to_check =
+    [
+      ( "Should return \"Literal(...)\"",
+        "Literal(Integer(1))",
+        Expressions.Literal (Literals.Integer 1) );
+      ( "Should return \"UnaryExpression(...)\"",
+        "UnaryExpression(ArithmeticNegation, Literal(Integer(2)))",
+        Expressions.UnaryExpression
+          ( UnaryOperators.ArithmeticNegation,
+            Expressions.Literal (Literals.Integer 2) ) );
+      ( "Should return \"BinaryExpression(...)\"",
+        "BinaryExpression(Add, Literal(Integer(5)), Literal(Integer(10)))",
+        Expressions.BinaryExpression
+          ( BinaryOperators.Add,
+            Expressions.Literal (Literals.Integer 5),
+            Expressions.Literal (Literals.Integer 10) ) );
+    ]
+  in
+  List.iter
+    (fun (msg, expected, actual) ->
+      check string msg expected (Expressions.pp_expressions actual))
+    to_check
+
+let tests =
+  ("Expressions", [ test_case "pp_expressions" `Quick test_pp_expressions ])