diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-12-11 15:58:11 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-12-11 23:55:08 -0800 |
| commit | 536b6bf538a95f6db6ed41b72257f8b09fd26886 (patch) | |
| tree | 384dc0790f9555b16df3789c4e1a80616eadd52d /tests/Tests/Readers | |
| parent | 63d875c6cbc9a8ac6b514982327a70df01d8a482 (diff) | |
Implemented SoftBreak and new `--wrap` option.
Added threefold wrapping option.
* Command line option: deprecated `--no-wrap`, added
`--wrap=[auto|none|preserve]`
* Added WrapOption, exported from Text.Pandoc.Options
* Changed type of writerWrapText in WriterOptions from
Bool to WrapOption.
* Modified Text.Pandoc.Shared functions for SoftBreak.
* Supported SoftBreak in writers.
* Updated tests.
* Updated README.
Closes #1701.
Diffstat (limited to 'tests/Tests/Readers')
| -rw-r--r-- | tests/Tests/Readers/Markdown.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs index 366ab7413..0661b4642 100644 --- a/tests/Tests/Readers/Markdown.hs +++ b/tests/Tests/Readers/Markdown.hs @@ -157,7 +157,7 @@ tests = [ testGroup "inline code" , "emph and strong emph alternating" =: "*xxx* ***xxx*** xxx\n*xxx* ***xxx*** xxx" =?> para (emph "xxx" <> space <> strong (emph "xxx") <> - space <> "xxx" <> space <> + space <> "xxx" <> softbreak <> emph "xxx" <> space <> strong (emph "xxx") <> space <> "xxx") , "emph with spaced strong" =: @@ -325,7 +325,8 @@ tests = [ testGroup "inline code" ] , "laziness" =: "foo1\n : bar\nbaz\n : bar2\n" =?> - definitionList [ (text "foo1", [plain (text "bar baz"), + definitionList [ (text "foo1", [plain (text "bar" <> + softbreak <> text "baz"), plain (text "bar2")]) ] , "no blank space before first of two paragraphs" =: @@ -347,7 +348,8 @@ tests = [ testGroup "inline code" , testGroup "+compact_definition_lists" [ test markdownCDL "basic compact list" $ "foo1\n: bar\n baz\nfoo2\n: bar2\n" =?> - definitionList [ (text "foo1", [plain (text "bar baz")]) + definitionList [ (text "foo1", [plain (text "bar" <> softbreak <> + text "baz")]) , (text "foo2", [plain (text "bar2")]) ] ] |