diff options
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 2ef2af2bc..36b08c3a2 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -28,9 +28,15 @@ spcSep :: [Inlines] -> Inlines spcSep = mconcat . intersperse space -- Tables don't round-trip yet +-- Definition lists with multiple descriptions are supported by writer, but not reader yet + +singleDescription :: ([Inline], [[Block]]) -> ([Inline], [[Block]]) +singleDescription (a, x:_) = (a, [x]) +singleDescription x = x makeRoundTrip :: Block -> Block makeRoundTrip Table{} = Para [Str "table was here"] +makeRoundTrip (DefinitionList items) = DefinitionList $ map singleDescription items makeRoundTrip x = x -- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way. |