git.iko.soy/typeable/pandoc
on master help sign in
Added quickcheck tests for normalize in Shared.
commitd41c17a2d5b3de54334eb05c60be76b468f5811f authorJohn MacFarlane <jgm@berkeley.edu> dateFri 14 Jan 2011, 00:30 (16 years ago) parentb3fb541
3 files changed+23−4
compare with master
unifiedsplit
pandoc.cabal+5−2 tests/Tests/Shared.hs+13 tests/test-pandoc.hs+5−2
pandoc.cabal+5−2
@@ -303,9 +303,12 @@ Executable test-pandoc
303303 else
304304 Ghc-Options: -Wall
305305 Extensions: CPP
306− Build-Depends: base >= 4 && < 5, Diff, test-framework,
307− test-framework-hunit, HUnit, QuickCheck > 2
306+ Build-Depends: base >= 4 && < 5, Diff, test-framework >= 0.3 && < 0.4,
307+ test-framework-hunit >= 0.2 && < 0.3,
308+ test-framework-quickcheck2 >= 0.2 && < 0.3,
309+ HUnit >= 1.2 && < 1.3, QuickCheck >= 2.3 && < 2.5
308310 Other-Modules: Tests.Old
309311 Tests.Helpers
310312 Tests.Arbitrary
313+ Tests.Shared
311314 Tests.Readers.LaTeX
tests/Tests/Shared.hsnew file+13
@@ -0,0 +1,13 @@
1+module Tests.Shared (tests) where
2+import Test.Framework.Providers.QuickCheck2
3+import Test.Framework
4+import Tests.Arbitrary
5+import Text.Pandoc.Shared
6+import Text.Pandoc
7+
8+normalize_rt :: Pandoc -> Bool
9+normalize_rt d = normalize (normalize d) == normalize d
10+
11+tests :: [Test]
12+tests = [ testProperty "normalize_rt" normalize_rt ]
13+
tests/test-pandoc.hs+5−2
@@ -6,11 +6,14 @@ import Test.Framework
66
77import qualified Tests.Old
88import qualified Tests.Readers.LaTeX
9+import qualified Tests.Shared
910
1011tests :: [Test]
1112tests = [ testGroup "Old" Tests.Old.tests
12− , testGroup "Readers" [ testGroup "LaTeX" Tests.Readers.LaTeX.tests
13− ]
13+ , testGroup "Readers"
14+ [ testGroup "LaTeX" Tests.Readers.LaTeX.tests
15+ ]
16+ , testGroup "Shared" Tests.Shared.tests
1417 ]
1518
1619main :: IO ()