From 80f7c6585ded5d6d068a4c0533969c2eff63ff8f Mon Sep 17 00:00:00 2001 From: joshvera Date: Thu, 15 Nov 2018 13:17:22 -0500 Subject: [PATCH] Fix up tests Co-Authored-By: Rick Winfrey --- test/Analysis/TypeScript/Spec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/Analysis/TypeScript/Spec.hs b/test/Analysis/TypeScript/Spec.hs index df53fd9a6..afde80a46 100644 --- a/test/Analysis/TypeScript/Spec.hs +++ b/test/Analysis/TypeScript/Spec.hs @@ -58,8 +58,8 @@ spec config = parallel $ do (_, res) <- evaluate ["main4.ts", "foo.ts"] case ModuleTable.lookup "main4.ts" <$> res of Right (Just (Module _ (scopeGraph, (heap, valueRef)) :| [])) -> do - fmap (const ()) <$> ScopeGraph.lookupScopePath "foo" scopeGraph `shouldBe` Just (ScopeGraph.EPath ScopeGraph.Import () $ ScopeGraph.DPath (ScopeGraph.Declaration "foo") (Heap.Position 0)) - valueRef `shouldBe` Rval (String $ pack "this is the foo function") + fmap (const ()) <$> ScopeGraph.lookupScopePath "foo" scopeGraph `shouldBe` Just (ScopeGraph.EPath ScopeGraph.Import () . ScopeGraph.EPath ScopeGraph.Import () $ ScopeGraph.DPath (ScopeGraph.Declaration "foo") (Heap.Position 0)) + valueRef `shouldBe` Rval (String $ pack "\"this is the foo function\"") other -> expectationFailure (show other) it "side effect only imports dont expose exports" $ do