diff options
author | Clint Adams <clint@debian.org> | 2012-11-06 22:49:28 -0500 |
---|---|---|
committer | Clint Adams <clint@debian.org> | 2012-11-06 23:13:53 -0500 |
commit | d819bd5f3a308eb068ee4b51ae4290b62ad9952a (patch) | |
tree | 499385182492fddbf7f7f9b17a961c5c71f05728 /src/Tests/Writers/Native.hs | |
parent | 3f2eb64830a28b9022887bf238a155c89d0812f1 (diff) |
Imported Upstream version 1.9.4.5
Diffstat (limited to 'src/Tests/Writers/Native.hs')
-rw-r--r-- | src/Tests/Writers/Native.hs | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/src/Tests/Writers/Native.hs b/src/Tests/Writers/Native.hs deleted file mode 100644 index 19740e0f4..000000000 --- a/src/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 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 = length bs > 20 || - 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 - ] |