{-# LANGUAGE QuasiQuotes #-} module Nirum.Docs.HtmlSpec where import Test.Hspec.Meta import Text.InterpolatedString.Perl6 (q) import Nirum.Docs (Html) import Nirum.Docs.Html (render) import Nirum.DocsSpec (sampleDocument) expectedHtml :: Html expectedHtml = [q|
Tight list:
Loose list:
a
b
A complex link.
A | B | C | D |
---|---|---|---|
foo | bar | baz | bim |
qux | quux | quuz | |
corge | grault | garply | waldo |
ga | na | da | ra |