Support has_* matcher

Author: mcmire

lib/super_diff/rspec/matcher_text_builders.rb

@@ -10,6 +10,10 @@ module MatcherTextBuilders
         :ContainExactly,
         "super_diff/rspec/matcher_text_builders/contain_exactly",
       )
+      autoload(
+        :HavePredicate,
+        "super_diff/rspec/matcher_text_builders/have_predicate",
+      )
       autoload :Match, "super_diff/rspec/matcher_text_builders/match"
       autoload(
         :RaiseError,

lib/super_diff/rspec/matcher_text_builders/have_predicate.rb

@@ -0,0 +1,61 @@
+module SuperDiff
+  module RSpec
+    module MatcherTextBuilders
+      class HavePredicate < Base
+        def initialize(predicate_accessible:, private_predicate:, **rest)
+          super(**rest)
+          @predicate_accessible = predicate_accessible
+          @private_predicate = private_predicate
+        end
+
+        protected
+
+        def expected_action_for_failure_message
+          if predicate_accessible?
+            "return a truthy result for"
+          elsif private_predicate?
+            "have a public method"
+          else
+            "respond to"
+          end
+        end
+
+        def beta_color
+          :yellow
+        end
+
+        def add_actual_value
+          template.add_text_in_color(beta_color) do
+            description_of(actual)
+          end
+        end
+
+        def add_expected_value_to_failure_message(template)
+          template.add_text " "
+          template.add_text_in_color(
+            alpha_color,
+            expected_for_failure_message,
+          )
+        end
+
+        def add_expected_value_to_description(template)
+          template.add_text " "
+          template.add_text_in_color(
+            alpha_color,
+            "`#{expected_for_description}`",
+          )
+        end
+
+        private
+
+        def private_predicate?
+          @private_predicate
+        end
+
+        def predicate_accessible?
+          @predicate_accessible
+        end
+      end
+    end
+  end
+end

lib/super_diff/rspec/monkey_patches.rb

@@ -487,6 +487,35 @@ def respond_to_failure_message_or
         end
       end
 
+      class Has
+        prepend SuperDiff::RSpec::AugmentedMatcher
+
+        prepend(Module.new do
+          def actual_for_matcher_text
+            actual
+          end
+
+          def expected_for_matcher_text
+            "#{predicate}#{failure_message_args_description}"
+          end
+
+          def expected_action_for_matcher_text
+            "return true for"
+          end
+
+          def matcher_text_builder_class
+            SuperDiff::RSpec::MatcherTextBuilders::HavePredicate
+          end
+
+          def matcher_text_builder_args
+            super.merge(
+              predicate_accessible: predicate_accessible?,
+              private_predicate: private_predicate?
+            )
+          end
+        end)
+      end
+
       class Include
         prepend SuperDiff::RSpec::AugmentedMatcher