unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/nested-env.t/dune

@@ -0,0 +1,3 @@
+(alias
+ (name default)
+ (deps (alias_rec runtest)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/nested-env.t/dune-project

@@ -0,0 +1 @@
+(lang dune 1.8)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/nested-env.t/priv/dune

@@ -0,0 +1 @@
+(executable (name priv))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/nested-env.t/priv/priv.ml

@@ -0,0 +1,22 @@
+let count_segments s ~segment =
+  s
+  |> String.split_on_char '/'
+  |> List.filter (fun part -> String.equal part segment)
+  |> List.length
+
+let is_in_inner_build_dir s =
+  count_segments ~segment:"_build" s = 2
+
+let () =
+  let name = Filename.basename Sys.argv.(0) in
+  Printf.printf "Executing priv as %s\n" name;
+  let path =
+    match Sys.getenv "PATH" with
+    | exception Not_found -> "<empty>"
+    | s ->
+      s
+      |> String.split_on_char ':'
+      |> List.filter is_in_inner_build_dir
+      |> String.concat "\n\t"
+  in
+  Printf.printf "PATH:\n\t%s\n" path

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/nested-env.t/run.t

@@ -0,0 +1,17 @@
+Nest env binaries
+  $ dune build
+  Executing priv as priv
+  PATH:
+  	$TESTCASE_ROOT/_build/default/using-priv/nested/.bin
+  	$TESTCASE_ROOT/_build/default/using-priv/.bin
+  	$TESTCASE_ROOT/_build/install/default/bin
+  Executing priv as priv-renamed
+  PATH:
+  	$TESTCASE_ROOT/_build/default/using-priv/nested/.bin
+  	$TESTCASE_ROOT/_build/default/using-priv/.bin
+  	$TESTCASE_ROOT/_build/install/default/bin
+  Executing priv as priv-renamed-nested
+  PATH:
+  	$TESTCASE_ROOT/_build/default/using-priv/nested/.bin
+  	$TESTCASE_ROOT/_build/default/using-priv/.bin
+  	$TESTCASE_ROOT/_build/install/default/bin

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/nested-env.t/using-priv/dune

@@ -0,0 +1,5 @@
+(env
+ (_
+  (binaries
+    ../priv/priv.exe
+   (../priv/priv.exe as priv-renamed))))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/nested-env.t/using-priv/nested/dune

@@ -0,0 +1,12 @@
+(env
+ (_
+  (binaries
+   (../../priv/priv.exe as priv-renamed-nested))))
+
+(alias
+ (name runtest)
+ (action
+  (progn
+   (run priv)
+   (run priv-renamed)
+   (run priv-renamed-nested))))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/override-bins.t/dune

@@ -0,0 +1,4 @@
+(alias
+ (name default)
+ (deps (alias_rec runtest))
+ (action (run foo)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/override-bins.t/dune-project

@@ -0,0 +1 @@
+(lang dune 1.6)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/override-bins.t/priv/dune

@@ -0,0 +1 @@
+(executable (name priv))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/override-bins.t/priv/priv.ml

@@ -0,0 +1 @@
+print_endline "private binary"

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/override-bins.t/pub/dune

@@ -0,0 +1 @@
+(executable (public_name foo))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/override-bins.t/pub/foo.ml

@@ -0,0 +1 @@
+print_endline "public binary"

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/override-bins.t/run.t

@@ -0,0 +1,5 @@
+Override public binary in env
+
+  $ dune build
+  private binary
+  public binary

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/override-bins.t/test/dune

@@ -0,0 +1,7 @@
+(env
+ (_
+  (binaries (../priv/priv.exe as foo))))
+
+(alias
+ (name runtest)
+ (action (run foo)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/private-bin-import.t/dune

@@ -0,0 +1,3 @@
+(alias
+ (name default)
+ (deps (alias_rec runtest)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/private-bin-import.t/dune-project

@@ -0,0 +1 @@
+(lang dune 1.6)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/private-bin-import.t/priv/dune

@@ -0,0 +1 @@
+(executable (name priv))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/private-bin-import.t/priv/priv.ml

@@ -0,0 +1,22 @@
+let count_segments s ~segment =
+  s
+  |> String.split_on_char '/'
+  |> List.filter (fun part -> String.equal part segment)
+  |> List.length
+
+let is_in_inner_build_dir s =
+  count_segments ~segment:"_build" s = 2
+
+let () =
+  let name = Filename.basename Sys.argv.(0) in
+  Printf.printf "Executing priv as %s\n" name;
+  let path =
+    match Sys.getenv "PATH" with
+    | exception Not_found -> "<empty>"
+    | s ->
+      s
+      |> String.split_on_char ':'
+      |> List.filter is_in_inner_build_dir
+      |> String.concat "\n\t"
+  in
+  Printf.printf "PATH:\n\t%s\n" path

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/private-bin-import.t/run.t

@@ -0,0 +1,11 @@
+Basic test that we can use private binaries as public ones
+
+  $ dune build
+  Executing priv as priv
+  PATH:
+  	$TESTCASE_ROOT/_build/default/using-priv/.bin
+  	$TESTCASE_ROOT/_build/install/default/bin
+  Executing priv as priv-renamed
+  PATH:
+  	$TESTCASE_ROOT/_build/default/using-priv/.bin
+  	$TESTCASE_ROOT/_build/install/default/bin

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/env/env-bins/private-bin-import.t/using-priv/dune

@@ -0,0 +1,12 @@
+(env
+ (_
+  (binaries
+    ../priv/priv.exe
+    (../priv/priv.exe as priv-renamed))))
+
+(alias
+ (name runtest)
+ (action
+  (progn
+   (run priv)
+   (run priv-renamed))))