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
115
116
117
118
119
|
(* This file is part of Markup.ml, released under the MIT license. See
LICENSE.md for details, or visit https://github.com/aantron/markup.ml. *)
open OUnit2
open Markup
let tests = [
("integration.xml" >:: fun _ ->
"<?xml version='1.0' encoding='windows-1252'?><root>\xa0</root><a></a>"
|> string
|> parse_xml
|> signals
|> write_xml
|> to_string
|> assert_equal
("<?xml version=\"1.0\" encoding=\"windows-1252\"?>" ^
"<root>\xc2\xa0</root><a/>");
"\xfe\xff\x00f\x00o\x00o"
|> string
|> parse_xml
|> signals
|> write_xml
|> to_string
|> assert_equal "foo");
("integration.html" >:: fun _ ->
"<!DOCTYPE html><html><body><p><em>foo<p>bar"
|> string
|> parse_html
|> signals
|> write_html
|> to_string
|> assert_equal
("<!DOCTYPE html><html><head></head><body><p><em>foo</em></p>" ^
"<p><em>bar</em></p></body></html>"));
("integration.html.encoding" >:: fun _ ->
("<!DOCTYPE html><html><head><meta http-equiv='content-type' " ^
"content='text/html' charset='iso-8859-15'></head>" ^
"<body><p><em>\xA0\xA4foo<p>bar")
|> string
|> parse_html
|> signals
|> write_html
|> to_string
|> assert_equal
("<!DOCTYPE html><html><head><meta http-equiv=\"content-type\" " ^
"content=\"text/html\" charset=\"iso-8859-15\"></head>" ^
"<body><p><em> \xE2\x82\xACfoo</em></p>" ^
"<p><em>bar</em></p></body></html>"));
("integration.html.context-disambiguation" >:: fun _ ->
"<a></a>"
|> string
|> parse_html ~context:(`Fragment "svg")
|> signals
|> to_list
|> assert_equal [`Start_element ((Ns.svg, "a"), []); `End_element]);
("integration.pretty_print" >:: fun _ ->
"<root>foo<nested>bar</nested><nested>baz</nested></root>"
|> string
|> parse_xml
|> signals
|> pretty_print
|> write_xml
|> to_string
|> assert_equal
("<root>\n foo\n <nested>\n bar\n </nested>\n" ^
" <nested>\n baz\n </nested>\n</root>\n"));
("integration.locations" >:: fun _ ->
let parser = "<root>foo</root>" |> string |> parse_xml in
assert_equal (location parser) (1, 1);
parser |> signals |> next |> ignore;
assert_equal (location parser) (1, 1);
parser |> signals |> next |> ignore;
assert_equal (location parser) (1, 7);
parser |> signals |> next |> ignore;
assert_equal (location parser) (1, 10);
parser |> signals |> next |> ignore;
assert_equal (location parser) (1, 10));
("integration.reread-html-tree" >:: fun _ ->
let stream = "<p></p>" |> string |> parse_html |> signals in
let assemble () =
stream |> tree ~text:(fun _ -> ()) ~element:(fun _ _ _ -> ()) in
assert_equal ~msg:"fi" (assemble ()) (Some ());
assert_equal ~msg:"fi" (assemble ()) None);
("integration.doctype.round-trip" >:: fun _ ->
({|<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" |} ^
{|"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">|})
|> string
|> parse_html
|> signals
|> write_html
|> to_string
|> assert_equal
({|<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" |} ^
{|"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">|} ^
{|<html><head></head><body></body></html>|}));
("integration.doctype.pretty_print" >:: fun _ ->
"<!DOCTYPE html><div></div>"
|> string
|> parse_html
|> signals
|> pretty_print
|> write_html
|> to_string
|> assert_equal
("<!DOCTYPE html>\n<html>\n <head></head>\n" ^
" <body>\n <div></div>\n </body>\n</html>\n"));
]
|
