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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
(******************************************************************************)
(* OASIS: architecture for building OCaml libraries and applications *)
(* *)
(* Copyright (C) 2011-2016, Sylvain Le Gall *)
(* Copyright (C) 2008-2011, OCamlCore SARL *)
(* *)
(* This library is free software; you can redistribute it and/or modify it *)
(* under the terms of the GNU Lesser General Public License as published by *)
(* the Free Software Foundation; either version 2.1 of the License, or (at *)
(* your option) any later version, with the OCaml static compilation *)
(* exception. *)
(* *)
(* This library is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *)
(* or FITNESS FOR A PARTICULAR PURPOSE. See the file COPYING for more *)
(* details. *)
(* *)
(* You should have received a copy of the GNU Lesser General Public License *)
(* along with this library; if not, write to the Free Software Foundation, *)
(* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA *)
(******************************************************************************)
open OUnit2
open TestCommon
open TestFullUtils
let test_one ?dev ?dynamic ?nocompat ?setup_ml_org test_ctxt fn =
let t =
setup_test_directories
test_ctxt
~is_native:(is_native test_ctxt)
~native_dynlink:(native_dynlink test_ctxt)
(in_testdata_dir test_ctxt ["TestBaseCompat"])
in
begin
match setup_ml_org with
| Some fn -> FileUtil.cp [in_src_dir t fn] (in_src_dir t setup_ml)
| None -> ()
end;
FileUtil.cp [in_src_dir t fn] (in_src_dir t OASISParse.default_oasis_fn);
oasis_setup ?dev ?dynamic ?nocompat test_ctxt t;
(in_src_dir t setup_ml), t
let assert_contains fn what =
assert_bool
(Printf.sprintf "File %S should contain %S." fn what)
(OASISString.contains ~what (file_content fn))
let assert_doesnt_contain fn what =
assert_bool
(Printf.sprintf "File %S shouldn't contain %S." fn what)
(not (OASISString.contains ~what (file_content fn)))
let assert_present fn =
assert_bool
(Printf.sprintf "File %s should be present." fn)
(Sys.file_exists fn)
let assert_absent fn =
assert_bool
(Printf.sprintf "File %s should not be present." fn)
(not (Sys.file_exists fn))
let tests =
"BaseCompat" >:::
[
"oasis-0.3" >::
(fun test_ctxt ->
let setup_ml, _ = test_one test_ctxt "_oasis-0.3" in
assert_contains setup_ml "open BaseCompat.Compat_0_3";
assert_doesnt_contain setup_ml "open BaseCompat.Compat_0_4");
"oasis-0.4" >::
(fun test_ctxt ->
let setup_ml, t =
test_one test_ctxt ~setup_ml_org:"setup-0.4.ml" "_oasis-0.4"
in
let test_fn = in_src_dir t "foobar" in
assert_doesnt_contain setup_ml "open BaseCompat.Compat_0_3";
assert_contains setup_ml "open BaseCompat.Compat_0_4";
run_ocaml_setup_ml test_ctxt t ["-version"];
assert_absent test_fn;
run_ocaml_setup_ml test_ctxt t ["-configure"];
assert_present test_fn;
run_ocaml_setup_ml test_ctxt t ["-distclean"];
assert_absent test_fn);
"oasis-nocompat" >::
(fun test_ctxt ->
let setup_ml, _ = test_one ~nocompat:true test_ctxt "_oasis-0.4" in
assert_doesnt_contain setup_ml "open BaseCompat.Compat_0_3";
assert_doesnt_contain setup_ml "open BaseCompat.Compat_0_4");
"oasis-dynrun" >::
(fun test_ctxt ->
let setup_ml, t =
test_one
~setup_ml_org:"setup-0.4.ml"
~dev:true
~dynamic:true
test_ctxt
"_oasis-0.4"
in
let test_fn = in_src_dir t "foobar" in
dbug_file_content test_ctxt setup_ml;
assert_absent test_fn;
run_ocaml_setup_ml test_ctxt t ["-configure"];
assert_present test_fn);
]
|
