module RSpec
  module Mocks
    module ArgumentMatchers
      RSpec.describe HashIncludingMatcher do

        it "describes itself properly" do
          message =
            if RUBY_VERSION.to_f > 3.3
              "hash_including(a: 1)"
            else
              "hash_including(:a=>1)"
            end

          expect(HashIncludingMatcher.new(:a => 1).description).to eq message
        end

        it "describes passed matchers" do
          description = hash_including(:foo => fake_matcher(Object.new)).description

          expect(description).to include(MatcherHelpers.fake_matcher_description)
        end

        describe "passing" do
          it "matches the same hash" do
            expect(hash_including(:a => 1)).to be === {:a => 1}
          end

          it "matches a hash with extra stuff" do
            expect(hash_including(:a => 1)).to be === {:a => 1, :b => 2}
          end

          it "matches against classes inheriting from Hash" do
            expect(hash_including(Class.new(Hash)[:a, 1])).to be === {:a => 1}
          end

          describe "when matching against other matchers" do
            it "matches an int against anything()" do
              expect(hash_including(:a => anything, :b => 2)).to be === {:a => 1, :b => 2}
            end

            it "matches a string against anything()" do
              expect(hash_including(:a => anything, :b => 2)).to be === {:a => "1", :b => 2}
            end

            it 'can match against arbitrary objects that implement #===' do
              expect(hash_including(:a => /foo/)).to be === { :a => "foobar" }
            end
          end

          describe "when passed only keys or keys mixed with key/value pairs" do
            it "matches if the key is present" do
              expect(hash_including(:a)).to be === {:a => 1, :b => 2}
            end

            it "matches if more keys are present" do
              expect(hash_including(:a, :b)).to be === {:a => 1, :b => 2, :c => 3}
            end

            it "matches a string against a given key" do
              expect(hash_including(:a)).to be === {:a => "1", :b => 2}
            end

            it "matches if passed one key and one key/value pair" do
              expect(hash_including(:a, :b => 2)).to be === {:a => 1, :b => 2}
            end

            it "matches if passed many keys and one key/value pair" do
              expect(hash_including(:a, :b, :c => 3)).to be === {:a => 1, :b => 2, :c => 3, :d => 4}
            end

            it "matches if passed many keys and many key/value pairs" do
              expect(hash_including(:a, :b, :c => 3, :e => 5)).to be === {:a => 1, :b => 2, :c => 3, :d => 4, :e => 5}
            end
          end
        end

        describe "failing" do
          it "does not match a non-hash" do
            expect(hash_including(:a => 1)).not_to be === 1
          end

          it "does not match a hash with a missing key" do
            expect(hash_including(:a => 1)).not_to be === { :b => 2 }
          end

          it "does not match a hash with a missing key" do
            expect(hash_including(:a)).not_to be === { :b => 2 }
          end

          it "does not match an empty hash with a given key" do
            expect(hash_including(:a)).not_to be === {}
          end

          it "does not match a hash with a missing key when one pair is matching" do
            expect(hash_including(:a, :b => 2)).not_to be === { :b => 2 }
          end

          it "does not match a hash with an incorrect value" do
            expect(hash_including(:a => 1, :b => 2)).not_to be === { :a => 1, :b => 3 }
          end

          it "does not match when values are nil but keys are different" do
            expect(hash_including(:a => nil)).not_to be === { :b => nil }
          end
        end
      end
    end
  end
end
