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 Test.Tasty
import Text.Pandoc.Arbitrary ()
import Test.Tasty.QuickCheck (testProperty)
import Text.Pandoc.Builder
import Text.Pandoc.Shared
import Test.Tasty.HUnit
@ -33,7 +34,21 @@ tests = [ testGroup "compactifyDL"
, testGroup "collapseFilePath" testCollapse
, testGroup "toLegacyTable" testLegacyTable
, 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 desc (blocks, toc) = test (toTableOfContents def) desc (toList blocks, head . toList $ toc)