mirror of
https://github.com/github/semantic.git
synced 2024-11-28 10:15:55 +03:00
48 lines
1.3 KiB
Haskell
48 lines
1.3 KiB
Haskell
{-# LANGUAGE OverloadedLists #-}
|
|
|
|
module Analysis.Ruby.Spec (spec) where
|
|
|
|
import Data.Abstract.Value
|
|
import Data.Map
|
|
|
|
import SpecHelpers
|
|
|
|
|
|
spec :: Spec
|
|
spec = parallel $ do
|
|
describe "evalutes Ruby" $ do
|
|
it "require_relative" $ do
|
|
env <- evaluate "main.rb"
|
|
let expectedEnv = [ (qualifiedName ["Object"], addr 0)
|
|
, (qualifiedName ["foo"], addr 3)]
|
|
env `shouldBe` expectedEnv
|
|
|
|
it "load" $ do
|
|
env <- evaluate "load.rb"
|
|
let expectedEnv = [ (qualifiedName ["Object"], addr 0)
|
|
, (qualifiedName ["foo"], addr 3) ]
|
|
env `shouldBe` expectedEnv
|
|
|
|
it "load wrap" $ do
|
|
res <- evaluate' "load-wrap.rb"
|
|
fst res `shouldBe` Left "free variable: \"foo\""
|
|
snd res `shouldBe` [(qualifiedName ["Object"], addr 0)]
|
|
|
|
it "subclass" $ do
|
|
res <- evaluate' "subclass.rb"
|
|
join (fst res) `shouldBe` Right (injValue (String "\"<bar>\""))
|
|
|
|
it "has prelude" $ do
|
|
res <- evaluate' "preluded.rb"
|
|
fst res `shouldBe` Right (injValue (String "\"<foo>\""))
|
|
|
|
where
|
|
addr = Address . Precise
|
|
fixtures = "test/fixtures/ruby/analysis/"
|
|
evaluate entry = snd <$> evaluate' entry
|
|
evaluate' entry = fst . fst . fst . fst <$>
|
|
evaluateFilesWithPrelude rubyParser
|
|
[ fixtures <> entry
|
|
, fixtures <> "foo.rb"
|
|
]
|