github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Test for the presence of the desired symbols rather than the exact list.

Browse Source
This commit is contained in:
Rob Rix 2018-05-10 10:10:57 -04:00
parent ae7ee6e860
commit 4fca683eae
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/Analysis/Ruby/Spec.hs
View File

@ -31,25 +31,19 @@ spec = parallel $ do
it "evaluates load with wrapper" $ do
res <- evaluate "load-wrap.rb"
fst res `shouldBe` Left (SomeExc (injectSum @(EnvironmentError (Value Precise)) (FreeVariable "foo")))
environment (snd res) `shouldBe` [ ("Object", addr 0) ]
Env.names (environment (snd res)) `shouldContain` [ "Object" ]
it "evaluates subclass" $ do
res <- evaluate "subclass.rb"
fst res `shouldBe` Right [injValue (String "\"<bar>\"")]
environment (snd res) `shouldBe` [ ("Bar", addr 6)
, ("Foo", addr 3)
, ("Object", addr 0) ]
Env.names (environment (snd res)) `shouldContain` [ "Bar", "Foo" ]
heapLookup (Address (Precise 6)) (heap (snd res))
`shouldBe` ns "Bar" [ ("baz", addr 8)
, ("foo", addr 5)
, ("inspect", addr 7) ]
(derefQName (heap (snd res)) ("Bar" :| []) (environment (snd res)) >>= deNamespace) `shouldBe` Just ("Bar", ["baz", "foo", "inspect"])
it "evaluates modules" $ do
res <- evaluate "modules.rb"
fst res `shouldBe` Right [injValue (String "\"<hello>\"")]
environment (snd res) `shouldBe` [ ("Object", addr 0)
, ("Bar", addr 3) ]
Env.names (environment (snd res)) `shouldContain` [ "Bar" ]
it "handles break correctly" $ do
res <- evaluate "break.rb"