Add a test about dune-sites where plugin links extra libary.

For now this test gives a dynlink error about missiing library. See also
#4320

Signed-off-by: Dmitrii Kosarev <[email protected]>

test/blackbox-tests/test-cases/sites.t/app.ml

@@ -0,0 +1,6 @@
+(* load all the available plugins *)
+let () = Sites.Plugins.Plugins.load_all ()
+
+let () = print_endline "Main app starts..."
+(* Execute the code registered by the plugins *)
+let () = Queue.iter (fun f -> f ()) Registration.todo

test/blackbox-tests/test-cases/sites.t/dune

@@ -0,0 +1,14 @@
+(executable
+ (public_name app)
+ (modules sites app)
+ (libraries app.register dune-site dune-site.plugins ))
+
+(library
+ (public_name app.register)
+ ;(libraries stdio)
+ (name registration)
+ (modules registration))
+
+(generate_sites_module
+ (module sites)
+ (plugins (app plugins)))

test/blackbox-tests/test-cases/sites.t/dune-project

@@ -0,0 +1,8 @@
+(lang dune 2.8)
+(using dune_site 0.1)
+
+(name app)
+
+(package
+ (name app)
+ (sites (lib plugins)))

test/blackbox-tests/test-cases/sites.t/plugin/dune

@@ -0,0 +1,12 @@
+(env (_ (flags -w -33)))
+
+(library
+ (public_name plugin1.plugin1_impl)
+ (name plugin1_impl)
+ (modules plugin1_impl)
+ (libraries app.MyControls app.register threads))
+
+(plugin
+ (name plugin1)
+ (libraries threads plugin1.plugin1_impl)
+ (site (app plugins)))

test/blackbox-tests/test-cases/sites.t/plugin/dune-project

@@ -0,0 +1,7 @@
+(lang dune 2.8)
+(using dune_site 0.1)
+
+(generate_opam_files true)
+
+(package
+ (name plugin1))

test/blackbox-tests/test-cases/sites.t/plugin/plugin1.opam

@@ -0,0 +1,20 @@
+# This file is generated by dune, edit dune-project instead
+opam-version: "2.0"
+depends: [
+  "dune" {>= "2.8"}
+  "odoc" {with-doc}
+]
+build: [
+  ["dune" "subst"] {dev}
+  [
+    "dune"
+    "build"
+    "-p"
+    name
+    "-j"
+    jobs
+    "@install"
+    "@runtest" {with-test}
+    "@doc" {with-doc}
+  ]
+]

test/blackbox-tests/test-cases/sites.t/plugin/plugin1_impl.ml

@@ -0,0 +1,4 @@
+let () =
+  let open Thread in
+  print_endline "Registration of Plugin1";
+  Queue.add (fun () -> print_endline "Plugin1 is doing something...") Registration.todo

test/blackbox-tests/test-cases/sites.t/registration.ml

@@ -0,0 +1 @@
+let todo : (unit -> unit) Queue.t = Queue.create ()

test/blackbox-tests/test-cases/sites.t/run.t

@@ -0,0 +1,5 @@
+
+  $ dune build ./app.exe @install
+  $ dune exec ./app.exe
+
+

test/blackbox-tests/test-cases/sites.t/stubs/MyControls.ml

@@ -0,0 +1 @@
+

test/blackbox-tests/test-cases/sites.t/stubs/dune

@@ -0,0 +1,7 @@
+(library
+ (public_name app.MyControls)
+ (name MyControls)
+
+ (modules MyControls)
+ (libraries )
+)