lucasvbr/croissant
1
0
Fork 0
mirror of https://github.com/LucasVbr/croissant.git synced 2026-05-16 17:12:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

feat: Add Literals and operator of comparison

Browse Source
This commit is contained in:
Lucàs
2024-07-02 22:35:25 +02:00
parent 9ba70f93aa
commit 69e88fd5fd
5 changed files with 160 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/ast/print.ml
+47 -24
View File
@@ -4,60 +4,83 @@ open Alcotest
open Ast.Syntax
open Ast.Print
let test_string_of_literal () =
check string "42" "Integer(42)" (string_of_literal (Integer 42));
check string "3.14" "Float(3.14)" (string_of_literal (Float 3.14));
check string "true" "Boolean(true)" (string_of_literal (Boolean true));
check string "false" "Boolean(false)" (string_of_literal (Boolean false));
check string "hello" "String(\"hello\")" (string_of_literal (String "hello"));
check string "c" "Character('c')" (string_of_literal (Character 'c'));
check string "null" "Null" (string_of_literal Null)
let test_string_of_binary_operator () =
check string "+" "Add" (string_of_binary_operator Add);
check string "-" "Substract" (string_of_binary_operator Substract);
check string "*" "Multiply" (string_of_binary_operator Multiply);
check string "/" "Divide" (string_of_binary_operator Divide)
check string "/" "Divide" (string_of_binary_operator Divide);
check string "&&" "AmpersandAmpersand"
(string_of_binary_operator AmpersandAmpersand);
check string "||" "BarBar" (string_of_binary_operator BarBar);
check string "==" "EqualsEquals" (string_of_binary_operator EqualsEquals);
check string "!=" "ExclamationEquals"
(string_of_binary_operator ExclamationEquals);
check string "<" "LessThan" (string_of_binary_operator LessThan);
check string "<=" "LessThanEquals" (string_of_binary_operator LessThanEquals);
check string ">" "GreaterThan" (string_of_binary_operator GreaterThan);
check string ">=" "GreaterThanEquals"
(string_of_binary_operator GreaterThanEquals)
let test_string_of_unary_operator () =
check string "-" "Negate" (string_of_unary_operator Negate)
check string "-" "Negate" (string_of_unary_operator Negate);
check string "!" "Not" (string_of_unary_operator Not)
let test_string_of_expression () =
let expr = BinaryExpression (Add, IntegerLiteral 1, IntegerLiteral 2) in
let expr = Literal (Integer 42) in
check string "42" "Literal(Integer(42))" (string_of_expression expr);
let expr = BinaryExpression (Add, Literal (Integer 1), Literal (Integer 2)) in
check string "1 + 2"
"BinaryExpression(Add, IntegerLiteral(1), IntegerLiteral(2))"
(string_of_expression expr)
"BinaryExpression(Add, Literal(Integer(1)), Literal(Integer(2)))"
(string_of_expression expr);
let expr = UnaryExpression (Negate, Literal (Integer 42)) in
check string "-42" "UnaryExpression(Negate, Literal(Integer(42)))"
(string_of_expression expr);
let expr = Identifier "x" in
check string "x" "Identifier(\"x\")" (string_of_expression expr)
let test_string_of_statement () =
let stmt = ExpressionStatement (IntegerLiteral 42) in
check string "42;" "ExpressionStatement(IntegerLiteral(42))"
let stmt = ExpressionStatement (Literal (Integer 42)) in
check string "42;" "ExpressionStatement(Literal(Integer(42)))"
(string_of_statement stmt)
let test_string_of_source_file () =
let source_file =
SourceFile
[
ExpressionStatement (IntegerLiteral 1);
ExpressionStatement (Literal (Integer 1));
ExpressionStatement
(BinaryExpression (Add, IntegerLiteral 2, IntegerLiteral 3));
(BinaryExpression (Add, Literal (Integer 2), Literal (Integer 3)));
]
in
check string "1; 2 + 3;"
"SourceFile([ExpressionStatement(IntegerLiteral(1)), \
ExpressionStatement(BinaryExpression(Add, IntegerLiteral(2), \
IntegerLiteral(3)))])"
"SourceFile([ExpressionStatement(Literal(Integer(1))), \
ExpressionStatement(BinaryExpression(Add, Literal(Integer(2)), \
Literal(Integer(3))))])"
(string_of_source_file source_file)
let () =
let open Alcotest in
run "AST tests"
[
( "string_of_literal",
[ test_case "literal" `Quick test_string_of_literal ] );
( "string_of_unary_operator",
[
test_case "string_of_unary_operator" `Quick
test_string_of_unary_operator;
] );
[ test_case "unary_operator" `Quick test_string_of_unary_operator ] );
( "string_of_binary_operator",
[
test_case "string_of_binary_operator" `Quick
test_string_of_binary_operator;
] );
[ test_case "binary_operator" `Quick test_string_of_binary_operator ] );
( "string_of_expression",
[ test_case "string_of_expression" `Quick test_string_of_expression ] );
[ test_case "expression" `Quick test_string_of_expression ] );
( "string_of_statement",
[ test_case "string_of_statement" `Quick test_string_of_statement ] );
[ test_case "statement" `Quick test_string_of_statement ] );
( "string_of_source_file",
[ test_case "string_of_source_file" `Quick test_string_of_source_file ]
);
[ test_case "source_file" `Quick test_string_of_source_file ] );
]