unikernel/duniverse/mirage/test/functoria/e2e/app/config.ml

@@ -0,0 +1,30 @@
+open Functoria
+open E2e
+
+let opt = runtime_arg ~pos:__POS__ "App.opt"
+let opt_all = runtime_arg ~pos:__POS__ "App.opt_all"
+let flag = runtime_arg ~pos:__POS__ "App.flag"
+let required = runtime_arg ~pos:__POS__ "App.required"
+
+let runtime_args =
+  [ runtime_arg ~pos:__POS__ "App.hello"; runtime_arg ~pos:__POS__ "App.arg" ]
+
+let keys =
+  let connect _ _ = function
+    | [ opt; opt_all; flag; required ] ->
+        code ~pos:__POS__
+          {|
+      let _ : string = %s
+      and _ : string list = %s
+      and _ : bool = %s
+      and _ : string = %s
+      in
+      return ()|}
+          opt opt_all flag required
+    | _ -> failwith "keys: connect needs exactly 4 arguments"
+  in
+  let runtime_args = [ opt; opt_all; flag; required ] in
+  impl ~connect ~runtime_args "Unit" job
+
+let main = main ~runtime_args ~pos:__POS__ "App.Make" (job @-> job)
+let () = register "noop" [ main $ keys ]