mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
36 lines
1.2 KiB
Haskell
36 lines
1.2 KiB
Haskell
{-# LANGUAGE OverloadedLists #-}
|
|
module Analysis.Go.Spec (spec) where
|
|
|
|
import Data.Abstract.Value
|
|
import SpecHelpers
|
|
|
|
|
|
spec :: Spec
|
|
spec = parallel $ do
|
|
describe "evalutes Go" $ do
|
|
it "imports and wildcard imports" $ do
|
|
env <- environment . snd <$> evaluate "main.go"
|
|
env `shouldBe` [ (qualifiedName ["foo", "New"], addr 0)
|
|
, (qualifiedName ["Rab"], addr 1)
|
|
, (qualifiedName ["Bar"], addr 2)
|
|
, (qualifiedName ["main"], addr 3)
|
|
]
|
|
|
|
it "imports with aliases (and side effects only)" $ do
|
|
env <- environment . snd <$> evaluate "main1.go"
|
|
env `shouldBe` [ (qualifiedName ["f", "New"], addr 0)
|
|
, (qualifiedName ["main"], addr 3) -- addr 3 is due to side effects of
|
|
-- eval'ing `import _ "./bar"` which
|
|
-- used addr 1 & 2.
|
|
]
|
|
|
|
where
|
|
addr = Address . Precise
|
|
fixtures = "test/fixtures/go/analysis/"
|
|
evaluate entry = evaluateFiles goParser
|
|
[ fixtures <> entry
|
|
, fixtures <> "foo/foo.go"
|
|
, fixtures <> "bar/bar.go"
|
|
, fixtures <> "bar/rab.go"
|
|
]
|