github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Test that we can construct integers.

Browse Source
This commit is contained in:
Rob Rix 2018-05-07 15:10:41 -04:00
parent 980fd74aed
commit 1bd817bc76
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
test/Control/Abstract/Evaluator/Spec.hs
View File

@ -9,7 +9,12 @@ import qualified Data.Abstract.Value as Value
import SpecHelpers hiding (Term) import SpecHelpers hiding (Term)
spec :: Spec spec :: Spec
spec = parallel $ pure () spec = parallel $ do
it "constructs integers" $ do
let expected = evaluate (integer 123)
let actual = Right (Right (Right (Value.injValue (Value.Integer (Number.Integer 123)))))
fst expected `shouldBe` actual
pure ()
evaluate evaluate
= run = run