From 1ca320e249ab72a33e46ca1e73d36b1a818ce008 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
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')
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