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 qualified Data.Map.Lazy as Map
import Text.Pandoc import Text.Pandoc
import Text.Pandoc.Arbitrary import Text.Pandoc.Arbitrary ()
spec :: Spec spec :: Spec
spec = describe "addMeta" $ do spec = describe "addMeta" $ do
it "should overwrite existing settings" $ do it "should overwrite existing settings" $ do
metaOverwrite <- arbitrary metaOverwrite <- generate arbitrary
pd <- arbitrary pd <- generate arbitrary
let (Pandoc newMeta _) = addMeta metaOverwrite pd 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 it "should preserve untouched settings" $ do
metaOverwrite <- arbitrary metaOverwrite <- generate arbitrary
pd <- arbitrary pd <- generate arbitrary
let let
(Pandoc keptMeta _) = pd (Pandoc keptMeta _) = pd
(Pandoc newMeta _) = addMeta metaOverwrite 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))