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

Revert "test(pandoc): temporarily disable failing test for applyMetas -- to be reverted and properly fixed"

Browse Source 
This reverts commit 3081e61e02.
This commit is contained in:
Steffen Jost 2022-09-05 14:29:04 +02:00
parent 5150b6f9b6
commit 475eb600bb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/PandocSpec.hs
View File

@ -44,7 +44,7 @@ instance Arbitrary ArbitraryMeta where
spec :: Spec spec :: Spec
spec = do spec = do
let mlist = Map.toAscList . unMeta let mlist = Map.toAscList . unMeta
{- TODO
describe "applyMetas" $ do describe "applyMetas" $ do
it "should actually set values" $ do it "should actually set values" $ do
(ml, abMetaOriginal, blocks) <- generate arbitrary (ml, abMetaOriginal, blocks) <- generate arbitrary
@ -65,7 +65,7 @@ spec = do
oldm = [(k,t) | (k, t) <- mlist metaOriginal , Set.member k nullKeys] oldm = [(k,t) | (k, t) <- mlist metaOriginal , Set.member k nullKeys]
newm = [(k,t) | (k, t) <- mlist newMeta , Set.member k nullKeys] newm = [(k,t) | (k, t) <- mlist newMeta , Set.member k nullKeys]
oldm `shouldMatchList` newm oldm `shouldMatchList` newm
-}
describe "addMeta" $ do describe "addMeta" $ do
it "should possibly overwrite existing settings" $ do it "should possibly overwrite existing settings" $ do
(abMetaOverwrite, abMetaOriginal, blocks) <- generate arbitrary (abMetaOverwrite, abMetaOriginal, blocks) <- generate arbitrary