1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
This commit is contained in:
joshvera 2018-03-23 15:37:06 -04:00
parent 745eb85ee7
commit b1efc533cf

View File

@ -30,11 +30,11 @@ spec = parallel $ do
it "subclass" $ do
res <- evaluate' "subclass.rb"
join (fst res) `shouldBe` Right (injValue (String "\"<bar>\""))
fst res `shouldBe` Right (Right (injValue (String "\"<bar>\"")))
it "has prelude" $ do
res <- evaluate' "preluded.rb"
fst res `shouldBe` Right (injValue (String "\"<foo>\""))
fst res `shouldBe` Right (Right (injValue (String "\"<foo>\"")))
where
addr = Address . Precise