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/github660/explicit-interfaces.t/dune Normal file
View file

@ -0,0 +1,5 @@
(alias
(name runtest)
(action (run ./main.exe)))
(executable (name main))

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

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

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github660/explicit-interfaces.t/lib.ml Normal file
View file

@ -0,0 +1 @@
module Sub = Lib_sub

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github660/explicit-interfaces.t/lib.mli Normal file
View file

@ -0,0 +1 @@
module Sub = Lib_sub

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github660/explicit-interfaces.t/lib_sub.mli Normal file
View file

@ -0,0 +1 @@
val hello : string

3
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github660/explicit-interfaces.t/main.ml Normal file
View file

@ -0,0 +1,3 @@
let () =
print_endline Lib.Sub.hello;
()

9
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github660/explicit-interfaces.t/run.t Normal file
View file

@ -0,0 +1,9 @@
When there are explicit interfaces, modules must be rebuilt.
$ echo 'let hello = "hello"' > lib_sub.ml
$ dune runtest
hello
$ echo 'let _x = 1;; let () = print_endline "blah"' >> lib_sub.ml
$ dune runtest
blah
hello

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

@ -0,0 +1,5 @@
(alias
(name runtest)
(action (run ./main.exe)))
(executable (name main))

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

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

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github660/no-interfaces.t/lib.ml Normal file
View file

@ -0,0 +1 @@
module Sub = Lib_sub

3
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github660/no-interfaces.t/main.ml Normal file
View file

@ -0,0 +1,3 @@
let () =
print_endline Lib.Sub.hello;
()

10
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github660/no-interfaces.t/run.t Normal file
View file

@ -0,0 +1,10 @@
When there are no interfaces, the situation is the same, but it
is not possible to rely on these.
$ echo 'let hello = "hello"' > lib_sub.ml
$ dune runtest
hello
$ echo 'let _x = 1' >> lib_sub.ml
$ dune runtest
hello