mirror of
https://github.com/LucasVbr/croissant.git
synced 2026-05-13 17:12:10 +00:00
Lucàs
19 lines
461 B
OCaml
19 lines
461 B
OCaml
open Alcotest
|
|
open Syntax.UnaryOperators
|
|
|
|
let test_pp_unary_operators () =
|
|
let to_check =
|
|
[
|
|
( "Should return \"ArithmeticNegation\"",
|
|
ArithmeticNegation,
|
|
"ArithmeticNegation" );
|
|
]
|
|
in
|
|
List.iter
|
|
(fun (msg, unary_operator, expected) ->
|
|
check string msg expected (pp_unary_operators unary_operator))
|
|
to_check
|
|
|
|
let tests =
|
|
( "UnaryOperators",
|
|
[ test_case "pp_unary_operators" `Quick test_pp_unary_operators ] ) |