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

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

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

3
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/preprocess-with-action.t/dune/dune Normal file
View file

@ -0,0 +1,3 @@
(test
(name test)
(preprocess (action (run pp/pp.exe %{input-file}))))

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/preprocess-with-action.t/dune/test.expected Normal file
View file

@ -0,0 +1 @@
Hello, world!

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/preprocess-with-action.t/dune/test.ml Normal file
View file

@ -0,0 +1 @@
print_endline _STRING_

4
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/preprocess-with-action.t/pp/dune Normal file
View file

@ -0,0 +1,4 @@
(executable
(name pp))
(ocamllex pp)

10
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/preprocess-with-action.t/pp/pp.mll Normal file
View file

@ -0,0 +1,10 @@
rule main = parse
| eof { () }
| "_STRING_" { Printf.printf "%S" "Hello, world!"; main lexbuf }
| _ as c { print_char c; main lexbuf }
{
let () =
set_binary_mode_out stdout true;
main (Lexing.from_channel (open_in_bin Sys.argv.(1)))
}

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

@ -0,0 +1,4 @@
This test check that we can preprocess source code with actions
$ dune runtest --display short 2>&1 | grep " pp"
pp dune/test.pp.ml