aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Writers/Native.hs
blob: d7771ca19a628dedf846864d1c9b69a9b56c9697 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
module Tests.Writers.Native (tests) where

import Data.Text (unpack)
import Test.Tasty
import Test.Tasty.QuickCheck
import Tests.Helpers
import Text.Pandoc
import Text.Pandoc.Arbitrary ()

p_write_rt :: Pandoc -> Bool
p_write_rt d =
  read (unpack $ purely (writeNative def{ writerTemplate = Just mempty }) d) == d

p_write_blocks_rt :: [Block] -> Bool
p_write_blocks_rt bs =
  read (unpack $ purely (writeNative def) (Pandoc nullMeta bs)) == bs

tests :: [TestTree]
tests = [ testProperty "p_write_rt" p_write_rt
        , testProperty "p_write_blocks_rt" $ mapSize
             (\x -> if x > 3 then 3 else x) p_write_blocks_rt
        ]