diff --git a/tests/html/makehtml.ml b/tests/html/makehtml.ml
index fcf7e313..e31ce51b 100644
--- a/tests/html/makehtml.ml
+++ b/tests/html/makehtml.ml
@@ -6,7 +6,7 @@ let t1() =
head [] [];
body [] [
ul [A.style "list-style: circle"] (
- li[][pre [] [txt "a"; txt "b"]] ::
+ li[][pre [] [txt "a"; pre[][txt "c"; txt"d"]; txt "b"]] ::
List.init 100 (fun i -> li [A.id (spf "l%d" i)] [txt (spf "item %d" i)])
)
]
diff --git a/tests/html/t1.expected.html b/tests/html/t1.expected.html
index 9ac5658c..2ec8bacf 100644
--- a/tests/html/t1.expected.html
+++ b/tests/html/t1.expected.html
@@ -6,7 +6,7 @@