1{-# LANGUAGE OverloadedStrings #-}
2module Tests.Writers.Plain (tests) where
3
4import Test.Tasty
5import Tests.Helpers
6import Text.Pandoc
7import Text.Pandoc.Arbitrary ()
8import Text.Pandoc.Builder
9
10
11infix 4 =:
12(=:) :: (ToString a, ToPandoc a)
13     => String -> (a, String) -> TestTree
14(=:) = test (purely (writePlain def{ writerExtensions =
15                          enableExtension Ext_gutenberg plainExtensions }) .
16                      toPandoc)
17
18
19tests :: [TestTree]
20tests = [ "strongly emphasized text to uppercase"
21             =: strong "Straße"
22             =?> "STRASSE"
23        ]
24