let () =
  let open Alcotest in
  run "Optimizations"
    [
      ( "Iota-reduction",
        [
          test_case "#1" `Quick Shared_ast.Optimizations.test_iota_reduction_1;
          (* test_case "#2" `Quick
             Shared_ast.Optimizations.test_iota_reduction_2; FIXME *)
        ] );
    ]