Ability to add extra variables to actions in gen_test

Pulled from 'instantiate' branch, commit a9f9196.
lukemaurer · Oct 20, 2023 · c15dcfb · c15dcfb
1 parent 268ebbd
commit c15dcfb
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/ocaml/testsuite/tests/templates/basic/gen_test.ml b/ocaml/testsuite/tests/templates/basic/gen_test.ml
@@ -93,10 +93,11 @@ let tree_for_mode mode =
     | None -> vars
     | Some flags -> ("flags", flags) :: vars
   in
-  let compile ?flags filenames =
-    Act (compiler, add_flags ~flags [
+  let add_extra ?(extra = []) vars = extra @ vars in
+  let compile ?flags ?extra filenames =
+    Act (compiler, add_flags ~flags (add_extra ?extra [
       "module", filenames;
-    ])
+    ]))
   in
   let compile_bad ~ext ?flags module_ =
     Branch (Seq [