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/github2206.t/copy_files/dune Normal file
View file

@ -0,0 +1,5 @@
(copy_files sources/*)
(executable
(name foo)
(preprocess (action (run %{project_root}/pp.exe %{input-file}))))

0
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github2206.t/copy_files/foo.ml Normal file
View file

0
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github2206.t/copy_files/sources/foo Normal file
View file

2
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github2206.t/dune Normal file
View file

@ -0,0 +1,2 @@
(executable
(name pp))

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

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

7
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github2206.t/pp.ml Normal file
View file

@ -0,0 +1,7 @@
let file = Sys.argv.(1)
let () =
let ch = open_in file in
let s = really_input_string ch (in_channel_length ch) in
close_in_noerr ch;
print_string s

17
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github2206.t/run.t Normal file
View file

@ -0,0 +1,17 @@
copy_files would break the generation of the preprocessing flags
$ dune build copy_files/.merlin-conf/exe-foo
$ dune ocaml merlin dump-config $PWD/copy_files |
> grep -B 2 -A 0 "pp"
Foo: _build/default/copy_files/foo
((INDEX $TESTCASE_ROOT/_build/default/.pp.eobjs/cctx.ocaml-index)
--
(S $TESTCASE_ROOT/copy_files/sources)
(FLG (-w @1..3@5..28@30..39@43@46..47@49..57@61..62-40 -strict-sequence -strict-formats -short-paths -keep-locs -g))
(FLG (-pp $TESTCASE_ROOT/_build/default/pp.exe))
(UNIT_NAME foo))
Foo: _build/default/copy_files/foo.ml
((INDEX $TESTCASE_ROOT/_build/default/.pp.eobjs/cctx.ocaml-index)
--
(S $TESTCASE_ROOT/copy_files/sources)
(FLG (-w @1..3@5..28@30..39@43@46..47@49..57@61..62-40 -strict-sequence -strict-formats -short-paths -keep-locs -g))
(FLG (-pp $TESTCASE_ROOT/_build/default/pp.exe))