github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-28 17:32:05 +03:00
Code Issues Projects Releases Wiki Activity

Rename & correct a catchError test.

Browse Source
This commit is contained in:
Rob Rix 2017-09-01 11:26:46 -04:00
parent de318561dd
commit 70cfa6e070
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -147,9 +147,9 @@ spec = do
fst <$> runAssignment "magenta" eof (makeState [ node Magenta 0 7 [] ] :: State [] Grammar) `shouldBe` Right ()
describe "catchError" $ do
it "handler that always matches" $
it "applies its handler to failed committed choices" $
fst <$> runAssignment "A"
(red `catchError` (\ _ -> OutError <$ location <*> source))
((symbol Green *> children red) `catchError` (\ _ -> OutError <$ location <*> source))
(makeState [node Green 0 1 []])
`shouldBe`
Right (OutError "A")