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 Go specs.

Browse Source
This commit is contained in:
Rob Rix 2018-06-25 11:56:42 -04:00
parent bfd79c062d
commit 525f025e73
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/Analysis/Go/Spec.hs
View File

@ -11,13 +11,15 @@ spec :: Spec
spec = parallel $ do
describe "Go" $ do
it "imports and wildcard imports" $ do
((Right [(_, env)], heap), _) <- evaluate ["main.go"]
((res@(~(Right [(_, env)])), heap), _) <- evaluate ["main.go"]
fmap (() <$) res `shouldBe` Right [()]
Env.names env `shouldBe` [ "Bar", "Rab", "foo", "main" ]
(derefQName heap ("foo" :| []) env >>= deNamespace) `shouldBe` Just ("foo", ["New"])
it "imports with aliases (and side effects only)" $ do
((Right [(_, env)], heap), _) <- evaluate ["main1.go"]
((res@(~(Right [(_, env)])), heap), _) <- evaluate ["main1.go"]
fmap (() <$) res `shouldBe` Right [()]
Env.names env `shouldBe` [ "f", "main" ]
(derefQName heap ("f" :| []) env >>= deNamespace) `shouldBe` Just ("f", ["New"])