unikernel/duniverse/dune_/test/blackbox-tests/test-cases/actions/with-exit-codes.t

@@ -0,0 +1,71 @@
+  $ cat > dune-project << EOF
+  > (lang dune 2.0)
+  > (using action-plugin 0.1)
+  > EOF
+
+  $ cat > dune <<EOF
+  > (executable
+  >  (name exit)
+  >  (modules exit))
+  > (rule (with-stdout-to exit.ml (echo "let () = exit (int_of_string Sys.argv.(1))")))
+  > EOF
+
+  $ cat >> dune <<EOF
+  > (rule
+  >  (alias a)
+  >  (action (with-accepted-exit-codes 0 (run ./exit.exe 1))))
+  > EOF
+
+  $ dune build --display=short --root . @a
+        ocamlc .exit.eobjs/byte/dune__exe__Exit.{cmi,cmo,cmt}
+      ocamlopt .exit.eobjs/native/dune__exe__Exit.{cmx,o}
+      ocamlopt exit.exe
+  File "dune", lines 5-7, characters 0-75:
+  5 | (rule
+  6 |  (alias a)
+  7 |  (action (with-accepted-exit-codes 0 (run ./exit.exe 1))))
+          exit alias a (exit 1)
+  [1]
+
+  $ cat >> dune <<EOF
+  > (rule
+  >  (alias b)
+  >  (action (with-accepted-exit-codes (not 0) (run ./exit.exe 1))))
+  > EOF
+
+  $ dune build --display=short --root . @b
+          exit alias b
+
+  $ cat >> dune <<EOF
+  > (rule
+  >  (alias c)
+  >  (action (with-accepted-exit-codes (or 1 2 3) (run ./exit.exe 2))))
+  > (rule
+  >  (alias d)
+  >  (action (with-accepted-exit-codes (or 4 5 6) (run ./exit.exe 7))))
+  > EOF
+
+  $ dune build --display=short --root . @c
+          exit alias c
+
+  $ dune build --display=short --root . @d
+  File "dune", lines 14-16, characters 0-84:
+  14 | (rule
+  15 |  (alias d)
+  16 |  (action (with-accepted-exit-codes (or 4 5 6) (run ./exit.exe 7))))
+          exit alias d (exit 7)
+  [1]
+
+  $ cat >> dune <<EOF
+  > (rule
+  >  (alias e)
+  >  (action (with-accepted-exit-codes (not 0) (dynamic-run ./exit.exe 1))))
+  > EOF
+
+  $ dune build --display=short --root . @e
+  File "dune", line 19, characters 43-69:
+  19 |  (action (with-accepted-exit-codes (not 0) (dynamic-run ./exit.exe 1))))
+                                                  ^^^^^^^^^^^^^^^^^^^^^^^^^^
+  Error: with-accepted-exit-codes can only be used with "run", "bash" or
+  "system"
+  [1]