github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Use irrefutable patterns in the Python import specs.

Browse Source
This commit is contained in:
Rob Rix 2018-06-25 11:55:00 -04:00
parent 7ae66f18ea
commit 65d85e682d
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/Analysis/Python/Spec.hs
View File

@ -13,7 +13,8 @@ spec :: Spec
spec = parallel $ do
describe "Python" $ do
it "imports" $ do
((Right [(_, env)], heap), _) <- evaluate ["main.py"]
((res@(~(Right [(_, env)])), heap), _) <- evaluate ["main.py", "a.py", "b/__init__.py", "b/c.py"]
fmap (() <$) res `shouldBe` Right [()]
Env.names env `shouldContain` [ "a", "b" ]
(derefQName heap ("a" :| []) env >>= deNamespace) `shouldBe` Just ("a", ["foo"])
@ -21,15 +22,18 @@ spec = parallel $ do
(derefQName heap ("b" :| ["c"]) env >>= deNamespace) `shouldBe` Just ("c", ["baz"])
it "imports with aliases" $ do
((Right [(_, env)], _), _) <- evaluate ["main1.py"]
((res@(~(Right [(_, env)])), _), _) <- evaluate ["main1.py", "a.py", "b/__init__.py", "b/c.py"]
fmap (() <$) res `shouldBe` Right [()]
Env.names env `shouldContain` [ "b", "e" ]
it "imports using 'from' syntax" $ do
((Right [(_, env)], _), _) <- evaluate ["main2.py"]
((res@(~(Right [(_, env)])), _), _) <- evaluate ["main2.py", "a.py", "b/__init__.py", "b/c.py"]
fmap (() <$) res `shouldBe` Right [()]
Env.names env `shouldContain` [ "bar", "foo" ]
it "imports with relative syntax" $ do
((Right [(_, env)], heap), _) <- evaluate ["main3.py"]
((res@(~(Right [(_, env)])), heap), _) <- evaluate ["main3.py", "c/__init__.py", "c/utils.py"]
fmap (() <$) res `shouldBe` Right [()]
Env.names env `shouldContain` [ "utils" ]
(derefQName heap ("utils" :| []) env >>= deNamespace) `shouldBe` Just ("utils", ["to_s"])