lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-25 17:56:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Tests: use 'drop 1' instead of partial function 'tail'.

Browse Source
This commit is contained in:
John MacFarlane
2024-09-09 09:03:17 -07:00
parent 08a5ef6080
commit 90e8725f5b
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Tests/Readers/Markdown.hs
+2 -2
View File
@@ -210,14 +210,14 @@ tests = [ testGroup "inline code"
<> [ "lists with newlines and indent in backticks" =:
T.intercalate ("\n" <> T.replicate 4 " ") (zipWith (\i (_, lt, _) -> lt <> i) lis lsts)
=?> let (_, _, f) = head lsts
in f [plain $ code $ T.intercalate (T.replicate 5 " ") $ head lis' : zipWith (\i (_, lt, _) -> lt <> i) (tail lis') (tail lsts)]
in f [plain $ code $ T.intercalate (T.replicate 5 " ") $ head lis' : zipWith (\i (_, lt, _) -> lt <> i) (drop 1 lis') (drop 1 lsts)]
| lsts <- [ [i, j, k] | i <- lists, j <- lists, k <- lists]
]
<> [ "lists with blank lines and indent in backticks" =:
T.intercalate ("\n\n" <> T.replicate 4 " ") (zipWith (\i (_, lt, _) -> lt <> i) lis lsts)
<> "\n"
=?> let (_, _, f) = head lsts
in f . pure $ (para . text $ head lis) <> bldLsts para (tail lsts) (tail lis)
in f . pure $ (para . text $ head lis) <> bldLsts para (drop 1 lsts) (drop 1 lis)
| lsts <- [ [i, j, k] | i <- lists, j <- lists, k <- lists]
]
, testGroup "emph and strong"