diff --git a/test/Analysis/PHP/Spec.hs b/test/Analysis/PHP/Spec.hs index 5aa8379ed..a2e8ed80c 100644 --- a/test/Analysis/PHP/Spec.hs +++ b/test/Analysis/PHP/Spec.hs @@ -23,8 +23,8 @@ spec = parallel $ do it "evaluates namespaces" $ do res <- evaluate "namespaces.php" - (findEnv res) `shouldBe` [ (name "NS1", addr 0) - , (name "Foo", addr 6) ] + findEnv res `shouldBe` [ (name "NS1", addr 0) + , (name "Foo", addr 6) ] let heap = findHeap res Map.lookup (Precise 0) heap `shouldBe` ns "NS1" [ (name "Sub1", addr 1) diff --git a/test/Analysis/Ruby/Spec.hs b/test/Analysis/Ruby/Spec.hs index 8cdabff3c..d10d2ca54 100644 --- a/test/Analysis/Ruby/Spec.hs +++ b/test/Analysis/Ruby/Spec.hs @@ -21,8 +21,8 @@ spec = parallel $ do it "load wrap" $ do res <- evaluate "load-wrap.rb" - (findValue res) `shouldBe` Left "free variable: \"foo\"" - (findEnv res) `shouldBe` [] + findValue res `shouldBe` Left "free variable: \"foo\"" + findEnv res `shouldBe` [] it "subclass" $ do v <- findValue <$> evaluate "subclass.rb"