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

Fix typescript tests

Browse Source
This commit is contained in:
joshvera 2018-11-16 18:53:57 -05:00
parent 06c9e97b2d
commit 4f1d67f172
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/Analysis/TypeScript/Spec.hs
View File

@ -79,7 +79,11 @@ spec config = parallel $ do
it "fails exporting symbols not defined in the module" $ do
(_, res) <- evaluate ["bad-export.ts", "pip.ts", "a.ts", "foo.ts"]
res `shouldBe` Left (SomeError (inject @(BaseError (EvalError Precise (Value (Quieterm (Sum TypeScript.Syntax) Location) Precise))) (BaseError (ModuleInfo "foo.ts") emptySpan (ExportError "foo.ts" (name "pip")))))
case ModuleTable.lookup "bad-export.ts" <$> res of
Right (Just (Module _ (scopeGraph, (_, valueRef)) :| [])) -> do
ScopeGraph.lookupScopePath "pip" scopeGraph `shouldBe` Nothing
valueRef `shouldBe` Rval Unit
other -> expectationFailure (show other)
it "evaluates early return statements" $ do
(_, res) <- evaluate ["early-return.ts"]
@ -98,7 +102,7 @@ spec config = parallel $ do
value `shouldBe` Just [ Value.Float (Number.Decimal 3.0) ]
-- Env.names env `shouldBe` [ "x" ]
(fmap (const ()) <$> ScopeGraph.lookupScopePath "x" scopeGraph) `shouldBe` Just (ScopeGraph.DPath (ScopeGraph.Declaration "x") (Heap.Position 1))
(fmap (const ()) <$> ScopeGraph.lookupScopePath "x" scopeGraph) `shouldBe` Just (ScopeGraph.DPath (ScopeGraph.Declaration "x") (Heap.Position 0))
other -> expectationFailure (show other)
it "evaluates void expressions" $ do