35 lines
1023 B
OCaml
35 lines
1023 B
OCaml
open Trace
|
|
open Mini_c
|
|
open Combinators
|
|
open Test_helpers
|
|
|
|
let run_entry_int e (n:int) : int result =
|
|
let param : value = D_int n in
|
|
let%bind result = Run.Of_mini_c.run_function e param t_int in
|
|
match result with
|
|
| D_int n -> ok n
|
|
| _ -> simple_fail "result is not an int"
|
|
|
|
let identity () : unit result =
|
|
let%bind f = basic_int_quote (e_var_int "input") in
|
|
let%bind result = run_entry_int f 42 in
|
|
let%bind _ = Assert.assert_equal_int ~msg:__LOC__ 42 result in
|
|
ok ()
|
|
|
|
let multiple_vars () : unit result =
|
|
let expr =
|
|
e_let_in "a" t_int (e_var_int "input") @@
|
|
e_let_in "b" t_int (e_var_int "input") @@
|
|
e_let_in "c" t_int (e_var_int "a") @@
|
|
e_let_in "output" t_int (e_var_int "c") @@
|
|
e_var_int "output" in
|
|
let%bind f = basic_int_quote expr in
|
|
let%bind result = run_entry_int f 42 in
|
|
let%bind _ = Assert.assert_equal_int ~msg:__LOC__ 42 result in
|
|
ok ()
|
|
|
|
let main = test_suite "Compiler (from Mini_C)" [
|
|
test "identity" identity ;
|
|
test "multiple_vars" multiple_vars ;
|
|
]
|