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

refactor(pandoc): rewrite tests for pandoc applyMetas (2)

Browse Source
This commit is contained in:
Steffen Jost 2022-09-05 16:04:37 +02:00
parent 58cc35d118
commit 10e823b0c5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/PandocSpec.hs
View File

@ -15,10 +15,10 @@ import Text.Pandoc.Arbitrary ()
-- Instance Arbitrary Meta is somewhat useless, as it always generates the same 3 keys.
newtype ArbitraryMeta = ArbitraryMeta { unArbitraryMeta :: Meta }
deriving newtype (Eq, Ord, Semigroup, Monoid, Show, Read, Typable, Data, Generic)
deriving newtype (Eq, Ord, Semigroup, Monoid, Show, Read, Typeable)
newtype ArbitraryPandoc = ArbitraryPandoc { unArbitraryPandoc :: Pandoc }
deriving newtype (Eq, Ord, Show, Read, Typable, Data, Generic)
deriving newtype (Eq, Ord, Show, Read, Typeable)
instance Arbitrary ArbitraryMeta where
arbitrary = do
@ -78,7 +78,7 @@ spec = do
(abMetaOverwrite, apd) <- generate arbitrary
let
metaOverwrite = unArbitraryMeta abMetaOverwrite
pd@(Pandoc metaOriginal _) = unArbitraryPandoc apd
pd = unArbitraryPandoc apd
(Pandoc newMeta _) = addMeta metaOverwrite pd
(unMeta metaOverwrite `Map.isSubmapOf` unMeta newMeta) `shouldBe` True