114 lines
3.3 KiB
OCaml
114 lines
3.3 KiB
OCaml
|
(*
|
||
|
|
open Compilateur
|
||
|
|
|
||
|
|
(* Changer le chemin d'accès du jar. *)
|
||
|
|
let runtamcmde = "java -jar ../../runtam.jar"
|
||
|
|
(* let runtamcmde = "java -jar /mnt/n7fs/.../tools/runtam/runtam.jar" *)
|
||
|
|
|
||
|
|
(* Execute the TAM code obtained from the rat file and return the ouptut of this code *)
|
||
|
|
let runtamcode cmde ratfile =
|
||
|
|
let tamcode = compiler ratfile in
|
||
|
|
let (tamfile, chan) = Filename.open_temp_file "test" ".tam" in
|
||
|
|
output_string chan tamcode;
|
||
|
|
close_out chan;
|
||
|
|
let ic = Unix.open_process_in (cmde ^ " " ^ tamfile) in
|
||
|
|
let printed = input_line ic in
|
||
|
|
close_in ic;
|
||
|
|
Sys.remove tamfile; (* à commenter si on veut étudier le code TAM. *)
|
||
|
|
String.trim printed
|
||
|
|
|
||
|
|
(* Compile and run ratfile, then print its output *)
|
||
|
|
let runtam ratfile =
|
||
|
|
print_string (runtamcode runtamcmde ratfile)
|
||
|
|
|
||
|
|
(* requires ppx_expect in jbuild, and `opam install ppx_expect` *)
|
||
|
|
let%expect_test "testprintint" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testprintint.rat";
|
||
|
|
[%expect{| 42 |}]
|
||
|
|
|
||
|
|
let%expect_test "testprintbool" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testprintbool.rat";
|
||
|
|
[%expect{| true |}]
|
||
|
|
|
||
|
|
let%expect_test "testprintrat" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testprintrat.rat";
|
||
|
|
[%expect{| [4/5] |}]
|
||
|
|
|
||
|
|
let%expect_test "testaddint" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testaddint.rat";
|
||
|
|
[%expect{| 42 |}]
|
||
|
|
|
||
|
|
let%expect_test "testaddrat" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testaddrat.rat";
|
||
|
|
[%expect{| [7/6] |}]
|
||
|
|
|
||
|
|
let%expect_test "testmultint" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testmultint.rat";
|
||
|
|
[%expect{| 440 |}]
|
||
|
|
|
||
|
|
let%expect_test "testmultrat" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testmultrat.rat";
|
||
|
|
[%expect{| [14/3] |}]
|
||
|
|
|
||
|
|
let%expect_test "testnum" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testnum.rat";
|
||
|
|
[%expect{| 4 |}]
|
||
|
|
|
||
|
|
let%expect_test "testdenom" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testdenom.rat";
|
||
|
|
[%expect{| 7 |}]
|
||
|
|
|
||
|
|
let%expect_test "testwhile1" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testwhile1.rat";
|
||
|
|
[%expect{| 19 |}]
|
||
|
|
|
||
|
|
let%expect_test "testif1" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testif1.rat";
|
||
|
|
[%expect{| 18 |}]
|
||
|
|
|
||
|
|
let%expect_test "testif2" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testif2.rat";
|
||
|
|
[%expect{| 21 |}]
|
||
|
|
|
||
|
|
let%expect_test "factiter" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/factiter.rat";
|
||
|
|
[%expect{| 120 |}]
|
||
|
|
|
||
|
|
let%expect_test "complique" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/complique.rat";
|
||
|
|
[%expect{| [9/4][27/14][27/16][3/2] |}]
|
||
|
|
|
||
|
|
let%expect_test "factfun1" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testfun1.rat";
|
||
|
|
[%expect{| 1 |}]
|
||
|
|
|
||
|
|
let%expect_test "factfun2" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testfun2.rat";
|
||
|
|
[%expect{| 7 |}]
|
||
|
|
|
||
|
|
let%expect_test "factfun3" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testfun3.rat";
|
||
|
|
[%expect{| 10 |}]
|
||
|
|
|
||
|
|
let%expect_test "factfun4" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testfun4.rat";
|
||
|
|
[%expect{| 10 |}]
|
||
|
|
|
||
|
|
let%expect_test "factfun5" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testfun5.rat";
|
||
|
|
[%expect{| |}]
|
||
|
|
|
||
|
|
let%expect_test "factfun6" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testfun6.rat";
|
||
|
|
[%expect{|truetrue|}]
|
||
|
|
|
||
|
|
let%expect_test "factfuns" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/testfuns.rat";
|
||
|
|
[%expect{| 28 |}]
|
||
|
|
|
||
|
|
let%expect_test "factrec" =
|
||
|
|
runtam "../../fichiersRat/src-rat-tam-test/factrec.rat";
|
||
|
|
[%expect{| 120 |}]
|
||
|
|
|
||
|
|
*)
|