diff options
| author | dr@jones.dk <dr@jones.dk> | 2011-02-07 03:28:57 +0100 |
|---|---|---|
| committer | dr@jones.dk <dr@jones.dk> | 2011-02-07 03:28:57 +0100 |
| commit | b880b82b7f4b7c50d79f015eaf635f4b3bd8a1a3 (patch) | |
| tree | f0bffd00ed41dbe294c71449c02b86d1738fe044 /src/Tests/Writers | |
| parent | 91179df4907bec919e0884019da785be1ceb01b3 (diff) | |
Imported Upstream version 1.8.0.3
Diffstat (limited to 'src/Tests/Writers')
| -rw-r--r-- | src/Tests/Writers/HTML.hs | 5 | ||||
| -rw-r--r-- | src/Tests/Writers/Native.hs | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/src/Tests/Writers/HTML.hs b/src/Tests/Writers/HTML.hs index e13d0dc87..3e1e0ddc2 100644 --- a/src/Tests/Writers/HTML.hs +++ b/src/Tests/Writers/HTML.hs @@ -38,4 +38,9 @@ tests = [ testGroup "inline code" , "nolanguage" =: codeWith ("",["nolanguage"],[]) ">>=" =?> "<code class=\"nolanguage\">>>=</code>" ] + , testGroup "images" + [ "alt with formatting" =: + image "/url" "title" ("my " +++ emph "image") + =?> "<img src=\"/url\" title=\"title\" alt=\"my image\" />" + ] ] diff --git a/src/Tests/Writers/Native.hs b/src/Tests/Writers/Native.hs index 234fe938a..19740e0f4 100644 --- a/src/Tests/Writers/Native.hs +++ b/src/Tests/Writers/Native.hs @@ -11,8 +11,9 @@ p_write_rt d = read (writeNative defaultWriterOptions{ writerStandalone = True } d) == d p_write_blocks_rt :: [Block] -> Bool -p_write_blocks_rt bs = - read (writeNative defaultWriterOptions (Pandoc (Meta [] [] []) bs)) == bs +p_write_blocks_rt bs = length bs > 20 || + read (writeNative defaultWriterOptions (Pandoc (Meta [] [] []) bs)) == + bs tests :: [Test] tests = [ property "p_write_rt" p_write_rt |