fix: add test names

fabaindaiz · Oct 19, 2023 · 28f3b45 · 28f3b45
1 parent 91f2c40
commit 28f3b45
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 14 deletions.
diff --git a/dev/compile.ml b/dev/compile.ml
@@ -155,7 +155,6 @@ let rec compile_expr (e : tag eexpr) (env : env) : instruction list =
 
 let prelude = "
 ;redcode-94b
-
 "
 
 let epilogue = [INSTR (IDAT, RN, RNone, RNone)]

diff --git a/execs/run_test.ml b/execs/run_test.ml
@@ -37,16 +37,19 @@ let () =
     Compiler (fun s o -> fprintf o "%s" (compile_prog (parse_exp (sexp_from_string s))) ) in
 
   let bbc_tests =
+    let name : string = "compare" in
     let oracle : oracle = Expected in
     let runtime : runtime = Runtime compileout in
     let action : action = Compare in
-    tests_from_dir ~compiler ~oracle ~runtime ~ action "bbctests" in
+    tests_from_dir ~name ~compiler ~oracle ~runtime ~ action "bbctests" in
 
   let verify_tests =
+    let command =
+      unixcommand (fun s -> CCUnix.call "rt/pmars-0.9.4/pmars -A -@ rt/pmars-0.9.4/config/94b.opt %s" s) in
+    let name : string = "execute" in
     let oracle : oracle = Expected in
-    let runtime : runtime =
-      Runtime (unixcommand (fun s -> CCUnix.call "rt/pmars -A -@ rt/94b.opt %s" s)) in
+    let runtime : runtime = Runtime command in
     let action : action = Execute in
-    tests_from_dir ~compiler ~oracle ~runtime ~action "bbctests" in
+    tests_from_dir ~name ~compiler ~oracle ~runtime ~action "bbctests" in
 
-  run "Tests corewars-compiler" (ocaml_tests @ verify_tests)
+  run "Tests corewars-compiler" (ocaml_tests @ bbc_tests @ verify_tests)
diff --git a/rt/94b.opt b/rt/94b.opt
diff --git a/rt/pmars → rt/pmars-0.9.4/pmars b/rt/pmars → rt/pmars-0.9.4/pmars
-Original file line number
+Diff line change
@@ Expand Up @@
     let prelude = "
     ;redcode-94b
     "
     let epilogue = [INSTR (IDAT, RN, RNone, RNone)]
@@ Expand Down @@