unikernel/duniverse/dune_/test/expect-tests/dune_engine/action_to_sh_tests.ml

@@ -0,0 +1,247 @@
+open Stdune
+open Dune_engine
+open Action.For_shell
+module Action = Dune_engine.Action
+
+let print x = x |> Action_to_sh.pp |> Dune_tests_common.print
+
+let%expect_test "run" =
+  Run ("my_program", Array.Immutable.of_array [| "my"; "-I"; "args" |]) |> print;
+  [%expect
+    {|
+    my_program my -I args |}]
+;;
+
+(* TODO dynamic-run *)
+
+let%expect_test "chdir" =
+  Chdir ("foo", Bash "echo Hello world") |> print;
+  [%expect
+    {|
+    mkdir -p foo;cd foo;
+    bash -e -u -o pipefail -c 'echo Hello world' |}]
+;;
+
+let%expect_test "setenv" =
+  Setenv ("FOO", "bar", Bash "echo Hello world") |> print;
+  [%expect
+    {|
+    FOO=bar;
+    bash -e -u -o pipefail -c 'echo Hello world' |}]
+;;
+
+let%expect_test "with-stdout-to" =
+  Redirect_out
+    (Action.Outputs.Stdout, "foo", Action.File_perm.Normal, Bash "echo Hello world")
+  |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c 'echo Hello world' > foo |}]
+;;
+
+let%expect_test "with-stderr-to" =
+  Redirect_out
+    (Action.Outputs.Stderr, "foo", Action.File_perm.Normal, Bash "echo Hello world")
+  |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c 'echo Hello world' 2> foo |}]
+;;
+
+let%expect_test "with-outputs-to" =
+  Redirect_out
+    ( Action.Outputs.Outputs
+    , "foo"
+    , Action.File_perm.Normal
+    , Progn [ Bash "first something"; Bash "then"; Bash "echo Hello world" ] )
+  |> print;
+  [%expect
+    {|
+    {
+      bash -e -u -o pipefail -c 'first something';
+      bash -e -u -o pipefail -c then;
+      bash -e -u -o pipefail -c 'echo Hello world';
+    } &> foo |}]
+;;
+
+let%expect_test "with-outputs-to executable" =
+  Redirect_out
+    (Action.Outputs.Outputs, "foo", Action.File_perm.Executable, Bash "echo Hello world")
+  |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c 'echo Hello world' &> foo;
+    chmod +x foo |}]
+;;
+
+let%expect_test "ignore stdout" =
+  Ignore (Action.Outputs.Stdout, Bash "echo Hello world") |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c 'echo Hello world' > /dev/null |}]
+;;
+
+let%expect_test "ignore stderr" =
+  Ignore (Action.Outputs.Stderr, Bash "echo Hello world") |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c 'echo Hello world' 2> /dev/null |}]
+;;
+
+let%expect_test "ignore outputs" =
+  Ignore (Action.Outputs.Outputs, Bash "echo Hello world") |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c 'echo Hello world' &> /dev/null |}]
+;;
+
+let%expect_test "with-stdin-from" =
+  Redirect_in
+    ( Action.Inputs.Stdin
+    , "foo"
+    , Bash
+        {|
+    while read line; do
+      echo $line
+    done
+  |}
+    )
+  |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c
+      '
+        while read line; do
+          echo $line
+        done
+      ' < foo |}]
+;;
+
+(* TODO currently no special printing for with-accepted-exit-codes *)
+let%expect_test "with-accepted-exit-codes" =
+  With_accepted_exit_codes
+    ( Predicate_lang.of_list [ 0; 1; 123 ]
+    , Bash
+        {|
+    echo Hello world
+    exit 123
+  |}
+    )
+  |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c '
+        echo Hello world
+        exit 123
+      ' |}]
+;;
+
+let%expect_test "progn" =
+  Progn [ Bash "echo Hello"; Bash "echo world" ] |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c 'echo Hello';
+    bash -e -u -o pipefail -c 'echo world' |}]
+;;
+
+let%expect_test "concurrent" =
+  Concurrent [ Bash "echo Hello"; Bash "echo world" ] |> print;
+  [%expect
+    {|
+    ( bash -e -u -o pipefail -c 'echo Hello' &
+      bash -e -u -o pipefail -c 'echo world' & wait ) |}]
+;;
+
+let%expect_test "echo" =
+  Echo [ "Hello"; "world" ] |> print;
+  [%expect
+    {|
+    echo -n Helloworld |}]
+;;
+
+let%expect_test "write-file" =
+  Write_file ("foo", Action.File_perm.Normal, "Hello world") |> print;
+  [%expect
+    {|
+    echo -n 'Hello world' > foo |}]
+;;
+
+let%expect_test "write-file executable" =
+  Write_file ("foo", Action.File_perm.Executable, "Hello world") |> print;
+  [%expect
+    {|
+      echo -n 'Hello world' > foo;
+      chmod +x foo |}]
+;;
+
+let%expect_test "cat" =
+  Cat [ "foo" ] |> print;
+  [%expect
+    {|
+    cat foo |}]
+;;
+
+let%expect_test "cat multiple" =
+  Cat [ "foo"; "bar" ] |> print;
+  [%expect
+    {|
+    cat foo bar |}]
+;;
+
+let%expect_test "copy" =
+  Copy ("foo", "bar") |> print;
+  [%expect
+    {|
+    cp foo bar |}]
+;;
+
+let%expect_test "bash" =
+  Bash "echo Hello world" |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c 'echo Hello world' |}]
+;;
+
+(* cmping a binary file in optional mode is not supported *)
+
+let%expect_test "pipe-stdout-to" =
+  Pipe
+    ( Action.Outputs.Stdout
+    , [ Bash "echo Hello world"
+      ; Redirect_out
+          (Action.Outputs.Stdout, "foo", Action.File_perm.Normal, Bash "echo Hello world")
+      ] )
+  |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c 'echo Hello world'  |
+      bash -e -u -o pipefail -c 'echo Hello world' > foo |}]
+;;
+
+let%expect_test "pipe-stderr-to" =
+  Pipe
+    ( Action.Outputs.Stderr
+    , [ Bash "echo Hello world"
+      ; Redirect_out
+          (Action.Outputs.Stderr, "foo", Action.File_perm.Normal, Bash "echo Hello world")
+      ] )
+  |> print;
+  [%expect
+    {|
+    bash -e -u -o pipefail -c 'echo Hello world'  2> >(
+      bash -e -u -o pipefail -c 'echo Hello world' 2> foo  1>&2 ) |}]
+;;
+
+let%expect_test "pipe-outputs-to" =
+  Pipe
+    ( Action.Outputs.Outputs
+    , [ Bash "echo Hello world"
+      ; Redirect_out
+          (Action.Outputs.Outputs, "foo", Action.File_perm.Normal, Bash "echo Hello world")
+      ] )
+  |> print;
+  [%expect
+    {|
+      bash -e -u -o pipefail -c 'echo Hello world'  2>&1 |
+        bash -e -u -o pipefail -c 'echo Hello world' &> foo |}]
+;;

unikernel/duniverse/dune_/test/expect-tests/dune_engine/dune

@@ -0,0 +1,17 @@
+(library
+ (name dune_engine_test)
+ (inline_tests)
+ (libraries
+  dune_tests_common
+  dune_lang
+  predicate_lang
+  stdune
+  dune_engine
+  ;; This is because of the (implicit_transitive_deps false)
+  ;; in dune-project
+  ppx_expect.config
+  ppx_expect.config_types
+  base
+  ppx_inline_test.config)
+ (preprocess
+  (pps ppx_expect)))