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
|
let%test =
let b = true in
b
(* Above, a multi-line TEST (likewise BENCH) was indented wrong only when it
started on the first line. (That wasn't really a big problem.) *)
(* oUnit *)
module E = Example
let%test_module =
(module struct
let%test = false
let%test =
let b = true in
b
let%test "Name_test" =
let b = true in (* tricky for Tuareg *)
b
end)
let%test_module "Name" =
(module struct
let%test_unit = ()
let%test_unit =
let () = () in
()
let%test_unit "Name_unit" =
let () = () in (* tricky for Tuareg *)
()
let%test_unit =
let msgcount = 10_000 in (* tricky for Tuareg *)
()
end)
let _ = printf "Hello, world!\n"
|
