added some tests
This commit is contained in:
Pagwin
parent
66499505d6
commit
c1acbe15f1
1 changed files with 85 additions and 1 deletions
|
|
@ -22,7 +22,15 @@ import Text.Megaparsec
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
main = do
|
main = do
|
||||||
cond <-
|
cond <-
|
||||||
checkParallel $ Group "Parse Tests" [("all_compile", all_compiles)]
|
checkParallel $
|
||||||
|
Group
|
||||||
|
"Parse Tests"
|
||||||
|
[ ("all_compile", all_compiles),
|
||||||
|
("header_and_paragraph", header_and_paragraph),
|
||||||
|
("paragraph_and_header_and_paragraph", paragraph_and_header_and_paragraph),
|
||||||
|
("bold_and_header_and_paragraph", bold_and_header_and_paragraph),
|
||||||
|
("code_block", code_block)
|
||||||
|
]
|
||||||
if cond
|
if cond
|
||||||
then exitSuccess
|
then exitSuccess
|
||||||
else exitFailure
|
else exitFailure
|
||||||
|
|
@ -35,3 +43,79 @@ all_compiles = property $ do
|
||||||
case parsed of
|
case parsed of
|
||||||
Right _ -> success
|
Right _ -> success
|
||||||
Left e -> fail $ errorBundlePretty e
|
Left e -> fail $ errorBundlePretty e
|
||||||
|
|
||||||
|
header_and_paragraph :: Property
|
||||||
|
header_and_paragraph = property $ do
|
||||||
|
header_text <- forAll $ Gen.text (Range.linear 1 10) Gen.alpha
|
||||||
|
header_level <- forAll $ Gen.int (Range.linear 1 6)
|
||||||
|
paragraph_text <- forAll $ Gen.text (Range.linear 1 10) Gen.alpha
|
||||||
|
|
||||||
|
let input = (T.pack $ take header_level $ repeat '#') <> header_text <> "\n\n" <> paragraph_text
|
||||||
|
|
||||||
|
let parsed = parse (Markdown.document :: ParsecT Void Text Identity IR.Document) "test_input" input
|
||||||
|
|
||||||
|
case parsed of
|
||||||
|
Right (Doc [Heading (H {level = header_level, text = [Text (header_text)]}), Paragraph (P ([Text paragraph_text]))]) -> success
|
||||||
|
Right tree -> fail $ "Incorrect syntax tree: " <> show tree
|
||||||
|
Left e -> fail $ errorBundlePretty e
|
||||||
|
|
||||||
|
paragraph_and_header_and_paragraph :: Property
|
||||||
|
paragraph_and_header_and_paragraph = property $ do
|
||||||
|
paragraph1_text <- forAll $ Gen.text (Range.linear 1 10) Gen.alpha
|
||||||
|
header_text <- forAll $ Gen.text (Range.linear 1 10) Gen.alpha
|
||||||
|
header_level <- forAll $ Gen.int (Range.linear 1 6)
|
||||||
|
paragraph2_text <- forAll $ Gen.text (Range.linear 1 10) Gen.alpha
|
||||||
|
|
||||||
|
let input = paragraph1_text <> "\n\n" <> (T.pack $ take header_level $ repeat '#') <> header_text <> "\n\n" <> paragraph2_text
|
||||||
|
|
||||||
|
let parsed = parse (Markdown.document :: ParsecT Void Text Identity IR.Document) "test_input" input
|
||||||
|
|
||||||
|
case parsed of
|
||||||
|
Right (Doc [Paragraph (P ([Text paragarph1_text])), Heading (H {level = header_level, text = [Text (header_text)]}), Paragraph (P ([Text paragraph2_text]))]) -> success
|
||||||
|
Right tree -> fail $ "Incorrect syntax tree: " <> show tree
|
||||||
|
Left e -> fail $ errorBundlePretty e
|
||||||
|
|
||||||
|
bold_and_header_and_paragraph :: Property
|
||||||
|
bold_and_header_and_paragraph = property $ do
|
||||||
|
bold_text <- forAll $ Gen.text (Range.linear 1 10) Gen.alpha
|
||||||
|
header_text <- forAll $ Gen.text (Range.linear 1 10) Gen.alpha
|
||||||
|
header_level <- forAll $ Gen.int (Range.linear 1 6)
|
||||||
|
paragraph_text <- forAll $ Gen.text (Range.linear 1 10) Gen.alpha
|
||||||
|
|
||||||
|
let input = "**" <> bold_text <> "**\n\n" <> (T.pack $ take header_level $ repeat '#') <> header_text <> "\n\n" <> paragraph_text
|
||||||
|
|
||||||
|
let parsed = parse (Markdown.document :: ParsecT Void Text Identity IR.Document) "test_input" input
|
||||||
|
|
||||||
|
case parsed of
|
||||||
|
Right (Doc [Paragraph (P ([Bold [Text bold_text]])), Heading (H {level = header_level, text = [Text (header_text)]}), Paragraph (P ([Text paragraph_text]))]) -> success
|
||||||
|
Right tree -> fail $ "Incorrect syntax tree: " <> show tree
|
||||||
|
Left e -> fail $ errorBundlePretty e
|
||||||
|
|
||||||
|
code_block :: Property
|
||||||
|
code_block = property $ do
|
||||||
|
language <- forAll $ Gen.text (Range.linear 1 10) Gen.alpha
|
||||||
|
code <- forAll $ Gen.text (Range.linear 1 10) Gen.alpha
|
||||||
|
let input = "```" <> language <> "\n" <> code <> "```"
|
||||||
|
|
||||||
|
let parsed = parse (Markdown.document :: ParsecT Void Text Identity IR.Document) "test_input" input
|
||||||
|
|
||||||
|
case parsed of
|
||||||
|
Right (Doc [Code (C {language, code})]) -> success
|
||||||
|
Right tree -> fail $ "Incorrect syntax tree: " <> show tree
|
||||||
|
Left e -> fail $ errorBundlePretty e
|
||||||
|
|
||||||
|
-- from new writing learning
|
||||||
|
-- Error case, joins block quotes toegether
|
||||||
|
-- > [*Sic*](https://www.merriam-webster.com/dictionary/sic) usually appears in parentheses or brackets, sometimes with the letters in italics. In this context it means “intentionally so written.” On its own, *sic* means “so” or “thus” and can be found in phrases such as *sic transit gloria mundi* ("so passes away the glory of the world") and *sic semper tyrannis* ("thus ever to tyrants," the motto of the state of Virginia).
|
||||||
|
--
|
||||||
|
-- > What is denoted by *sic* is that the word or phrase that precedes it occurs in the original passage being quoted or name being used and was not introduced by the writer doing the quoting.
|
||||||
|
--
|
||||||
|
|
||||||
|
-- from micro blogs
|
||||||
|
-- Error case 2: made one bullet instead of two, happens for any number of items and probably applicable to numbered list as well
|
||||||
|
-- - item 1
|
||||||
|
-- - item 2
|
||||||
|
|
||||||
|
-- From weekly notes, doing a header after a unordered list causes it to be seens as an inline element
|
||||||
|
--
|
||||||
|
-- From all-projects, not sure if it's block or what causing HTML escapes to go haywire
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue