From b0be3ec6a68132d32ed717d8cfb3d8d7417c17d3 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Thu, 14 Jul 2022 18:17:36 +0200
Subject: [PATCH] chore(tests): fix pandoc tests

---
 test/PandocSpec.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/test/PandocSpec.hs b/test/PandocSpec.hs
index ba43aeda5..3cc74da6e 100644
--- a/test/PandocSpec.hs
+++ b/test/PandocSpec.hs
@@ -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))