fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore(tests): fix pandoc tests

Browse Source
This commit is contained in:
Sarah Vaupel 2022-07-14 18:17:36 +02:00
parent 79253ff48c
commit b0be3ec6a6
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/PandocSpec.hs
View File

@ -7,21 +7,21 @@ import Utils.Print
import qualified Data.Map.Lazy as Map
import Text.Pandoc
import Text.Pandoc.Arbitrary
import Text.Pandoc.Arbitrary ()
spec :: Spec
spec = describe "addMeta" $ do
it "should overwrite existing settings" $ do
metaOverwrite <- arbitrary
pd <- arbitrary
metaOverwrite <- generate arbitrary
pd <- generate arbitrary
let (Pandoc newMeta _) = addMeta metaOverwrite pd
Map.toList newMeta `shouldContain` Map.toList metaOverwrite
Map.toList (unMeta newMeta) `shouldContain` Map.toList (unMeta metaOverwrite)
it "should preserve untouched settings" $ do
metaOverwrite <- arbitrary
pd <- arbitrary
metaOverwrite <- generate arbitrary
pd <- generate arbitrary
let
(Pandoc keptMeta _) = pd
(Pandoc newMeta _) = addMeta metaOverwrite pd
Map.toList newMeta `shouldContain` Map.toList (keptMeta `Map.difference` metaOverwrite)
Map.toList (unMeta newMeta) `shouldContain` Map.toList ((unMeta keptMeta) `Map.difference` (unMeta metaOverwrite))