Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Add tests for idempotency of makeSections.

Browse source 
See #7950.
This commit is contained in:
John MacFarlane 2022-03-08 09:53:57 -08:00
parent 0adfc6e58e
commit 82d9f5eb8b
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
test/Tests/Shared.hs
View file

@ -15,6 +15,7 @@ module Tests.Shared (tests) where
import System.FilePath.Posix (joinPath) import System.FilePath.Posix (joinPath)
import Test.Tasty import Test.Tasty
import Text.Pandoc.Arbitrary () import Text.Pandoc.Arbitrary ()
import Test.Tasty.QuickCheck (testProperty)
import Text.Pandoc.Builder import Text.Pandoc.Builder
import Text.Pandoc.Shared import Text.Pandoc.Shared
import Test.Tasty.HUnit import Test.Tasty.HUnit
@ -33,7 +34,21 @@ tests = [ testGroup "compactifyDL"
, testGroup "collapseFilePath" testCollapse , testGroup "collapseFilePath" testCollapse
, testGroup "toLegacyTable" testLegacyTable , testGroup "toLegacyTable" testLegacyTable
, testGroup "table of contents" testTOC , testGroup "table of contents" testTOC
, testGroup "makeSections"
[ testProperty "makeSections is idempotent" makeSectionsIsIdempotent
, testCase "makeSections is idempotent for test case" $
let d = header 1 "H1" <> header 2 "H2" <> header 3 "H3" <>
header 2 "H2a" <> header 4 "H4" <> header 1 "H1a"
d' = makeSections False Nothing $ toList d
in assertBool "makeSections is idempotent for test case"
(makeSections False Nothing d' == d')
] ]
]
makeSectionsIsIdempotent :: [Block] -> Bool
makeSectionsIsIdempotent d =
let d' = makeSections False Nothing d
in d' == makeSections False Nothing d'
givesTOC :: String -> (Blocks, Blocks) -> TestTree givesTOC :: String -> (Blocks, Blocks) -> TestTree
givesTOC desc (blocks, toc) = test (toTableOfContents def) desc (toList blocks, head . toList $ toc) givesTOC desc (blocks, toc) = test (toTableOfContents def) desc (toList blocks, head . toList $ toc)