Added native writer tests.

4 files changed, 25 insertions, 4 deletions

diff --git a/pandoc.cabal b/pandoc.cabal
index cb7e52499..39136e3ea 100644
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -349,4 +349,5 @@ Executable test-pandoc
                       Tests.Helpers
                       Tests.Arbitrary
                       Tests.Readers.LaTeX
+                      Tests.Writers.Native
                       Tests.Writers.ConTeXt
diff --git a/tests/Tests/Arbitrary.hs b/tests/Tests/Arbitrary.hs
index 825902e4c..af882889f 100644
--- a/tests/Tests/Arbitrary.hs
+++ b/tests/Tests/Arbitrary.hs
@@ -91,10 +91,8 @@ arbBlock n = frequency $ [ (10, liftM Plain arbitrary)
                    ]
 
 instance Arbitrary Pandoc where
-        arbitrary
-          = do x1 <- arbitrary
-               x2 <- arbitrary
-               return $ normalize (Pandoc x1 x2)
+        arbitrary = resize 8 $ liftM normalize
+                             $ liftM2 Pandoc arbitrary arbitrary
 
 {-
 instance Arbitrary CitationMode where
diff --git a/tests/Tests/Writers/Native.hs b/tests/Tests/Writers/Native.hs
new file mode 100644
index 000000000..234fe938a
--- /dev/null
+++ b/tests/Tests/Writers/Native.hs
@@ -0,0 +1,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
+        ]
diff --git a/tests/test-pandoc.hs b/tests/test-pandoc.hs
index faa2735c9..e8f792e2d 100644
--- a/tests/test-pandoc.hs
+++ b/tests/test-pandoc.hs
@@ -7,6 +7,7 @@ import Test.Framework
 import qualified Tests.Old
 import qualified Tests.Readers.LaTeX
 import qualified Tests.Writers.ConTeXt
+import qualified Tests.Writers.Native
 
 tests :: [Test]
 tests = [ testGroup "Old" Tests.Old.tests
@@ -15,6 +16,7 @@ tests = [ testGroup "Old" Tests.Old.tests
           ]
         , testGroup "Writers"
           [ testGroup "ConTeXt" Tests.Writers.ConTeXt.tests
+          , testGroup "Native" Tests.Writers.Native.tests
           ]
         ]