unikernel/duniverse/dune_/test/blackbox-tests/test-cases/predicate-language-errors.t

@@ -0,0 +1,40 @@
+Test the error cases for dune's Predicate Language DSL.
+
+  $ cat > dune-project <<EOF
+  > (lang dune 3.14)
+  > EOF
+
+  $ cat > foo.ml <<EOF
+  > let () = print_endline "foo"
+  > EOF
+
+Make a dune file and build the project, using the "with-accepted-exit-codes"
+action to exercise the predicate language.
+  $ test() {
+  >   cat > dune <<EOF
+  > (rule
+  >  (action
+  >   (with-accepted-exit-codes
+  >    $1
+  >    (with-stdout-to x.txt
+  >     (run echo x)))))
+  > EOF
+  > dune build x.txt
+  > }
+
+  $ test 0
+
+  $ test '(:include x)'
+  File "dune", line 4, characters 4-12:
+  4 |    (:include x)
+          ^^^^^^^^
+  Error: :include isn't supported in the predicate language
+  [1]
+
+  $ test '(x y)'
+  File "dune", line 4, characters 4-5:
+  4 |    (x y)
+          ^
+  Error: This atom must be quoted because it is the first element of a list and
+  doesn't start with - or:
+  [1]