1
1
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:
Rob Rix 2018-05-28 15:30:19 -04:00
parent 0354dc5330
commit 7b02e3e64f

View File

@ -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