From 46cb25e5b85366ed2a813d33d49c9b15cce54980 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 16 Mar 2022 22:38:46 -0400
Subject: [PATCH] exercize `if_` in a test

---
 tests/html/makehtml.ml      | 2 +-
 tests/html/t2.expected.html | 3 ---
 2 files changed, 1 insertion(+), 4 deletions(-)

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
 <li id="l41">
 item 41
 </li>
-<li id="l42">
-item 42
-</li>
 <li id="l43">
 item 43
 </li>