simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

exercize if_ in a test

Browse source
This commit is contained in:
Simon Cruanes 2022-03-16 22:38:46 -04:00
parent b88c8bbda1
commit 46cb25e5b8
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tests/html/makehtml.ml
View file

@ -18,7 +18,7 @@ let t2() =
body [] [ body [] [
ul' [A.style "list-style: circle"] (fun buf -> ul' [A.style "list-style: circle"] (fun buf ->
for i=0 to 99 do 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 done
) )
] ]

3
tests/html/t2.expected.html
View file

@ -131,9 +131,6 @@ item 40
<li id="l41"> <li id="l41">
item 41 item 41
</li> </li>
<li id="l42">
item 42
</li>
<li id="l43"> <li id="l43">
item 43 item 43
</li> </li>