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

5
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github4682.t/dune Normal file
View file

@ -0,0 +1,5 @@
(executable
(name main)
(root_module root)
(libraries unix)
(preprocess (pps ppx)))

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github4682.t/dune-project Normal file
View file

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

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github4682.t/main.ml Normal file
View file

@ -0,0 +1 @@
module X = Root.Unix

4
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github4682.t/ppx/dune Normal file
View file

@ -0,0 +1,4 @@
(library
(name ppx)
(kind ppx_rewriter)
(ppx.driver (main Ppx.main)))

12
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github4682.t/ppx/ppx.ml Normal file
View file

@ -0,0 +1,12 @@
let main () =
let out = ref "" in
let args =
[ ("-o", Arg.Set_string out, "")
; ("--impl", Arg.Set_string (ref ""), "")
; ("--as-ppx", Arg.Set (ref false), "")
]
in
let anon _ = () in
Arg.parse (Arg.align args) anon "";
let out = open_out !out in
close_out out;

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github4682.t/ppx/ppx.mli Normal file
View file

@ -0,0 +1 @@
val main : unit -> unit

4
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github4682.t/run.t Normal file
View file

@ -0,0 +1,4 @@
Attempting to use `(root_module ...)` with an executable that uses PPX results
in an unexpected build failure:
$ dune build