diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2018-04-24 10:49:04 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2018-04-24 10:49:04 -0700 |
commit | a080dde1efb823e6e25e6ba0ead2afeb76012e43 (patch) | |
tree | 6165e39a24544d1387a201790541147e0f7478ab /tests/Tests/Writers/TEI.hs | |
parent | a9ae23fa15d769ab9b05f483c8511e96cc684403 (diff) | |
parent | de5ee82ed0e287ada3a5b272d8365a04fe8e9f95 (diff) |
Merge tag 'upstream/2.1.2_dfsg'
Upstream version 2.1.2~dfsg
# gpg: Signature made Tue 24 Apr 2018 10:48:48 AM MST
# gpg: using RSA key 9B917007AE030E36E4FC248B695B7AE4BF066240
# gpg: issuer "spwhitton@spwhitton.name"
# gpg: Good signature from "Sean Whitton <spwhitton@spwhitton.name>" [ultimate]
# Primary key fingerprint: 8DC2 487E 51AB DD90 B5C4 753F 0F56 D055 3B6D 411B
# Subkey fingerprint: 9B91 7007 AE03 0E36 E4FC 248B 695B 7AE4 BF06 6240
Diffstat (limited to 'tests/Tests/Writers/TEI.hs')
-rw-r--r-- | tests/Tests/Writers/TEI.hs | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/tests/Tests/Writers/TEI.hs b/tests/Tests/Writers/TEI.hs deleted file mode 100644 index 3eb8478b7..000000000 --- a/tests/Tests/Writers/TEI.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -module Tests.Writers.TEI (tests) where - -import Test.Framework -import Text.Pandoc.Builder -import Text.Pandoc -import Tests.Helpers -import Text.Pandoc.Arbitrary() - -{- - "my test" =: X =?> Y - -is shorthand for - - test html "my test" $ X =?> Y - -which is in turn shorthand for - - test html "my test" (X,Y) --} - -infix 4 =: -(=:) :: (ToString a, ToPandoc a) - => String -> (a, String) -> Test -(=:) = test (writeTEI def . toPandoc) - -tests :: [Test] -tests = [ testGroup "block elements" - ["para" =: para "Lorem ipsum cetera." - =?> "<p>Lorem ipsum cetera.</p>" - ] - , testGroup "inlines" - [ - "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>" - ] - ] |