Use with-accepted-exit-codes for failure tests

avsm · Nov 16, 2020 · 892a4cc · 892a4cc
1 parent b056a89
commit 892a4cc
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 7 deletions.
diff --git a/dune-project b/dune-project
@@ -1,3 +1,3 @@
-(lang dune 2.0)
+(lang dune 2.2)
 
 (name mdx)
diff --git a/test/bin/mdx-pp/gen_dune_rules.ml b/test/bin/mdx-pp/gen_dune_rules.ml
@@ -16,9 +16,10 @@ let pp_expect_action fmt dir =
 let pp_failure_action fmt dir =
   Fmt.pf fmt
     {|
-  (with-outputs-to %%{target}
-   (chdir %s
-    (system "! ocaml-mdx pp %a%s")))|}
+  (with-accepted-exit-codes 1
+   (with-outputs-to %%{target}
+    (chdir %s
+     (run %%{bin:ocaml-mdx} test %a%s))))|}
     dir.dir_name pp_options dir.options dir.test_file
 
 let () = run { pp_expect_action; pp_failure_action }
diff --git a/test/bin/mdx-test/gen_dune_rules.ml b/test/bin/mdx-test/gen_dune_rules.ml
@@ -32,9 +32,10 @@ let pp_expect_action fmt dir =
 let pp_failure_action fmt dir =
   Fmt.pf fmt
     {|
-  (with-outputs-to %%{target}
-   (chdir %s
-    (system "! ocaml-mdx test %a%s")))|}
+  (with-accepted-exit-codes 1
+   (with-outputs-to %%{target}
+    (chdir %s
+     (run %%{bin:ocaml-mdx} test %a%s))))|}
     dir.dir_name pp_options dir.options dir.test_file
 
 let () = run { pp_expect_action; pp_failure_action }