diff --git a/tests/html/makehtml.ml b/tests/html/makehtml.ml index 6a89bffb..7d0ef3c8 100644 --- a/tests/html/makehtml.ml +++ b/tests/html/makehtml.ml @@ -18,7 +18,7 @@ let t2() = body [] [ ul' [A.style "list-style: circle"] (fun buf -> for i=0 to 99 do - li [A.id (spf "l%d" i)] [txt (spf "item %d" i)] buf + li ~if_:(i<> 42) [A.id (spf "l%d" i)] [txt (spf "item %d" i)] buf done ) ] diff --git a/tests/html/t2.expected.html b/tests/html/t2.expected.html index 4b591ca0..0fe9c984 100644 --- a/tests/html/t2.expected.html +++ b/tests/html/t2.expected.html @@ -131,9 +131,6 @@ item 40