From 01499b766b16f4ab1c7ce4e3e82780a099c6dd37 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Fri, 19 Jan 2018 14:58:15 +0300
Subject: Muse writer: support definitions with multiple descriptions

Muse reader does not support this syntax yet, but Emacs Muse parses
it correctly.
---
 test/Tests/Writers/Muse.hs | 13 +++++++++++--
 test/writer.muse           | 13 +++++--------
 2 files changed, 16 insertions(+), 10 deletions(-)

(limited to 'test')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index e2e6ba06c..158f80f67 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -94,6 +94,15 @@ tests = [ testGroup "block elements"
                                               , " second definition :: second description"
                                               , " third definition :: third description"
                                               ]
+              , "definition list with multiple descriptions" =:
+                definitionList [ (text "first definition", [plain $ text "first description"
+                                                           ,plain $ text "second description"])
+                               , (text "second definition", [plain $ text "third description"])
+                               ]
+                =?> unlines [ " first definition :: first description"
+                            , "                  :: second description"
+                            , " second definition :: third description"
+                            ]
               ]
             -- Test that lists of the same type and style are separated with two blanklines
             , testGroup "sequential lists"
@@ -197,8 +206,8 @@ tests = [ testGroup "block elements"
                                                   ]
               , "nested definition lists" =: definitionList [ (text "first definition", [plain $ text "first description"])
                                                             , (text "second definition",
-                                                               [ plain (text "second description")
-                                                               , definitionList [ ( text "first inner definition"
+                                                               [ plain (text "second description") <>
+                                                                 definitionList [ ( text "first inner definition"
                                                                                   , [plain $ text "first inner description"])
                                                                                 , ( text "second inner definition"
                                                                                   , [plain $ text "second inner description"])
diff --git a/test/writer.muse b/test/writer.muse
index db34a2733..33c622a3a 100644
--- a/test/writer.muse
+++ b/test/writer.muse
@@ -287,24 +287,21 @@ Multiple blocks with italics:
 Multiple definitions, tight:
 
  apple :: red fruit
-          computer
+       :: computer
  orange :: orange fruit
-           bank
+        :: bank
 
 Multiple definitions, loose:
 
  apple :: red fruit
-
-          computer
+       :: computer
  orange :: orange fruit
-
-           bank
+        :: bank
 
 Blank line after term, indented marker, alternate markers:
 
  apple :: red fruit
-
-          computer
+       :: computer
  orange :: orange fruit
 
            1. sublist
-- 
cgit v1.2.3