summaryrefslogtreecommitdiff
path: root/testsuite/tests/lib-dynlink-initializers/test8_main.ml
blob: 0f194afcb8ee527ac94b3add5c38a014fe8c94cf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
(* TEST
 include dynlink;
 readonly_files = "test8_plugin_a.ml test8_plugin_b.ml test8_plugin_b.mli";
 libraries = "";
 shared-libraries;
 {
   setup-ocamlc.byte-build-env;
   {
     module = "test8_main.ml";
     ocamlc.byte;
   }{
     module = "test8_plugin_b.mli";
     ocamlc.byte;
   }{
     module = "test8_plugin_a.ml";
     ocamlc.byte;
   }{
     module = "test8_plugin_b.ml";
     ocamlc.byte;
   }{
     program = "test8_plugin.cma";
     flags = "-a";
     all_modules = "test8_plugin_a.cmo test8_plugin_b.cmo";
     ocamlc.byte;
   }{
     program = "${test_build_directory}/test8.byte";
     libraries = "dynlink";
     all_modules = "test8_main.cmo";
     ocamlc.byte;
     run;
   }
 }{
   native-dynlink;
   setup-ocamlopt.byte-build-env;
   {
     module = "test8_main.ml";
     ocamlopt.byte;
   }{
     module = "test8_plugin_b.mli";
     ocamlopt.byte;
   }{
     module = "test8_plugin_a.ml";
     ocamlopt.byte;
   }{
     module = "test8_plugin_b.ml";
     ocamlopt.byte;
   }{
     program = "test8_plugin.cmxs";
     flags = "-shared";
     all_modules = "test8_plugin_a.cmx test8_plugin_b.cmx";
     ocamlopt.byte;
   }{
     program = "${test_build_directory}/test8.exe";
     libraries = "dynlink";
     all_modules = "test8_main.cmx";
     ocamlopt.byte;
     run;
   }
 }
*)

(* Check that modules of a shared library can have interface-only
   dependencies to later modules in the same shared library. *)

let () =
  if Dynlink.is_native then begin
    Dynlink.loadfile "test8_plugin.cmxs"
  end else begin
    Dynlink.loadfile "test8_plugin.cma"
  end