module WildcardMatchers
  module Matchers
    def is_a(klass)
      klass
    end

    [ String, Integer, Float, Hash, Array ].each do |klass|
      module_eval %{
        def is_a_#{klass.to_s.downcase}
          #{klass.inspect}
        end
      }
    end

    def is_bool
      lambda {|bool| TrueClass === bool or FalseClass === bool }
    end

    def is_time
      lambda do |time|
        require "time"
        time.is_a?(Time) or (Time.parse(time) rescue false)
      end
    end

    # RSpeck::Mocks has hash_including
    def hash_includes(*args)
      hash_to_match = {}
      hash_to_match = args.pop if args.last.is_a?(Hash)

      lambda do |hash|
        (args - hash.keys).size == 0 &&
          hash_to_match.all? {|key, value| value === hash[key] }
      end
    end

    def is_a_member_of(*args)
      lambda do |item|
        args.flatten.any? {|expected| expected === item }
      end
    end
  end
end