From 1ca320e249ab72a33e46ca1e73d36b1a818ce008 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Fri, 26 Oct 2018 16:30:15 +0300 Subject: Muse reader: parse page breaks --- test/Tests/Readers/Muse.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'test/Tests/Readers') diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 36724b33c..492b5baaa 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -279,6 +279,14 @@ tests = , "5 dashes is a horizontal rule" =: "-----" =?> horizontalRule , "4 dashes with spaces is a horizontal rule" =: "---- " =?> horizontalRule ] + , testGroup "Page breaks" + [ "Page break" =: + " * * * * *" =?> + divWith ("", [], [("style", "page-break-before: always;")]) mempty + , "Page break with trailing space" =: + " * * * * * " =?> + divWith ("", [], [("style", "page-break-before: always;")]) mempty + ] , testGroup "Paragraphs" [ "Simple paragraph" =: T.unlines [ "First line" -- cgit v1.2.3