mirror of
https://github.com/LucasVbr/croissant.git
synced 2026-05-13 17:12:10 +00:00
Lucàs
30 lines
1.1 KiB
OCaml
30 lines
1.1 KiB
OCaml
open Alcotest
|
|
open Syntax.BinaryOperators
|
|
|
|
let test_pp_binary_operators () =
|
|
let to_check =
|
|
[
|
|
("Should return \"Add\"", "Add", Add);
|
|
("Should return \"Subtract\"", "Subtract", Subtract);
|
|
("Should return \"Multiply\"", "Multiply", Multiply);
|
|
("Should return \"Divide\"", "Divide", Divide);
|
|
("Should return \"Equals\"", "Equals", Equals);
|
|
("Should return \"NotEquals\"", "NotEquals", NotEquals);
|
|
("Should return \"LessThan\"", "LessThan", LessThan);
|
|
("Should return \"LessThanEquals\"", "LessThanEquals", LessThanEquals);
|
|
("Should return \"GreaterThan\"", "GreaterThan", GreaterThan);
|
|
( "Should return \"GreaterThanEquals\"",
|
|
"GreaterThanEquals",
|
|
GreaterThanEquals );
|
|
("Should return \"And\"", "And", And);
|
|
("Should return \"Or\"", "Or", Or);
|
|
]
|
|
in
|
|
List.iter
|
|
(fun (msg, expected, actual) ->
|
|
check string msg expected (pp_binary_operators actual))
|
|
to_check
|
|
|
|
let tests =
|
|
( "BinaryOperators",
|
|
[ test_case "pp_binary_operators" `Quick test_pp_binary_operators ] ) |