mirror of
https://github.com/github/semantic.git
synced 2024-11-28 01:47:01 +03:00
Correct the EnvironmentError application.
This commit is contained in:
parent
0354dc5330
commit
7b02e3e64f
@ -30,7 +30,7 @@ spec = parallel $ do
|
||||
|
||||
it "evaluates load with wrapper" $ do
|
||||
((res, state), _) <- evaluate "load-wrap.rb"
|
||||
res `shouldBe` Left (SomeExc (inject @(EnvironmentError (Value Precise (Eff _))) (FreeVariable "foo")))
|
||||
res `shouldBe` Left (SomeExc (inject @(EnvironmentError Precise) (FreeVariable "foo")))
|
||||
Env.names (environment state) `shouldContain` [ "Object" ]
|
||||
|
||||
it "evaluates subclass" $ do
|
||||
|
Loading…
Reference in New Issue
Block a user