"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

---