aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
Diffstat (limited to 'test/Tests')
-rw-r--r--test/Tests/Writers/Muse.hs9
1 files changed, 9 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 41c846b1b..44fdd5b7e 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -112,6 +112,15 @@ tests = [ testGroup "block elements"
, " <verbatim></verbatim> :: second description"
, " <verbatim></verbatim> :: third description"
]
+ , "definition list terms starting with space" =:
+ definitionList [ (text "first definition", [plain $ text "first description"])
+ , (space <> str "foo", [plain $ text "second description"])
+ , (str " > bar", [plain $ text "third description"])
+ ]
+ =?> unlines [ " first definition :: first description"
+ , " <verbatim></verbatim> foo :: second description"
+ , " <verbatim></verbatim> > bar :: third description"
+ ]
]
-- Test that lists of the same type and style are separated with two blanklines
, testGroup "sequential lists"