unikernel/duniverse/dune_/test/blackbox-tests/test-cases/coq/compose-private-ambiguous.t/A/a.v

@@ -0,0 +1,3 @@
+From Coq Require Import String.
+Local Open Scope string_scope.
+Definition message := "I am the the private A ".

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/coq/compose-private-ambiguous.t/A/dune

@@ -0,0 +1,3 @@
+(coq.theory
+ (name A))
+

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/coq/compose-private-ambiguous.t/A_vendored/a.v

@@ -0,0 +1,3 @@
+From Coq Require Import String.
+Local Open Scope string_scope.
+Definition message := "I am the vendored A".

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/coq/compose-private-ambiguous.t/A_vendored/dune

@@ -0,0 +1,4 @@
+(coq.theory
+ (name A)
+ (package A))
+

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/coq/compose-private-ambiguous.t/A_vendored/dune-project

@@ -0,0 +1,2 @@
+(lang dune 3.2)
+(using coq 0.3)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/coq/compose-private-ambiguous.t/B/b.v

@@ -0,0 +1,7 @@
+From Coq Require Import String.
+From A Require Import a.
+
+Local Open Scope string_scope.
+
+Print message.
+

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/coq/compose-private-ambiguous.t/B/dune

@@ -0,0 +1,3 @@
+(coq.theory
+ (name B)
+ (theories A))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/coq/compose-private-ambiguous.t/C/c.v

@@ -0,0 +1,7 @@
+From Coq Require Import String.
+From A Require Import a.
+
+Local Open Scope string_scope.
+
+Print message.
+

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/coq/compose-private-ambiguous.t/C/dune

@@ -0,0 +1,6 @@
+(coq.theory
+ (name C)
+ (package C)
+ (theories A))
+
+

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/coq/compose-private-ambiguous.t/dune-project

@@ -0,0 +1,2 @@
+(lang dune 3.2)
+(using coq 0.3)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/coq/compose-private-ambiguous.t/run.t

@@ -0,0 +1,24 @@
+We have two theories, A and A_vendored both called A. We test which one a
+private plugin B and the public package C will pick up.
+
+B will pick up the private one:
+  $ dune build B
+  Warning: Coq Language Versions lower than 0.8 have been deprecated in Dune
+  3.8 and will be removed in an upcoming Dune version.
+  Hint: To disable this warning, add the following to your dune-project file:
+  (warnings (deprecated_coq_lang_lt_08 disabled))
+  message = "I am the the private A "
+       : string
+
+C picks up the private one too:
+  $ dune build C
+  Warning: Coq Language Versions lower than 0.8 have been deprecated in Dune
+  3.8 and will be removed in an upcoming Dune version.
+  Hint: To disable this warning, add the following to your dune-project file:
+  (warnings (deprecated_coq_lang_lt_08 disabled))
+  File "C/dune", line 4, characters 11-12:
+  4 |  (theories A))
+                 ^
+  Theory "A" is private, it cannot be a dependency of a public theory. You need
+  to associate "A" to a package.
+  [1]