"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "test/Tests/Old.hs" between
pandoc-2.11.1.1.tar.gz and pandoc-2.11.2.tar.gz

About: Pandoc converts files from one markup format into another.

Old.hs  (pandoc-2.11.1.1):Old.hs  (pandoc-2.11.2)
skipping to change at line 218 skipping to change at line 218
"man-reader.man" "man-reader.native" "man-reader.man" "man-reader.native"
] ]
, testGroup "org" , testGroup "org"
[ test' "reader" ["-r", "org", "-w", "native", "-s"] [ test' "reader" ["-r", "org", "-w", "native", "-s"]
"org-select-tags.org" "org-select-tags.native" "org-select-tags.org" "org-select-tags.native"
] ]
, testGroup "ipynb" , testGroup "ipynb"
[ test' "reader" ["-f", "ipynb-raw_html-raw_tex+raw_attribute", [ test' "reader" ["-f", "ipynb-raw_html-raw_tex+raw_attribute",
"-t", "native", "-s"] "-t", "native", "-s"]
"ipynb/simple.ipynb" "ipynb/simple.out.native" "ipynb/simple.ipynb" "ipynb/simple.out.native"
, test' "writer" ["-f", "native", "-t", , test' "writer" ["-f", "native",
"--markdown-headings=setext", "-t",
"ipynb-raw_html-raw_tex+raw_attribute", "-s"] "ipynb-raw_html-raw_tex+raw_attribute", "-s"]
"ipynb/simple.in.native" "ipynb/simple.ipynb" "ipynb/simple.in.native" "ipynb/simple.ipynb"
] ]
] ]
where where
test' = test pandocPath test' = test pandocPath
writerTests' = writerTests pandocPath writerTests' = writerTests pandocPath
s5WriterTest' = s5WriterTest pandocPath s5WriterTest' = s5WriterTest pandocPath
fb2WriterTest' = fb2WriterTest pandocPath fb2WriterTest' = fb2WriterTest pandocPath
lhsWriterTests' = lhsWriterTests pandocPath lhsWriterTests' = lhsWriterTests pandocPath
skipping to change at line 244 skipping to change at line 245
readFile' f = do s <- UTF8.readFile f readFile' f = do s <- UTF8.readFile f
return $! (length s `seq` s) return $! (length s `seq` s)
lhsWriterTests :: FilePath -> String -> [TestTree] lhsWriterTests :: FilePath -> String -> [TestTree]
lhsWriterTests pandocPath format lhsWriterTests pandocPath format
= [ t "lhs to normal" format = [ t "lhs to normal" format
, t "lhs to lhs" (format ++ "+lhs") , t "lhs to lhs" (format ++ "+lhs")
] ]
where where
t n f = test pandocPath t n f = test pandocPath
n ["--wrap=preserve", "-r", "native", "-s", "-w", f] n ["--wrap=preserve", "-r", "native", "-s",
"--markdown-headings=setext", "-w", f]
"lhs-test.native" ("lhs-test" <.> f) "lhs-test.native" ("lhs-test" <.> f)
lhsReaderTest :: FilePath -> String -> TestTree lhsReaderTest :: FilePath -> String -> TestTree
lhsReaderTest pandocPath format = lhsReaderTest pandocPath format =
test pandocPath "lhs" ["-r", format, "-w", "native"] test pandocPath "lhs" ["-r", format, "-w", "native"]
("lhs-test" <.> format) norm ("lhs-test" <.> format) norm
where norm = if format == "markdown+lhs" where norm = if format == "markdown+lhs"
then "lhs-test-markdown.native" then "lhs-test-markdown.native"
else "lhs-test.native" else "lhs-test.native"
 End of changes. 2 change blocks. 
2 lines changed or deleted 4 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)