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

import Test.Framework
import Text.Pandoc.Builder
import Text.Pandoc
import Tests.Helpers
import Tests.Arbitrary()

p_write_rt :: Pandoc -> Bool
p_write_rt d =
  read (writeNative defaultWriterOptions{ writerStandalone = True } d) == d

p_write_blocks_rt :: [Block] -> Bool
p_write_blocks_rt bs =
  read (writeNative defaultWriterOptions (Pandoc (Meta [] [] []) bs)) == bs

tests :: [Test]
tests = [ property "p_write_rt" p_write_rt
        , property "p_write_blocks_rt" p_write_blocks_rt
        ]