Persistent store with Git semantics: lazy reads, delayed writes, content-addressing
irmin/test: count </th> to skip <thead>
The <th substring also matched <thead>, causing the th-count assertion
to over-count by one. Match the closing tag </th> instead.
+2
-1
+2
-1
test/ui/test_table.ml
+2
-1
test/ui/test_table.ml
···
24
24
[ ("Name", Table.Left); ("Size", Table.Right); ("Hash", Table.Right) ]
25
25
in
26
26
let s = Tw_html.to_string h in
27
-
Alcotest.(check int) "3 <th>" 3 (count_substring ~needle:"<th" s);
27
+
(* Use the closing tag to avoid counting <thead> as a <th>. *)
28
+
Alcotest.(check int) "3 </th>" 3 (count_substring ~needle:"</th>" s);
28
29
List.iter
29
30
(fun label ->
30
31
Alcotest.(check bool)