mirror of
https://github.com/github/semantic.git
synced 2024-12-26 00:12:29 +03:00
join fst
This commit is contained in:
parent
2358187357
commit
54c11bf629
@ -28,7 +28,7 @@ spec = parallel $ do
|
|||||||
|
|
||||||
it "subclass" $ do
|
it "subclass" $ do
|
||||||
res <- evaluate' "subclass.rb"
|
res <- evaluate' "subclass.rb"
|
||||||
fst res `shouldBe` Right (Right $ injValue (String "\"<bar>\""))
|
join (fst res) `shouldBe` Right (injValue (String "\"<bar>\"")
|
||||||
|
|
||||||
where
|
where
|
||||||
addr = Address . Precise
|
addr = Address . Precise
|
||||||
|
Loading…
Reference in New Issue
Block a user