diff options
Diffstat (limited to 'tests/Tests')
| -rw-r--r-- | tests/Tests/Writers/TEI.hs | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/tests/Tests/Writers/TEI.hs b/tests/Tests/Writers/TEI.hs index 228cda67d..56764db9f 100644 --- a/tests/Tests/Writers/TEI.hs +++ b/tests/Tests/Writers/TEI.hs @@ -27,15 +27,17 @@ infix 4 =: tests :: [Test] tests = [ testGroup "block elements" ["para" =: para "Lorem ipsum cetera." - =?> "<p>Lorem ipsum cetera.</p>" + =?> "<p>Lorem ipsum cetera.</p>" ] --- ] --- , testGroup "lists" --- [ --- ] , testGroup "inlines" [ - "Emphasis" =: emph ("emphasized") - =?> "<hi rendition=\"simple:italic\">emphasized</hi>" - ] - ] + "Emphasis" =: emph ("emphasized") + =?> "<p><hi rendition=\"simple:italic\">emphasized</hi></p>" + ,"SingleQuoted" =: singleQuoted (text "quoted material") + =?> "<p><quote>quoted material</quote></p>" + ,"DoubleQuoted" =: doubleQuoted (text "quoted material") + =?> "<p><quote>quoted material</quote></p>" + ,"NestedQuoted" =: doubleQuoted (singleQuoted (text "quoted material")) + =?> "<p><quote><quote>quoted material</quote></quote></p>" + ] + ] |