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
|
(* TEST
expect;
*)
let inspect (format : _ format6) =
let (CamlinternalFormatBasics.Format (fmt, str)) = format in
(CamlinternalFormat.string_of_fmt fmt, str);;
[%%expect{|
val inspect : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> string * string = <fun>
|}];;
inspect "@[foo@]";;
[%%expect{|
- : string * string = ("@[foo@]", "@[foo@]")
|}];;
inspect "@%%";;
[%%expect{|
- : string * string = ("@%%", "@%%")
|}];;
inspect "@<";;
[%%expect{|
- : string * string = ("@<", "@<")
|}];;
inspect "@[<%s>@]";;
[%%expect{|
- : string * string = ("@[<%s>@]", "@[<%s>@]")
|}];;
|
