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/select.t/bar.no_unix.ml Normal file
View file

@ -0,0 +1 @@
let message = "bar has no unix"

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/select.t/bar.unix.ml Normal file
View file

@ -0,0 +1 @@
let message = "bar has unix"

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/select.t/foo.fake.ml Normal file
View file

@ -0,0 +1 @@
let message = "foo has fake" ^ Fakefoobar.dontexists

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/select.t/foo.no_fake.ml Normal file
View file

@ -0,0 +1 @@
let message = "foo has no fake"

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

@ -0,0 +1,2 @@
print_endline Bar.message;;
print_endline Foo.message;;

39
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/select.t/run.t Normal file
View file

@ -0,0 +1,39 @@
$ echo '(lang dune 1.0)' > dune-project
$ cat >dune <<EOF
> (executable
> (name main)
> (libraries
> (select bar.ml from
> (unix -> bar.unix.ml)
> (!unix -> bar.no_unix.ml))
> (select foo.ml from
> (fakefoobar -> foo.fake.ml)
> (!fakefoobar -> foo.no_fake.ml))))
> (alias
> (name runtest)
> (action (run ./main.exe)))
> EOF
$ dune runtest
bar has unix
foo has no fake
$ echo '(lang dune 2.0)' > dune-project
$ cat >dune <<EOF
> (executable
> (name main)
> (libraries
> (select bar.ml from
> (unix -> bar.unix.ml)
> (!unix -> bar.no_unix.ml))
> (select foo.ml from
> (fakefoobar -> foo.fake.ml)
> (!fakefoobar -> foo.no_fake.ml))))
> (rule
> (alias runtest)
> (action (run ./main.exe)))
> EOF
$ dune runtest
bar has unix
foo has no fake