summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-01-19 16:05:14 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-01-20 14:09:44 +0300
commite1cc9d9abc777360fb5a0b75c902cae2218839eb (patch)
tree64cd35c3f5b77b4c0845e60ff8d180b2fac442bb
parent8ffb4e5b334a302ba7b07c4213e7102c23ef7721 (diff)
Muse reader: enable definition lists in round-trip test
-rw-r--r--test/Tests/Readers/Muse.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 76c18135e..2ef2af2bc 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -27,15 +27,14 @@ infix 4 =:
spcSep :: [Inlines] -> Inlines
spcSep = mconcat . intersperse space
--- Tables and definition lists don't round-trip yet
+-- Tables don't round-trip yet
makeRoundTrip :: Block -> Block
makeRoundTrip Table{} = Para [Str "table was here"]
-makeRoundTrip DefinitionList{} = Para [Str "deflist was here"]
makeRoundTrip x = x
-- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way.
--- Currently we remove code blocks and tables and compare third rewrite to the second.
+-- Currently we remove tables and compare third rewrite to the second.
-- First and second rewrites are not equal yet.
roundTrip :: Block -> Bool
roundTrip b = d'' == d'''