Org tests: group export settings test for Org reader

1 files changed, 79 insertions, 74 deletions

diff --git a/test/Tests/Readers/Org/Meta.hs b/test/Tests/Readers/Org/Meta.hs
index ab6de231b..3852e676d 100644
--- a/test/Tests/Readers/Org/Meta.hs
+++ b/test/Tests/Readers/Org/Meta.hs
@@ -23,15 +23,16 @@ import qualified Data.Text as T
 
 tests :: [TestTree]
 tests =
-  [ "Comment" =:
+  [ testGroup "Comments"
+    [ "Comment" =:
       "# Nothing to see here" =?>
       (mempty::Blocks)
 
-  , "Not a comment" =:
+    , "Hash not followed by space is text" =:
       "#-tag" =?>
       para "#-tag"
 
-  , "Comment surrounded by Text" =:
+    , "Comment surrounded by Text" =:
       T.unlines [ "Before"
                 , "# Comment"
                 , "After"
@@ -39,103 +40,107 @@ tests =
       mconcat [ para "Before"
               , para "After"
               ]
+    ]
 
-  , "Title" =:
-    "#+TITLE: Hello, World" =?>
-    let titleInline = toList $ "Hello," <> space <> "World"
-        meta = setMeta "title" (MetaInlines titleInline) nullMeta
-    in Pandoc meta mempty
-
-  , testGroup "Author"
-    [ "sets 'author' field" =:
-      "#+author: John /Emacs-Fanboy/ Doe" =?>
-      let author = toList . spcSep $ [ "John", emph "Emacs-Fanboy", "Doe" ]
-          meta = setMeta "author" (MetaInlines author) nullMeta
+  , testGroup "Export settings"
+    [ "Title" =:
+      "#+TITLE: Hello, World" =?>
+      let titleInline = toList $ "Hello," <> space <> "World"
+          meta = setMeta "title" (MetaInlines titleInline) nullMeta
       in Pandoc meta mempty
 
-    , "Multiple author lines" =:
-      T.unlines [ "#+author: James Dewey Watson,"
-                , "#+author: Francis Harry Compton Crick"
-                ] =?>
-      let watson = toList "James Dewey Watson,"
-          crick = toList "Francis Harry Compton Crick"
-          meta = setMeta "author"
-                         (MetaInlines (watson ++ SoftBreak : crick))
-                         nullMeta
-      in Pandoc meta mempty
-    ]
+    , testGroup "Author"
+      [ "sets 'author' field" =:
+        "#+author: John /Emacs-Fanboy/ Doe" =?>
+        let author = toList . spcSep $ [ "John", emph "Emacs-Fanboy", "Doe" ]
+            meta = setMeta "author" (MetaInlines author) nullMeta
+        in Pandoc meta mempty
 
-  , "Date" =:
-    "#+Date: Feb. *28*, 2014" =?>
-    let date = toList . spcSep $ [ "Feb.", strong "28" <> ",", "2014" ]
-        meta = setMeta "date" (MetaInlines date) nullMeta
-    in Pandoc meta mempty
-
-  , testGroup "Description"
-    [ "Single line" =:
-      "#+DESCRIPTION: Explanatory text" =?>
-      let description = [Str "Explanatory", Space, Str "text"]
-          meta = setMeta "description" (MetaInlines description) nullMeta
+      , "Multiple author lines" =:
+        T.unlines [ "#+author: James Dewey Watson,"
+                  , "#+author: Francis Harry Compton Crick"
+                  ] =?>
+        let watson = toList "James Dewey Watson,"
+            crick = toList "Francis Harry Compton Crick"
+            meta = setMeta "author"
+                           (MetaInlines (watson ++ SoftBreak : crick))
+                           nullMeta
+        in Pandoc meta mempty
+      ]
+
+    , "Date" =:
+      "#+Date: Feb. *28*, 2014" =?>
+      let date = toList . spcSep $ [ "Feb.", strong "28" <> ",", "2014" ]
+          meta = setMeta "date" (MetaInlines date) nullMeta
       in Pandoc meta mempty
 
-    , "Multiline" =:
-      T.unlines [ "#+DESCRIPTION: /Short/ introduction"
-                , "#+DESCRIPTION: to Org-mode"
-                ] =?>
-      let description = [ Emph [Str "Short"], Space, Str "introduction", SoftBreak
-                        , Str "to", Space, Str "Org-mode"
-                        ]
-          meta = setMeta "description" (MetaInlines description) nullMeta
-      in Pandoc meta mempty
-    ]
+    , testGroup "Description"
+      [ "Single line" =:
+        "#+DESCRIPTION: Explanatory text" =?>
+        let description = [Str "Explanatory", Space, Str "text"]
+            meta = setMeta "description" (MetaInlines description) nullMeta
+        in Pandoc meta mempty
 
-  , "Keywords" =:
-    T.unlines [ "#+KEYWORDS: pandoc, testing,"
-              , "#+KEYWORDS: Org"
-              ] =?>
-    let keywords = toList $ "pandoc, testing," <> softbreak <> "Org"
-        meta = setMeta "keywords" (MetaInlines keywords) nullMeta
-    in Pandoc meta mempty
-
-  , "Properties drawer" =:
-      T.unlines [ "  :PROPERTIES:"
-                , "  :setting: foo"
-                , "  :END:"
+      , "Multiline" =:
+        T.unlines [ "#+DESCRIPTION: /Short/ introduction"
+                  , "#+DESCRIPTION: to Org-mode"
+                  ] =?>
+        let description = [ Emph [Str "Short"], Space, Str "introduction"
+                          , SoftBreak
+                          , Str "to", Space, Str "Org-mode"
+                          ]
+            meta = setMeta "description" (MetaInlines description) nullMeta
+        in Pandoc meta mempty
+      ]
+
+    , "Keywords" =:
+      T.unlines [ "#+KEYWORDS: pandoc, testing,"
+                , "#+KEYWORDS: Org"
                 ] =?>
-      (mempty::Blocks)
+      let keywords = toList $ "pandoc, testing," <> softbreak <> "Org"
+          meta = setMeta "keywords" (MetaInlines keywords) nullMeta
+      in Pandoc meta mempty
 
-  , "LaTeX_headers options are translated to header-includes" =:
+    , "LaTeX_headers options are translated to header-includes" =:
       "#+LaTeX_header: \\usepackage{tikz}" =?>
       let latexInlines = rawInline "latex" "\\usepackage{tikz}"
           inclList = MetaList [MetaInlines (toList latexInlines)]
           meta = setMeta "header-includes" inclList nullMeta
       in Pandoc meta mempty
 
-  , testGroup "LaTeX_CLASS"
-    [ "LaTeX_class option is translated to documentclass" =:
-      "#+LATEX_CLASS: article" =?>
-      let meta = setMeta "documentclass" (MetaString "article") nullMeta
-      in Pandoc meta mempty
+    , testGroup "LaTeX_CLASS"
+      [ "LaTeX_class option is translated to documentclass" =:
+        "#+LATEX_CLASS: article" =?>
+        let meta = setMeta "documentclass" (MetaString "article") nullMeta
+        in Pandoc meta mempty
 
-    , "last definition takes precedence" =:
-      T.unlines [ "#+LATEX_CLASS: this will not be used"
-                , "#+LATEX_CLASS: report"
-                ] =?>
-      let meta = setMeta "documentclass" (MetaString "report") nullMeta
-      in Pandoc meta mempty
-    ]
+      , "last definition takes precedence" =:
+        T.unlines [ "#+LATEX_CLASS: this will not be used"
+                  , "#+LATEX_CLASS: report"
+                  ] =?>
+        let meta = setMeta "documentclass" (MetaString "report") nullMeta
+        in Pandoc meta mempty
+      ]
 
-  , "LaTeX_class_options is translated to classoption" =:
+    , "LaTeX_class_options is translated to classoption" =:
       "#+LATEX_CLASS_OPTIONS: [a4paper]" =?>
       let meta = setMeta "classoption" (MetaString "a4paper") nullMeta
       in Pandoc meta mempty
 
-  , "LaTeX_class_options is translated to classoption" =:
+    , "LaTeX_class_options is translated to classoption" =:
       "#+html_head: <meta/>" =?>
       let html = rawInline "html" "<meta/>"
           inclList = MetaList [MetaInlines (toList html)]
           meta = setMeta "header-includes" inclList nullMeta
       in Pandoc meta mempty
+    ]
+
+  , "Properties drawer" =:
+      T.unlines [ "  :PROPERTIES:"
+                , "  :setting: foo"
+                , "  :END:"
+                ] =?>
+      (mempty::Blocks)
 
   , "Logbook drawer" =:
       T.unlines [ "  :LogBook:"