blob: f58cde57c6bcc1c6ca199ee52801b891e8e22229 (
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
|
diff --git a/src/dynlink/dune b/src/dynlink/dune
index 3714cef..72db257 100644
--- a/src/dynlink/dune
+++ b/src/dynlink/dune
@@ -9,11 +9,3 @@
(name libB)
(modules libB)
)
-
-(test
- (name lin_tests)
- (modules lin_tests)
- (package multicoretests)
- (libraries qcheck-lin.domain dynlink libA libB)
- (action (run %{test} --verbose))
-)
diff --git a/src/dynlink/lin_tests.ml b/src/dynlink/lin_tests.ml
deleted file mode 100644
index 7e81981..0000000
--- a/src/dynlink/lin_tests.ml
+++ /dev/null
@@ -1,41 +0,0 @@
-(* ************************************ *)
-(* Tests of Dynlink *)
-(* ************************************ *)
-
-open Lin
-
-(* Two libraries that should exist, one that should not *)
-let library_name = QCheck.Gen.oneofl ["libA.cma"; "libB.cma"; "libC.cma"]
-let arb_library = QCheck.make library_name
-let print_library l = QCheck.Print.string (Dynlink.adapt_filename l)
-
-(** A {!Lin} {i type} for files that can be dynamically linked *)
-let library = gen_deconstructible arb_library print_library (=)
-
-let loadfile f = Dynlink.loadfile (Dynlink.adapt_filename f)
-
-module DynConf =
-struct
- type t = unit
-
- let init () = ()
- let cleanup _ = ()
-
- let api =
- [ val_ "Dynlink.loadfile" loadfile (library @-> returning_or_exc unit);
- val_ "Dynlink.main_program_units" Dynlink.main_program_units (unit @-> returning (list string));
- val_ "Dynlink.all_units" Dynlink.all_units (unit @-> returning (list string));
- ]
-end
-
-module DynT = Lin_domain.Make(DynConf)
-
-let _ =
- if Sys.win32 || Sys.cygwin
- then
- Printf.printf "Lin Dynlink tests disabled under Windows\n\n%!"
- else
- QCheck_base_runner.run_tests_main [
- DynT.neg_lin_test ~count:100 ~name:"negative Lin Dynlink test with Domain";
- DynT.stress_test ~count:1000 ~name:"Lin Dynlink stress test with Domain";
- ]
|