diff options
Diffstat (limited to 'test/Tests/Writers/FB2.hs.orig')
| -rw-r--r-- | test/Tests/Writers/FB2.hs.orig | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/test/Tests/Writers/FB2.hs.orig b/test/Tests/Writers/FB2.hs.orig deleted file mode 100644 index 6663c42f8..000000000 --- a/test/Tests/Writers/FB2.hs.orig +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -module Tests.Writers.FB2 (tests) where - -import Test.Tasty -import Tests.Helpers -import Text.Pandoc -import Text.Pandoc.Arbitrary () -import Text.Pandoc.Builder - -fb2 :: String -> String -fb2 x = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" ++ - "<FictionBook xmlns=\"http://www.gribuser.ru/xml/fictionbook/2.0\" xmlns:l=\"http://www.w3.org/1999/xlink\"><description><title-info><genre>unrecognised</genre></title-info><document-info><program-used>pandoc</program-used></document-info></description><body><title><p /></title><section>" ++ x ++ "</section></body></FictionBook>" - -infix 4 =: -(=:) :: (ToString a, ToPandoc a) - => String -> (a, String) -> TestTree -(=:) = test (purely (writeFB2 def) . toPandoc) - -tests :: [TestTree] -tests = [ testGroup "block elements" - ["para" =: para "Lorem ipsum cetera." - =?> fb2 "<p>Lorem ipsum cetera.</p>" - ] - , testGroup "inlines" - [ - "Emphasis" =: emph "emphasized" - =?> fb2 "<emphasis>emphasized</emphasis>" - ] - , "bullet list" =: bulletList [ plain $ text "first" - , plain $ text "second" - , plain $ text "third" - ] - =?> fb2 "<p>\x2022 first</p><p>\x2022 second</p><p>\x2022 third</p>" - ] |