Only 1 code for errors

OCamlPro · Oct 2, 2023 · 7cfee7b · 7cfee7b
1 parent c1064ab
commit 7cfee7b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/tests/dune.inc b/tests/dune.inc
diff --git a/tools/gentest.ml b/tools/gentest.ml
@@ -178,9 +178,9 @@ end = struct
           pp_output tst
     in
     let accepted_ae_exit_code =
-      if tst.params.ae_should_succeed then
-        "0"
-      else "(or 1 123 124 125 142)"
+      if tst.params.ae_should_succeed
+      then "0"
+      else "1"
     in
     Format.fprintf fmt "\
 @[<v 1>\