From 516daa7e4fb5cacd10d7211a8cd4a5648cc2d00b Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 17 May 2017 15:35:15 -0400 Subject: [PATCH] Correct the spec. --- test/Data/Syntax/Assignment/Spec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Data/Syntax/Assignment/Spec.hs b/test/Data/Syntax/Assignment/Spec.hs index f885523e3..87eac9dd7 100644 --- a/test/Data/Syntax/Assignment/Spec.hs +++ b/test/Data/Syntax/Assignment/Spec.hs @@ -52,7 +52,7 @@ spec = do () <$ runAssignment (children red) (makeState "a" [Rose (rec Blue 0 1) [Rose (rec Red 0 1) []]]) `shouldBe` Result [] (Just ()) it "does not match if its subrule does not match" $ - (runAssignment (children red) (makeState "a" [Rose (rec Blue 0 1) [Rose (rec Green 0 1) []]])) `shouldBe` Result [ Error (Info.SourcePos 1 1) [Red] (Just Green) ] Nothing + (runAssignment (children red) (makeState "a" [Rose (rec Blue 0 1) [Rose (rec Green 0 1) []]])) `shouldBe` Result [ Error (Info.SourcePos 1 1) (UnexpectedSymbol [Red] Green) ] Nothing it "matches nested children" $ do runAssignment