fraport/fradrive-old
Archived
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. -- Instance Arbitrary Meta is somewhat useless, as it always generates the same 3 keys.
newtype ArbitraryMeta = ArbitraryMeta { unArbitraryMeta :: Meta } 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 } 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 instance Arbitrary ArbitraryMeta where
arbitrary = do arbitrary = do
@ -78,7 +78,7 @@ spec = do
(abMetaOverwrite, apd) <- generate arbitrary (abMetaOverwrite, apd) <- generate arbitrary
let let
metaOverwrite = unArbitraryMeta abMetaOverwrite metaOverwrite = unArbitraryMeta abMetaOverwrite
pd@(Pandoc metaOriginal _) = unArbitraryPandoc apd pd = unArbitraryPandoc apd
(Pandoc newMeta _) = addMeta metaOverwrite pd (Pandoc newMeta _) = addMeta metaOverwrite pd
(unMeta metaOverwrite `Map.isSubmapOf` unMeta newMeta) `shouldBe` True (unMeta metaOverwrite `Map.isSubmapOf` unMeta newMeta) `shouldBe` True