swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/actions/bin/dune Normal file
View file

@ -0,0 +1,3 @@
(executable
(name sub_process)
(libraries unix))

10
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/actions/bin/sub_process.ml Normal file
View file

@ -0,0 +1,10 @@
let () =
match Sys.argv with
| [| _ |] -> exit (Sys.command (Filename.quote_command Sys.executable_name [ "sub" ]))
| [| _; "sub" |] ->
let oc = open_out (Sys.getenv "BEACON_FILE") in
Printf.fprintf oc "%d" (Unix.getpid ());
close_out oc;
Unix.sleep max_int
| _ -> assert false
;;