1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00

Fix expectation of sequence expression test

This commit is contained in:
joshvera 2018-11-29 18:38:32 -05:00
parent 1e1813b180
commit 70fa31f11e
2 changed files with 5 additions and 3 deletions

View File

@ -394,6 +394,7 @@ test-suite test
, recursion-schemes >= 4.1
, semilattices
, semantic
, scientific
, text >= 1.2.1.3
, these
ghc-options: -threaded -rtsopts -with-rtsopts=-N -j

View File

@ -7,6 +7,7 @@ import Data.Abstract.Number as Number
import Data.Abstract.Package (PackageInfo(..))
import Data.Abstract.Module (ModuleInfo(..))
import qualified Data.Abstract.ModuleTable as ModuleTable
import Control.Abstract.Value as Value
import Data.Abstract.Value.Concrete as Value
import qualified Data.Language as Language
import qualified Data.List.NonEmpty as NonEmpty
@ -18,6 +19,7 @@ import Data.Text (pack)
import qualified Language.TypeScript.Assignment as TypeScript
import Data.Quieterm
import Data.Location
import Data.Scientific (scientific)
spec :: TaskConfig -> Spec
spec config = parallel $ do
@ -94,9 +96,8 @@ spec config = parallel $ do
it "evaluates sequence expressions" $ do
(scopeGraph, (heap, res)) <- evaluate ["sequence-expression.ts"]
case ModuleTable.lookup "sequence-expression.ts" <$> res of
Right (Just (Module _ (scopeAndFrame, valueRef) :| [])) -> do
const () <$> SpecHelpers.lookupDeclaration "x" scopeAndFrame heap scopeGraph `shouldBe` Just ()
valueRef `shouldBe` Rval (Value.Float (Number.Decimal 3.0))
Right (Just (Module _ (scopeAndFrame, valueRef) :| [])) ->
SpecHelpers.lookupDeclaration "x" scopeAndFrame heap scopeGraph `shouldBe` Just [ Value.float (scientific 3 0) ]
other -> expectationFailure (show other)
it "evaluates void expressions" $ do