github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 01:42:43 +03:00
Code Issues Projects Releases Wiki Activity

Test that assignment continues after children assignments.

Browse Source
This commit is contained in:
Rob Rix 2017-04-10 10:52:12 -04:00
parent c2482a0610
commit b1b1d2bd2f
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/Data/Syntax/Assignment/Spec.hs
View File

@ -53,6 +53,15 @@ spec = do
`shouldBe`
Just ([], "1")
it "continues after children" $ do
runAssignment
(many (rule 'A' *> children (rule 'B' *> content)
<|> rule 'C' *> content))
[ ast 'A' "" [ ast 'B' "B" [] ]
, ast 'C' "C" [] ]
`shouldBe`
Just ([], ["B", "C"])
ast :: grammar -> ByteString -> [AST grammar] -> AST grammar
ast g s c = Rose (Node g s) c