unikernel/duniverse/dune_/test/blackbox-tests/test-cases/pkg/slang.t

@@ -0,0 +1,148 @@
+  $ . ./helpers.sh
+
+  $ mkdir dune.lock
+  $ cat >dune.lock/lock.dune <<EOF
+  > (lang package 0.1)
+  > EOF
+
+Helper function to create a lockfile with a given install action and then build it, running the action.
+  $ test_action() {
+  >   dune clean || true
+  >   cat > dune.lock/test.pkg <<EOF
+  > (version 0.0.1)
+  > (install $1)
+  > EOF
+  >   build_pkg test
+  > }
+
+Tests for concat:
+  $ test_action '(run echo (concat foo))'
+  foo
+  $ test_action '(run echo (concat foo bar))'
+  foobar
+  $ test_action '(run echo (concat foo (concat bar (concat baz (concat)))))'
+  foobarbaz
+  $ test_action '(run echo (concat %{pkg-self:name} . %{pkg-self:version}))'
+  test.0.0.1
+  $ test_action '(run (concat e c h o) foo)'
+  foo
+  $ test_action '(run echo foo (concat) bar (concat) baz)' # two spaces between each word because (concat) is the empty string
+  foo  bar  baz
+  $ test_action '(run echo (= (concat foo bar) (concat f o o b a r)))'
+  true
+
+Tests for when:
+  $ test_action '(run echo (when true foo) bar (when false baz) qux)'
+  foo bar qux
+  $ test_action '(run (when (= a b) xxx) (when (and (< 41 42) (<> foo bar)) echo) foo)'
+  foo
+  $ test_action '(run (when invalid-condition echo) foo)'
+  File "dune.lock/test.pkg", line 2, characters 20-37:
+  2 | (install (run (when invalid-condition echo) foo))
+                          ^^^^^^^^^^^^^^^^^
+  Error: This expression is used as a condition and so must evaluate to either
+  "true" or "false", however it evaluated to "invalid-condition".
+  [1]
+  $ test_action '(run (when (and (< 1 2) (concat complex invalid condition)) echo) foo)'
+  File "dune.lock/test.pkg", line 2, characters 33-67:
+  2 | (install (run (when (and (< 1 2) (concat complex invalid condition)) echo) foo))
+                                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+  Error: This expression is used as a condition and so must evaluate to either
+  "true" or "false", however it evaluated to "complexinvalidcondition".
+  [1]
+  $ test_action '(run echo (when (and (< 1 2) (or (concat t r u e) (concat f a l s e))) foo) bar)'
+  foo bar
+  $ test_action '(run echo (when (or true invalid-condition-ignored-due-to-laziness) foo))'
+  foo
+  $ test_action '(run echo (when (not (and false invalid-condition-ignored-due-to-laziness)) foo))'
+  foo
+  $ test_action '(run echo (when (when false xxx) foo))'
+  File "dune.lock/test.pkg", line 2, characters 25-41:
+  2 | (install (run echo (when (when false xxx) foo)))
+                               ^^^^^^^^^^^^^^^^
+  Error: This expression is used as a condition and so must evaluate to a
+  single string whose value is either "true" or "false", however it evaluated
+  to Nil (ie. zero strings)
+  [1]
+  $ test_action '(run echo (concat (when true foo) (when false bar) baz))'
+  foobaz
+  $ test_action '(run echo (when (or %{pkg-self:not_a_variable} true) foo))'
+  File "dune.lock/test.pkg", line 2, characters 29-55:
+  2 | (install (run echo (when (or %{pkg-self:not_a_variable} true) foo)))
+                                   ^^^^^^^^^^^^^^^^^^^^^^^^^^
+  Error: Undefined package variable "not_a_variable"
+  [1]
+  $ test_action '(run echo (when (or true %{pkg-self:not_a_variable}) foo))'
+  foo
+
+Tests for if:
+  $ test_action '(run echo (if (= %{pkg-self:version} 0.0.1) foo bar) (if (<> %{pkg-self:name} test) baz qux))'
+  foo qux
+  $ test_action '(run echo (if (if true true false) (concat foo bar) (concat baz qux)))'
+  foobar
+  $ test_action '(run echo (if invalid-condition foo bar))'
+  File "dune.lock/test.pkg", line 2, characters 23-40:
+  2 | (install (run echo (if invalid-condition foo bar)))
+                             ^^^^^^^^^^^^^^^^^
+  Error: This expression is used as a condition and so must evaluate to either
+  "true" or "false", however it evaluated to "invalid-condition".
+  [1]
+
+Tests for has_undefined_var:
+  $ test_action '(run echo (if (has_undefined_var %{pkg-self:name}) foo bar))'
+  bar
+  $ test_action '(run echo (if (has_undefined_var %{pkg-self:not_a_variable}) foo bar))'
+  foo
+  $ test_action '(run echo (if (has_undefined_var (when %{pkg-self:not_a_variable} foo)) foo bar))'
+  foo
+
+Test conversion from blang to string:
+  $ test_action '(run echo (and (= (concat foo bar) foobar)))'
+  true
+  $ test_action '(run echo (and true false))'
+  false
+
+Test the error message when the program doesn't exist:
+  $ test_action '(run madeup)'
+  File "dune.lock/test.pkg", line 2, characters 14-20:
+  2 | (install (run madeup))
+                    ^^^^^^
+  Error: Program madeup not found in the tree or in PATH
+   (context: default)
+  [1]
+  $ test_action '(run (concat e c h o) hello)'
+  hello
+  $ test_action '(run (concat m a d e u p) hello)'
+  File "dune.lock/test.pkg", line 2, characters 14-34:
+  2 | (install (run (concat m a d e u p) hello))
+                    ^^^^^^^^^^^^^^^^^^^^
+  Error: Program madeup not found in the tree or in PATH
+   (context: default)
+  [1]
+  $ test_action '(run (if true madeup echo) hello)'
+  File "dune.lock/test.pkg", line 2, characters 14-35:
+  2 | (install (run (if true madeup echo) hello))
+                    ^^^^^^^^^^^^^^^^^^^^^
+  Error: Program madeup not found in the tree or in PATH
+   (context: default)
+  [1]
+
+Test for the error message when a slang expression fails to parse:
+  $ test_action '(run echo (concat ()))'
+  File "dune.lock/test.pkg", line 2, characters 27-29:
+  2 | (install (run echo (concat ())))
+                                 ^^
+  Error: Unexpected list
+  [1]
+  $ test_action '(run echo (if true))'
+  File "dune.lock/test.pkg", line 2, characters 19-28:
+  2 | (install (run echo (if true)))
+                         ^^^^^^^^^
+  Error: Not enough arguments for "if"
+  [1]
+  $ test_action '(run echo (if (= a) () ()))'
+  File "dune.lock/test.pkg", line 2, characters 23-28:
+  2 | (install (run echo (if (= a) () ())))
+                             ^^^^^
+  Error: Not enough arguments for "="
+  [1]