diff options
| author | ThunderMikey <mikecyj25@gmail.com> | 2018-03-22 23:49:52 +0000 |
|---|---|---|
| committer | ThunderMikey <mikecyj25@gmail.com> | 2018-03-22 23:50:37 +0000 |
| commit | 610f0e2e2542b7610834e98289362a77ec373a42 (patch) | |
| tree | 3ad4f13e0418fa588d12b8b7df73d4e1c970a898 | |
| parent | 4fdd2e8f850247013282bfa3ecb2ba32d900a024 (diff) | |
| download | FMark-610f0e2e2542b7610834e98289362a77ec373a42.tar.gz FMark-610f0e2e2542b7610834e98289362a77ec373a42.zip | |
add toc exclude parser tests
| -rw-r--r-- | FMark/src/Common/Parser/ParserTest.fs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/FMark/src/Common/Parser/ParserTest.fs b/FMark/src/Common/Parser/ParserTest.fs index 8902629..3ab30e8 100644 --- a/FMark/src/Common/Parser/ParserTest.fs +++ b/FMark/src/Common/Parser/ParserTest.fs @@ -517,6 +517,8 @@ let ``TOC tests`` = let tocTok = [PERCENT;PERCENT;LITERAL"TOC"] let tocTokMisc = tocTok@[WHITESPACE 1;LITERAL "nothing"] let tocDepthTok = tocTok@[WHITESPACE 1;LITERAL"depth";EQUAL;NUMBER "2"] + let tocExcludeToks = [COMMA;LITERAL"excludes";EQUAL;LSBRA;LITERAL"h2";RSBRA] + let tocExcludePreludeToks = [COMMA;LITERAL"excludes";EQUAL;LSBRA] let endline = [ENDLINE] let h1Tok = [HASH;WHITESPACE 1;LITERAL "h1"] let h2Tok = [HASH;HASH;WHITESPACE 1;LITERAL "h2"] @@ -589,6 +591,18 @@ let ``TOC tests`` = [h12ContentTable]@[h1ParsedObj]@[h2ParsedObj]@[h3ParsedObj], "TOC, h1, h2, h3, depth=2, unrcognized text" ); + ( + tocDepthTok@tocExcludeToks@twoEndlines@h1Tok@twoEndlines@h2Tok@twoEndlines@h3Tok, + [h1ContentTable]@[h1ParsedObj]@[h2ParsedObj]@[h3ParsedObj], + "TOC, h1, h2, h3, depth=2, exclude h2" + ); + ( + tocTok + @tocExcludePreludeToks@[LITERAL"h2";SEMICOLON;LITERAL"h3"]@[RSBRA]@twoEndlines + @h1Tok@twoEndlines@h2Tok@twoEndlines@h3Tok, + [h1ContentTable]@[h1ParsedObj]@[h2ParsedObj]@[h3ParsedObj], + "TOC, h1, h2, h3, exclude h2 h3" + ); ] [<Tests>] |