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

12
lib/relational_semantic_interpreter_oc.ml
View file

@ -834,7 +834,6 @@ struct
ocanren {eval_progo (Prog ([FunDecl ([q; r], [Write 0; Write 1])], FunDecl ([Val; Val], [Call (0, [0; 1]); Write 0; Read 0; Read 1]))) (St ([], [], 0, []))})
(fun q r -> [q#reify (Tag.prj_exn); r#reify (Tag.prj_exn)])))
(* TODO FIXME *)
(* annotation gen prog test *)
let _ = Printf.printf "synt test 6' (swap call args): %s\n" @@ show(answerTags) (Stream.take (run qr
(fun q r -> let open Prog in
@ -857,15 +856,4 @@ struct
(* TODO: test with assymetric args order *)
end
(* let eval_test () = *)
(* Stream.hd @@ *)
(* run q (fun q -> ocanren { List.assoco 0 [(0, 0)] q }) *)
(* (fun qs -> qs#reify Nat.prj_exn) *)
(* TODO: launch tests *)
(* let%expect_test "empty" = *)
(* let x = eval_test () in *)
(* Printf.printf "done! %s" ((show (Nat.ground)) x); *)
(* [%expect {| done! 0 |}] *)
end