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

Fix a test case which now succeeds.

Browse Source
This commit is contained in:
Rob Rix 2017-08-04 08:54:04 -04:00
parent 71642ae1bd
commit 61087b394e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -186,14 +186,14 @@ spec = do
`shouldBe`
None (Error (Info.Pos 1 2) [] (Just Green))
it "handler that always matches with apply consumes and then errors" $
runAssignment headF "PG"
it "handlers defer to later rules" $
fst <$> runAssignment headF "PG"
(symbol Palette *> children (
(,) <$> many (red `catchError` (\ _ -> OutError <$ location <*> source)) <*> green
))
(makeState [node Palette 0 1 [node Green 1 2 []]])
`shouldBe`
None (Error (Info.Pos 1 3) [Green] Nothing)
Some (([], Out "G") :| [])
it "handler that doesn't match with apply" $
fst <$> runAssignment headF "PG"