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

Use makeState to tidy up an expectation.

Browse Source
This commit is contained in:
Rob Rix 2017-05-03 09:42:18 -04:00
parent 72de8792c4
commit 7ae74cdacc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,7 +34,7 @@ spec = do
snd <$> runAssignment red (makeState "hello" [Rose (rec Red 0 5) []]) `shouldBe` Result [] (Just (Out "hello")) snd <$> runAssignment red (makeState "hello" [Rose (rec Red 0 5) []]) `shouldBe` Result [] (Just (Out "hello"))
it "does not advance past the current node" $ it "does not advance past the current node" $
fst <$> runAssignment (symbol Red) (makeState "hi" [ Rose (rec Red 0 2) [] ]) `shouldBe` Result [] (Just (AssignmentState 0 (Info.SourcePos 1 1) "hi" [ Rose (rec Red 0 2) [] ])) fst <$> runAssignment (symbol Red) (makeState "hi" [ Rose (rec Red 0 2) [] ]) `shouldBe` Result [] (Just (makeState "hi" [ Rose (rec Red 0 2) [] ]))
describe "source" $ do describe "source" $ do
it "produces the node’s source" $ it "produces the node’s source" $