diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-09-27 13:03:26 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-09-27 13:03:26 -0700 |
| commit | a27e10111a27c96b746e58552550facd4f14f29d (patch) | |
| tree | 640b65172dc2e68b417ad12c146c539b1e6d947e /test/Tests | |
| parent | 301f9058397e8a8e255cd1ca390bc0f9e97a08f7 (diff) | |
Fix small whitespace things.
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Helpers.hs | 2 | ||||
| -rw-r--r-- | test/Tests/Readers/RTF.hs | 1 | ||||
| -rw-r--r-- | test/Tests/Shared.hs | 4 | ||||
| -rw-r--r-- | test/Tests/Writers/AsciiDoc.hs | 1 |
4 files changed, 3 insertions, 5 deletions
diff --git a/test/Tests/Helpers.hs b/test/Tests/Helpers.hs index 697d84dbf..789775918 100644 --- a/test/Tests/Helpers.hs +++ b/test/Tests/Helpers.hs @@ -155,7 +155,7 @@ instance ToString [Block] where toString = toString . B.fromList instance ToString Block where - toString = toString . B.singleton + toString = toString . B.singleton instance ToString Inlines where toString = unpack . trimr . purely (writeNative def) . toPandoc diff --git a/test/Tests/Readers/RTF.hs b/test/Tests/Readers/RTF.hs index f8e197a08..fdd1414ca 100644 --- a/test/Tests/Readers/RTF.hs +++ b/test/Tests/Readers/RTF.hs @@ -39,4 +39,3 @@ tests = map rtfTest [ "footnote" , "table_simple" , "table_error_codes" ] - diff --git a/test/Tests/Shared.hs b/test/Tests/Shared.hs index 439196145..3a5454b89 100644 --- a/test/Tests/Shared.hs +++ b/test/Tests/Shared.hs @@ -73,11 +73,11 @@ testTOC = [ givesTOC "empty case" $ mempty =?> bulletList [] bulletList [plain "H1a" <> bulletList [plain "H2"]] , givesTOC "only referenced headers" $ header 1 "H1a" <> headerId "h2" 2 "H2" =?> - bulletList [plain "H1a" <> + bulletList [plain "H1a" <> bulletList [plain $ linkId "toc-h2" "#h2" "" "H2"]] , givesTOC "section id used as backup" $ divWith ("sec",["section"],[]) (header 1 "H1") =?> - bulletList [plain $ linkId "toc-sec" "#sec" "" "H1"] + bulletList [plain $ linkId "toc-sec" "#sec" "" "H1"] ] testCollapse :: [TestTree] diff --git a/test/Tests/Writers/AsciiDoc.hs b/test/Tests/Writers/AsciiDoc.hs index cb1863fc4..d2b5d5183 100644 --- a/test/Tests/Writers/AsciiDoc.hs +++ b/test/Tests/Writers/AsciiDoc.hs @@ -93,4 +93,3 @@ tests = [ testGroup "emphasis" ] ] ] - |