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

@@ -0,0 +1,17 @@
+open E2e
+open Functoria
+open Cmdliner
+
+let x = Impl.v ~packages:[ package "x" ] "X" job
+let y = Impl.v ~packages:[ package "y" ] "Y" job
+
+let target_conv : [ `X | `Y ] Cmdliner.Arg.conv =
+  Cmdliner.Arg.enum [ ("y", `Y); ("x", `X) ]
+
+let target =
+  let doc = Arg.info ~doc:"Target." [ "t" ] in
+  let key = Key.Arg.opt target_conv `X doc in
+  Key.create "target" key
+
+let main = match_impl (Key.value target) ~default:y [ (`X, x) ]
+let () = register ~src:`None "noop" [ main ]