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