diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-14 18:01:57 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-14 18:01:57 -0800 |
commit | 0222f367b18ac4f77ab76751792c5757c2641d51 (patch) | |
tree | ea4eb87d99b0ba76d4adaf4afdd9cd51a1e3a6f4 | |
parent | 09e9a86db95073c7b7672feacc5a5229a6249a07 (diff) | |
download | pandoc-0222f367b18ac4f77ab76751792c5757c2641d51.tar.gz |
Keep Tests.Arbitrary but remove quickcheck tests for now.
Remove Tests.Shared.
Remove dependency on QuickCheck.
-rw-r--r-- | pandoc.cabal | 4 | ||||
-rw-r--r-- | tests/Tests/Shared.hs | 13 | ||||
-rw-r--r-- | tests/test-pandoc.hs | 2 |
3 files changed, 1 insertions, 18 deletions
diff --git a/pandoc.cabal b/pandoc.cabal index 20bb6ff3d..63a6f7fa9 100644 --- a/pandoc.cabal +++ b/pandoc.cabal @@ -305,10 +305,8 @@ Executable test-pandoc Extensions: CPP 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 + HUnit >= 1.2 && < 1.3 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 deleted file mode 100644 index c7222c035..000000000 --- a/tests/Tests/Shared.hs +++ /dev/null @@ -1,13 +0,0 @@ -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 9f3d65300..316060c83 100644 --- a/tests/test-pandoc.hs +++ b/tests/test-pandoc.hs @@ -6,14 +6,12 @@ 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 "Shared" Tests.Shared.tests ] main :: IO () |