github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

We’re already destructuring the tuples.

Browse Source
This commit is contained in:
Rob Rix 2018-06-01 17:28:19 -04:00
parent 435a211fc4
commit d8201341c9
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/Control/Abstract/Evaluator/Spec.hs
View File

@ -20,13 +20,13 @@ spec :: Spec
spec = parallel $ do
it "constructs integers" $ do
(expected, _) <- evaluate (box (integer 123))
fst <$> expected `shouldBe` Right (Value.Integer (Number.Integer 123))
expected `shouldBe` Right (Value.Integer (Number.Integer 123))
it "calls functions" $ do
(expected, _) <- evaluate $ do
identity <- closure [name "x"] lowerBound (variable (name "x"))
call identity [box (integer 123)]
fst <$> expected `shouldBe` Right (Value.Integer (Number.Integer 123))
expected `shouldBe` Right (Value.Integer (Number.Integer 123))
evaluate
= runM