d41c17a · typeable/pandoc

pandoc.cabal+5−2

compare with master

unifiedsplit

@@ -303,9 +303,12 @@ Executable test-pandoc

303 else

304 Ghc-Options: -Wall

305 Extensions: CPP

306− Build-Depends: base >= 4 && < 5, Diff, test-framework,

306+ Build-Depends: base >= 4 && < 5, Diff, test-framework >= 0.3 && < 0.4,

307− test-framework-hunit, HUnit, QuickCheck > 2

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

308 Other-Modules: Tests.Old

310 Other-Modules: Tests.Old

309 Tests.Helpers

311 Tests.Helpers

310 Tests.Arbitrary

312 Tests.Arbitrary

313+ Tests.Shared

311 Tests.Readers.LaTeX

314 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

6

7import qualified Tests.Old

8import qualified Tests.Readers.LaTeX

9+import qualified Tests.Shared

9

10

10tests :: [Test]

11tests :: [Test]

11tests = [ testGroup "Old" Tests.Old.tests

12tests = [ testGroup "Old" Tests.Old.tests

13+ , testGroup "Readers"

12− , testGroup "Readers" [ testGroup "LaTeX" Tests.Readers.LaTeX.tests

14+ [ testGroup "LaTeX" Tests.Readers.LaTeX.tests

13− ]

15+ ]

16+ , testGroup "Shared" Tests.Shared.tests

14 ]

17 ]

15

18

16main :: IO ()

19main :: IO ()