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
|
(* TEST
include testing;
*)
(*
A test file for the Format module.
*)
open Testing;;
open Format;;
let say s = Printf.printf (s ^^ "\n%!");;
let pp_print_intarray = pp_print_array ~pp_sep:(fun fmt () -> pp_print_char fmt ' ') pp_print_int;;
let () =
say "empty";
test (asprintf "%a" pp_print_intarray [||] = "");
say "\nmisc";
test (asprintf "%a" pp_print_intarray [| 0 |] = "0");
test (asprintf "%a" pp_print_intarray [| 0; 1; 2 |] = "0 1 2");
test (asprintf "%a" pp_print_intarray [| 0; 0 |] = "0 0");
say "\nend of tests"
|
