1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 07:25:44 +03:00
semantic/test/Analysis/Ruby/Spec.hs

107 lines
4.9 KiB
Haskell
Raw Normal View History

2018-03-14 02:19:26 +03:00
module Analysis.Ruby.Spec (spec) where
import Data.Abstract.Environment as Env
import Data.Abstract.Evaluatable
2018-06-26 00:28:35 +03:00
import qualified Data.Abstract.ModuleTable as ModuleTable
2018-04-19 10:09:30 +03:00
import Data.Abstract.Number as Number
import Data.Abstract.Value.Concrete as Value
2018-05-28 16:55:01 +03:00
import Data.AST
2018-10-24 17:11:27 +03:00
import Control.Effect.Resumable (SomeError(..))
2018-03-28 19:58:12 +03:00
import Data.List.NonEmpty (NonEmpty(..))
2018-05-07 23:56:40 +03:00
import Data.Sum
2018-04-21 17:22:09 +03:00
import qualified Language.Ruby.Assignment as Ruby
2018-04-24 02:47:13 +03:00
import qualified Data.Language as Language
2018-03-14 02:19:26 +03:00
import SpecHelpers
spec :: TaskConfig -> Spec
spec config = parallel $ do
describe "Ruby" $ do
2018-06-26 00:28:35 +03:00
it "evaluates require_relative" $ do
(_, (heap, res)) <- evaluate ["main.rb", "foo.rb"]
2018-06-26 00:28:35 +03:00
case ModuleTable.lookup "main.rb" <$> res of
2018-09-15 01:04:08 +03:00
Right (Just (Module _ (_, (env, addr)) :| [])) -> do
2018-06-26 00:28:35 +03:00
heapLookupAll addr heap `shouldBe` Just [Value.Integer (Number.Integer 1)]
Env.names env `shouldContain` [ "foo" ]
other -> expectationFailure (show other)
it "evaluates load" $ do
(_, (heap, res)) <- evaluate ["load.rb", "foo.rb"]
2018-06-26 00:28:35 +03:00
case ModuleTable.lookup "load.rb" <$> res of
2018-09-15 01:04:08 +03:00
Right (Just (Module _ (_, (env, addr)) :| [])) -> do
2018-06-26 00:28:35 +03:00
heapLookupAll addr heap `shouldBe` Just [Value.Integer (Number.Integer 1)]
Env.names env `shouldContain` [ "foo" ]
other -> expectationFailure (show other)
it "evaluates load with wrapper" $ do
(_, (_, res)) <- evaluate ["load-wrap.rb", "foo.rb"]
2018-08-08 02:45:44 +03:00
res `shouldBe` Left (SomeExc (inject @(BaseError (EnvironmentError Precise)) (BaseError (ModuleInfo "load-wrap.rb") emptySpan (FreeVariable "foo"))))
2018-06-26 00:28:35 +03:00
it "evaluates subclass" $ do
(_, (heap, res)) <- evaluate ["subclass.rb"]
2018-06-26 00:28:35 +03:00
case ModuleTable.lookup "subclass.rb" <$> res of
2018-09-15 01:04:08 +03:00
Right (Just (Module _ (_, (env, addr)) :| [])) -> do
2018-06-26 00:28:35 +03:00
heapLookupAll addr heap `shouldBe` Just [String "\"<bar>\""]
Env.names env `shouldContain` [ "Bar", "Foo" ]
(derefQName heap ("Bar" :| []) env >>= deNamespace heap) `shouldBe` Just ("Bar", ["baz", "inspect", "foo"])
2018-06-26 00:28:35 +03:00
other -> expectationFailure (show other)
it "evaluates modules" $ do
(_, (heap, res)) <- evaluate ["modules.rb"]
2018-06-26 00:28:35 +03:00
case ModuleTable.lookup "modules.rb" <$> res of
2018-09-15 01:04:08 +03:00
Right (Just (Module _ (_, (env, addr)) :| [])) -> do
2018-06-26 00:28:35 +03:00
heapLookupAll addr heap `shouldBe` Just [String "\"<hello>\""]
Env.names env `shouldContain` [ "Bar" ]
other -> expectationFailure (show other)
it "handles break correctly" $ do
(_, (heap, res)) <- evaluate ["break.rb"]
2018-06-26 00:28:35 +03:00
case ModuleTable.lookup "break.rb" <$> res of
2018-09-15 01:04:08 +03:00
Right (Just (Module _ (_, (env, addr)) :| [])) -> heapLookupAll addr heap `shouldBe` Just [Value.Integer (Number.Integer 3)]
2018-06-26 00:28:35 +03:00
other -> expectationFailure (show other)
it "handles next correctly" $ do
(_, (heap, res)) <- evaluate ["next.rb"]
2018-06-26 00:28:35 +03:00
case ModuleTable.lookup "next.rb" <$> res of
2018-09-15 01:04:08 +03:00
Right (Just (Module _ (_, (env, addr)) :| [])) -> heapLookupAll addr heap `shouldBe` Just [Value.Integer (Number.Integer 8)]
2018-06-26 00:28:35 +03:00
other -> expectationFailure (show other)
it "calls functions with arguments" $ do
(_, (heap, res)) <- evaluate ["call.rb"]
2018-06-26 00:28:35 +03:00
case ModuleTable.lookup "call.rb" <$> res of
2018-09-15 01:04:08 +03:00
Right (Just (Module _ (_, (env, addr)) :| [])) -> heapLookupAll addr heap `shouldBe` Just [Value.Integer (Number.Integer 579)]
2018-06-26 00:28:35 +03:00
other -> expectationFailure (show other)
it "evaluates early return statements" $ do
(_, (heap, res)) <- evaluate ["early-return.rb"]
2018-06-26 00:28:35 +03:00
case ModuleTable.lookup "early-return.rb" <$> res of
2018-09-15 01:04:08 +03:00
Right (Just (Module _ (_, (env, addr)) :| [])) -> heapLookupAll addr heap `shouldBe` Just [Value.Integer (Number.Integer 123)]
2018-06-26 00:28:35 +03:00
other -> expectationFailure (show other)
it "has prelude" $ do
(_, (heap, res)) <- evaluate ["preluded.rb"]
2018-06-26 00:28:35 +03:00
case ModuleTable.lookup "preluded.rb" <$> res of
2018-09-15 01:04:08 +03:00
Right (Just (Module _ (_, (env, addr)) :| [])) -> heapLookupAll addr heap `shouldBe` Just [String "\"<foo>\""]
2018-06-26 00:28:35 +03:00
other -> expectationFailure (show other)
it "evaluates __LINE__" $ do
(_, (heap, res)) <- evaluate ["line.rb"]
2018-06-26 00:28:35 +03:00
case ModuleTable.lookup "line.rb" <$> res of
2018-09-15 01:04:08 +03:00
Right (Just (Module _ (_, (env, addr)) :| [])) -> heapLookupAll addr heap `shouldBe` Just [Value.Integer (Number.Integer 4)]
2018-06-26 00:28:35 +03:00
other -> expectationFailure (show other)
it "resolves builtins used in the prelude" $ do
(traces, (heap, res)) <- evaluate ["puts.rb"]
2018-06-26 00:28:35 +03:00
case ModuleTable.lookup "puts.rb" <$> res of
2018-09-15 01:04:08 +03:00
Right (Just (Module _ (_, (env, addr)) :| [])) -> do
2018-06-26 00:28:35 +03:00
heapLookupAll addr heap `shouldBe` Just [Unit]
traces `shouldContain` ["String \"\\\"hello\\\"\""]
2018-06-26 00:28:35 +03:00
other -> expectationFailure (show other)
2018-05-10 18:03:42 +03:00
2018-03-14 02:19:26 +03:00
where
fixtures = "test/fixtures/ruby/analysis/"
evaluate = evalRubyProject . map (fixtures <>)
2018-08-02 17:24:55 +03:00
evalRubyProject = testEvaluating <=< evaluateProject' config (Proxy :: Proxy 'Language.Ruby) rubyParser