diff --git a/otherlibs/site/test/github4389.t/dune b/otherlibs/site/test/github4389.t/dune new file mode 100644 index 00000000000..055b187a0e4 --- /dev/null +++ b/otherlibs/site/test/github4389.t/dune @@ -0,0 +1,9 @@ +(executable + (name main) + (public_name main) + (promote (until-clean)) + (libraries dune-build-info dune-site)) + +(generate_sites_module + (module SitesModule) + (sites github4389)) diff --git a/otherlibs/site/test/github4389.t/dune-project b/otherlibs/site/test/github4389.t/dune-project new file mode 100644 index 00000000000..1df23249879 --- /dev/null +++ b/otherlibs/site/test/github4389.t/dune-project @@ -0,0 +1,6 @@ +(lang dune 2.9) +(using dune_site 0.1) + +(package + (name github4389) + (sites (share github4389))) diff --git a/otherlibs/site/test/github4389.t/main.ml b/otherlibs/site/test/github4389.t/main.ml new file mode 100644 index 00000000000..df97a8e12d4 --- /dev/null +++ b/otherlibs/site/test/github4389.t/main.ml @@ -0,0 +1,10 @@ +let version = + match Build_info.V1.version () with + | None -> "n/a" + | Some v -> Build_info.V1.Version.to_string v + +let () = + Format.eprintf "%s@." version; + List.iter + (fun x -> Format.eprintf "%s@." x) + SitesModule.Sites.github4389 diff --git a/otherlibs/site/test/github4389.t/run.t b/otherlibs/site/test/github4389.t/run.t new file mode 100644 index 00000000000..e89bba64153 --- /dev/null +++ b/otherlibs/site/test/github4389.t/run.t @@ -0,0 +1,14 @@ + $ dune build @install + $ dune install --prefix _install + Installing _install/lib/github4389/META + Installing _install/lib/github4389/dune-package + File "_build/install/default/lib/github4389/dune-package", line 1, characters 0-0: + Warning: Failed to parse file, not adding version and locations information. + Installing _install/bin/main + $ grep sites _install/lib/github4389/dune-package + (sites (github4389 share)) + $ grep -o '[^ ]*/_install/share/github4389' _install/lib/github4389/dune-package + [1] + $ _install/bin/main + n/a + $TESTCASE_ROOT/_install/share/github4389/github4389