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

11
unikernel/duniverse/mirage/test/functoria/e2e/errors/in_device.ml Normal file
View file

@ -0,0 +1,11 @@
open Functoria
open E2e
let device =
let connect _ modname = function
| [ _; _ ] -> code ~pos:__POS__ "%s.start' () ()" modname
| _ -> assert false
in
impl ~connect "Unikernel.Make" (job @-> job @-> job)
let () = register "my-app" [ device $ noop $ noop ]

3
unikernel/duniverse/mirage/test/functoria/e2e/errors/in_device/unikernel.ml Normal file
View file

@ -0,0 +1,3 @@
module Make (_ : sig end) (_ : sig end) = struct
let start _ _ = ()
end

5
unikernel/duniverse/mirage/test/functoria/e2e/errors/in_functor_not_enough.ml Normal file
View file

@ -0,0 +1,5 @@
open Functoria
open E2e
let device = main "Unikernel.Make" (job @-> job)
let () = register "my-app" [ device $ noop ]

3
unikernel/duniverse/mirage/test/functoria/e2e/errors/in_functor_not_enough/unikernel.ml Normal file
View file

@ -0,0 +1,3 @@
module Make (_ : sig end) (_ : sig end) = struct
let start _ _ = ()
end

5
unikernel/duniverse/mirage/test/functoria/e2e/errors/in_functor_too_many.ml Normal file
View file

@ -0,0 +1,5 @@
open Functoria
open E2e
let device = main "Unikernel.Make" (job @-> job @-> job @-> job)
let () = register "my-app" [ device $ noop $ noop $ noop ]

3
unikernel/duniverse/mirage/test/functoria/e2e/errors/in_functor_too_many/unikernel.ml Normal file
View file

@ -0,0 +1,3 @@
module Make (_ : sig end) (_ : sig end) = struct
let start _ _ = ()
end

3
unikernel/duniverse/mirage/test/functoria/e2e/errors/unikernel.ml Normal file
View file

@ -0,0 +1,3 @@
module Make (_ : sig end) (_ : sig end) = struct
let start _ _ = ()
end