diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-02-04 12:56:30 +0100 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-04 12:56:30 +0100 |
commit | 18ab8642692caca2716fd9b5a0e6dbfd3d9cf9cc (patch) | |
tree | 05f4e9024093e233c131b3494e71265062ffd94a /tests/Tests/Writers/Native.hs | |
parent | 8418c1a7d7e5312dfddbc011adb257552b2a864b (diff) | |
download | pandoc-18ab8642692caca2716fd9b5a0e6dbfd3d9cf9cc.tar.gz |
Moved tests/ -> test/.
Diffstat (limited to 'tests/Tests/Writers/Native.hs')
-rw-r--r-- | tests/Tests/Writers/Native.hs | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/tests/Tests/Writers/Native.hs b/tests/Tests/Writers/Native.hs deleted file mode 100644 index 88bad7944..000000000 --- a/tests/Tests/Writers/Native.hs +++ /dev/null @@ -1,21 +0,0 @@ -module Tests.Writers.Native (tests) where - -import Test.Framework -import Text.Pandoc.Builder -import Text.Pandoc -import Tests.Helpers -import Text.Pandoc.Arbitrary() - -p_write_rt :: Pandoc -> Bool -p_write_rt d = - read (purely (writeNative def{ writerTemplate = Just "" }) d) == d - -p_write_blocks_rt :: [Block] -> Bool -p_write_blocks_rt bs = length bs > 20 || - read (purely (writeNative def) (Pandoc nullMeta bs)) == - bs - -tests :: [Test] -tests = [ property "p_write_rt" p_write_rt - , property "p_write_blocks_rt" p_write_blocks_rt - ] |