From d41c17a2d5b3de54334eb05c60be76b468f5811f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 14 Jan 2011 00:30:36 -0800
Subject: Added quickcheck tests for normalize in Shared.

---
 pandoc.cabal          |  7 +++++--
 tests/Tests/Shared.hs | 13 +++++++++++++
 tests/test-pandoc.hs  |  7 +++++--
 3 files changed, 23 insertions(+), 4 deletions(-)
 create mode 100644 tests/Tests/Shared.hs

diff --git a/pandoc.cabal b/pandoc.cabal
index ad304ec91..20bb6ff3d 100644
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -303,9 +303,12 @@ Executable test-pandoc
     else
       Ghc-Options:    -Wall
     Extensions:       CPP
-    Build-Depends:    base >= 4 && < 5, Diff, test-framework,
-                      test-framework-hunit, HUnit, QuickCheck > 2
+    Build-Depends:    base >= 4 && < 5, Diff, test-framework >= 0.3 && < 0.4,
+                      test-framework-hunit >= 0.2 && < 0.3,
+                      test-framework-quickcheck2 >= 0.2 && < 0.3,
+                      HUnit >= 1.2 && < 1.3, QuickCheck >= 2.3 && < 2.5
     Other-Modules:    Tests.Old
                       Tests.Helpers
                       Tests.Arbitrary
+                      Tests.Shared
                       Tests.Readers.LaTeX
diff --git a/tests/Tests/Shared.hs b/tests/Tests/Shared.hs
new file mode 100644
index 000000000..c7222c035
--- /dev/null
+++ b/tests/Tests/Shared.hs
@@ -0,0 +1,13 @@
+module Tests.Shared (tests) where
+import Test.Framework.Providers.QuickCheck2
+import Test.Framework
+import Tests.Arbitrary
+import Text.Pandoc.Shared
+import Text.Pandoc
+
+normalize_rt :: Pandoc -> Bool
+normalize_rt d = normalize (normalize d) == normalize d
+
+tests :: [Test]
+tests = [ testProperty "normalize_rt" normalize_rt ]
+
diff --git a/tests/test-pandoc.hs b/tests/test-pandoc.hs
index b67998177..9f3d65300 100644
--- a/tests/test-pandoc.hs
+++ b/tests/test-pandoc.hs
@@ -6,11 +6,14 @@ import Test.Framework
 
 import qualified Tests.Old
 import qualified Tests.Readers.LaTeX
+import qualified Tests.Shared
 
 tests :: [Test]
 tests = [ testGroup "Old" Tests.Old.tests
-        , testGroup "Readers" [ testGroup "LaTeX" Tests.Readers.LaTeX.tests
-                              ]
+        , testGroup "Readers"
+          [ testGroup "LaTeX" Tests.Readers.LaTeX.tests
+          ]
+        , testGroup "Shared" Tests.Shared.tests
         ]
 
 main :: IO ()
-- 
cgit v1.2.3