diff options
author | Albert Krewinkel <albert@zeitkraut.de> | 2017-12-24 22:48:18 +0100 |
---|---|---|
committer | Albert Krewinkel <albert@zeitkraut.de> | 2017-12-28 14:15:58 +0100 |
commit | 2d443ecb07491f81e35b60d9c6cdd9041ab1c4dd (patch) | |
tree | abbb39d1748c579fd3e75ad3287049a691e83d0c /test/Tests/Readers/Org/Shared.hs | |
parent | 0fd7ed0cab165821346b71055bd3ca7f94a825e4 (diff) |
Break-up org reader test file
The org reader test file had grown large, to the point that editor
performance was negatively affected in some cases. The tests are spread
over multiple submodules, and re-combined into a tasty TestTree in the
main org reader test file.
Diffstat (limited to 'test/Tests/Readers/Org/Shared.hs')
-rw-r--r-- | test/Tests/Readers/Org/Shared.hs | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/test/Tests/Readers/Org/Shared.hs b/test/Tests/Readers/Org/Shared.hs new file mode 100644 index 000000000..5e8f6dd54 --- /dev/null +++ b/test/Tests/Readers/Org/Shared.hs @@ -0,0 +1,29 @@ +module Tests.Readers.Org.Shared + ( (=:) + , org + , spcSep + , tagSpan + ) where + +import Data.List (intersperse) +import Data.Text (Text) +import Tests.Helpers (ToString, purely, test) +import Test.Tasty (TestTree) +import Text.Pandoc (Pandoc, ReaderOptions (readerExtensions), + def, getDefaultExtensions, readOrg) +import Text.Pandoc.Builder (Inlines, smallcaps, space, spanWith, str) + +org :: Text -> Pandoc +org = purely $ readOrg def{ readerExtensions = getDefaultExtensions "org" } + +infix 4 =: +(=:) :: ToString c + => String -> (Text, c) -> TestTree +(=:) = test org + +spcSep :: [Inlines] -> Inlines +spcSep = mconcat . intersperse space + +-- | Create a span for the given tag. +tagSpan :: String -> Inlines +tagSpan t = spanWith ("", ["tag"], [("tag-name", t)]) . smallcaps $ str t |