aboutsummaryrefslogtreecommitdiff
path: root/tests/Tests/Writers
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2016-08-15 15:23:25 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2016-08-15 15:23:25 -0400
commit663f689fa40458d680d44624c108c3009b8329ca (patch)
tree003cce7493442e2f335f75cb5a2b4db31b527f2f /tests/Tests/Writers
parentb512573805650bc3609033ad9f65d7e5200e6969 (diff)
downloadpandoc-663f689fa40458d680d44624c108c3009b8329ca.tar.gz
Docx writer tests: allow for altered round trip
Sometimes we will want to get back something different than we started with in a round-trip test. This allows for that, and makes the perfect roundtrip a special case.
Diffstat (limited to 'tests/Tests/Writers')
-rw-r--r--tests/Tests/Writers/Docx.hs89
1 files changed, 49 insertions, 40 deletions
diff --git a/tests/Tests/Writers/Docx.hs b/tests/Tests/Writers/Docx.hs
index 8dba0ea55..d662697a1 100644
--- a/tests/Tests/Writers/Docx.hs
+++ b/tests/Tests/Writers/Docx.hs
@@ -13,118 +13,127 @@ import System.FilePath ((</>))
type Options = (WriterOptions, ReaderOptions)
compareOutput :: Options
- -> FilePath
- -> IO (Pandoc, Pandoc)
-compareOutput opts nativeFile = do
- nf <- Prelude.readFile nativeFile
+ -> FilePath
+ -> FilePath
+ -> IO (Pandoc, Pandoc)
+compareOutput opts nativeFileIn nativeFileOut = do
+ nf <- Prelude.readFile nativeFileIn
+ nf' <- Prelude.readFile nativeFileOut
let wopts = fst opts
df <- writeDocx wopts{writerUserDataDir = Just (".." </> "data")}
(handleError $ readNative nf)
let (p, _) = handleError $ readDocx (snd opts) df
- return (p, handleError $ readNative nf)
+ return (p, handleError $ readNative nf')
-testCompareWithOptsIO :: Options -> String -> FilePath -> IO Test
-testCompareWithOptsIO opts name nativeFile = do
- (dp, np) <- compareOutput opts nativeFile
+testCompareWithOptsIO :: Options -> String -> FilePath -> FilePath -> IO Test
+testCompareWithOptsIO opts name nativeFileIn nativeFileOut = do
+ (dp, np) <- compareOutput opts nativeFileIn nativeFileOut
return $ test id name (dp, np)
-testCompareWithOpts :: Options -> String -> FilePath -> Test
-testCompareWithOpts opts name nativeFile =
- buildTest $ testCompareWithOptsIO opts name nativeFile
+testCompareWithOpts :: Options -> String -> FilePath -> FilePath -> Test
+testCompareWithOpts opts name nativeFileIn nativeFileOut =
+ buildTest $ testCompareWithOptsIO opts name nativeFileIn nativeFileOut
-testCompare :: String -> FilePath -> Test
+roundTripCompareWithOpts :: Options -> String -> FilePath -> Test
+roundTripCompareWithOpts opts name nativeFile =
+ testCompareWithOpts opts name nativeFile nativeFile
+
+testCompare :: String -> FilePath -> FilePath -> Test
testCompare = testCompareWithOpts def
+roundTripCompare :: String -> FilePath -> Test
+roundTripCompare = roundTripCompareWithOpts def
+
tests :: [Test]
tests = [ testGroup "inlines"
- [ testCompare
+ [ roundTripCompare
"font formatting"
"docx/inline_formatting_writer.native"
- , testCompare
+ , roundTripCompare
"font formatting with character styles"
"docx/char_styles.native"
- , testCompare
+ , roundTripCompare
"hyperlinks"
"docx/links_writer.native"
- , testCompare
+ , roundTripCompare
"inline image"
"docx/image_no_embed_writer.native"
- , testCompare
+ , roundTripCompare
"inline image in links"
"docx/inline_images_writer.native"
- , testCompare
+ , roundTripCompare
"handling unicode input"
"docx/unicode.native"
- , testCompare
+ , roundTripCompare
"literal tabs"
"docx/tabs.native"
- , testCompare
+ , roundTripCompare
"normalizing inlines"
"docx/normalize.native"
- , testCompare
+ , roundTripCompare
"normalizing inlines deep inside blocks"
"docx/deep_normalize.native"
- , testCompare
+ , roundTripCompare
"move trailing spaces outside of formatting"
"docx/trailing_spaces_in_formatting.native"
- , testCompare
+ , roundTripCompare
"inline code (with VerbatimChar style)"
"docx/inline_code.native"
- , testCompare
+ , roundTripCompare
"inline code in subscript and superscript"
"docx/verbatim_subsuper.native"
]
, testGroup "blocks"
- [ testCompare
+ [ roundTripCompare
"headers"
"docx/headers.native"
- , testCompare
+ , roundTripCompare
"headers already having auto identifiers"
"docx/already_auto_ident.native"
- , testCompare
+ , roundTripCompare
"numbered headers automatically made into list"
"docx/numbered_header.native"
- , testCompare
+ , roundTripCompare
"i18n blocks (headers and blockquotes)"
"docx/i18n_blocks.native"
-- Continuation does not survive round-trip
- , testCompare
+ , roundTripCompare
"lists"
"docx/lists_writer.native"
- , testCompare
+ , roundTripCompare
"definition lists"
"docx/definition_list.native"
- , testCompare
+ , roundTripCompare
"custom defined lists in styles"
"docx/german_styled_lists.native"
- , testCompare
+ , roundTripCompare
"footnotes and endnotes"
"docx/notes.native"
- , testCompare
+ , roundTripCompare
"blockquotes (parsing indent as blockquote)"
"docx/block_quotes_parse_indent.native"
- , testCompare
+ , roundTripCompare
"hanging indents"
"docx/hanging_indent.native"
-- tables headers do not survive round-trip, should look into that
- , testCompare
+ , roundTripCompare
"tables"
"docx/tables.native"
- , testCompare
+ , roundTripCompare
"tables with lists in cells"
"docx/table_with_list_cell.native"
- , testCompare
+ , roundTripCompare
"code block"
"docx/codeblock.native"
- , testCompare
+ , roundTripCompare
"dropcap paragraphs"
"docx/drop_cap.native"
]
, testGroup "metadata"
- [ testCompareWithOpts (def,def{readerStandalone=True})
+ [ roundTripCompareWithOpts (def,def{readerStandalone=True})
"metadata fields"
"docx/metadata.native"
- , testCompareWithOpts (def,def{readerStandalone=True})
+ , roundTripCompareWithOpts (def,def{readerStandalone=True})
"stop recording metadata with normal text"
"docx/metadata_after_normal.native"
]