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

Correct a test.

Browse Source
This commit is contained in:
Rob Rix 2017-05-03 09:39:19 -04:00
parent 3ff041adcd
commit bfd55c49c9
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

@ -38,7 +38,7 @@ spec = do
describe "source" $ do
it "produces the node’s source" $
assignAll source (Source "hi") [ Rose (rec Red 0 2) [] ] `shouldBe` Result [] (Just "hi")
assign source (Source "hi") (Rose (rec Red 0 2) []) `shouldBe` Result [] (Just "hi")
it "advances past the current node" $
fst <$> runAssignment source (startingState "hi" [ Rose (rec Red 0 2) [] ]) `shouldBe` Result [] (Just (AssignmentState 2 (Info.SourcePos 1 3) (Source "") []))