st/pass_strategy_synthesis
1
0
Fork 0
mirror of https://github.com/ProgramSnail/pass_strategy_synthesis.git synced 2026-03-12 02:57:09 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests in the separated module

Browse source
This commit is contained in:
ProgramSnail 2026-02-15 18:40:55 +00:00
parent 77b8bdc2b9
commit 97be28ff56
5 changed files with 484 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lib/relational_semantic_interpreter.ml
View file

@ -345,32 +345,4 @@ struct
(all_prog === Prog.make prog main_decl)
(empty_state state)
(eval_fun_empty_args state prog main_decl state')
(* TODO: fix *)
(* let eval_prog_fwd all_prog = *)
(* Stream.hd @@ *)
(* run q (fun q -> eval_prog (inj all_prog) q) *)
(* (fun qs -> qs#reify prj_exn) *)
(* TODO: fix *)
(* let empty_prog = (Prog.T (List.Nil, FunDecl.T (List.Nil, Body.T List.Nil))) *)
(* let empty_prog = Prog.make (Std.nil ()) (FunDecl.make (Std.nil ()) (Body.make (Std.nil ()))) *)
(* TODO: fix *)
(* let%expect_test "empty" = *)
(* eval_prog_fwd empty_prog; *)
(* Printf.printf "done!"; *)
(* [%expect {| done! |}] *)
let eval_test =
Stream.hd @@
run q (fun q -> ocanren { List.assoco 0 [(0, 0)] q })
(fun qs -> qs#reify Nat.prj_exn)
(* ((show (GT.list) (show Nat.ground)) x *)
let%expect_test "empty" =
let x = eval_test in
Printf.printf "done! %s" ((show (Nat.ground)) x);
[%expect {| done! 0 |}]
end