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
|
include (val Containers_testlib.make ~__FILE__ ())
open Containers_pp
let spf = Printf.sprintf
let () =
eq "hello world" (Flatten.to_string @@ text "hello" ^ newline ^ text "world")
let () =
eq ~name:"split text" ~printer:(spf "%S") "let rec f x =\n x+2\n"
(let d = text "let rec f x =\n x+2\n" in
Pretty.to_string ~width:15 d)
let () =
eq ~name:"l1" ~printer:(spf "%S") "[0; 1; 2; 3;\n 4; 5; 6; 7;\n 8; 9]"
(let d = Dump.list (CCList.init 10 int) in
Pretty.to_string ~width:10 d)
let () =
eq ~name:"l2" ~printer:(spf "%S")
"[[0; 1; 2; 3;\n\
\ 4; 5];\n\
\ [1; 2; 3; 4;\n\
\ 5; 6];\n\
\ [2; 3; 4; 5;\n\
\ 6; 7];\n\
\ [3; 4; 5; 6;\n\
\ 7; 8];\n\
\ [4; 5; 6; 7;\n\
\ 8; 9];\n\
\ [5; 6; 7; 8;\n\
\ 9; 10]]"
(let d =
Dump.list
(CCList.init 6 (fun i ->
Dump.list (CCList.init 6 (fun j -> int @@ (i + j)))))
in
Pretty.to_string ~width:10 d)
let () =
eq ~name:"s1" ~printer:(spf "%S") "(foo\n bar\n baaz\n (g 42 10))"
(let d =
sexp_apply "foo"
[ text "bar"; text "baaz"; sexp_apply "g" [ int 42; int 10 ] ]
in
Pretty.to_string ~width:10 d)
let ext_coucou =
Ext.make ~name:"coucou"
~pre:(fun out ~inside:_ () -> out.string "<coucou>")
~post:(fun out ~inside:_ () -> out.string "</coucou>")
()
let () =
eq ~name:"wrap1" ~printer:(spf "%S")
"(foo\n bar\n <coucou>(g 42 10)</coucou>)"
(let d =
sexp_apply "foo"
[ text "bar"; ext ext_coucou () (sexp_apply "g" [ int 42; int 10 ]) ]
in
Pretty.to_string ~width:10 d)
let () =
eq ~name:"nested color" ~printer:(spf "%S")
"hello \027[32mworld \027[31moh my!\027[32m!?\027[43moh well\027[32m\027[0m"
(let d =
text "hello"
^+ Term_color.color `Green
(text "world"
^+ Term_color.color `Red (text "oh my!")
^ text "!?"
^ Term_color.style_l [ `BG `Yellow ] (text "oh well"))
in
Pretty.to_string ~width:1000 d)
|
