module Soaspec
  # Describes methods test handlers use to easily set attributes
  # Some are included in 'success scenarios' and to configure the request sent
  module HandlerAccessors

    # Defines expected_mandatory_elements method used in 'success_scenario' shared examples
    # to indicate certain elements must be present
    # @param [Array] elements Array of symbols specifying expected element names for 'success scenario' in snakecase
    #
    # @example Inside class
    #   mandatory_elements :GetWeatherResult
    #
    # Or for a list
    #
    # @example Inside class
    #   mandatory_elements [:GetWeatherResult, :GetResultStatus]
    #
    # In test
    # describe Exchange(:name) do
    #   it_behaves_like 'success scenario' # Includes checks for mandatory elements
    # end
    def mandatory_elements(elements)
      define_method('expected_mandatory_elements') do
        return [elements] if elements.is_a?(String) || elements.is_a?(Symbol)
        elements
      end
    end

    # Defines mandatory xpaths value pairs to be included in 'success scenario' shared example
    #
    # @example Inside class
    #   mandatory_xpath_values '//xmlns:GetWeatherResult' => 'Data Not Found'
    #
    # In test
    # describe Exchange(:name) do
    #   it_behaves_like 'success scenario' # Includes xpath pair validation
    # end
    #
    def mandatory_xpath_values(xpath_value_pairs)
      raise ArgumentError('Hash of {xpath => expected values} expected ') unless xpath_value_pairs.is_a? Hash
      define_method('expected_mandatory_xpath_values') do
        xpath_value_pairs
      end
    end

    # Defines mandatory json path value pairs to be included in 'success scenario' shared example
    #
    # @example Inside class
    #   mandatory_json_values '$..GetWeatherResult' => 'Found'
    #
    # In test
    # describe Exchange(:name) do
    #   it_behaves_like 'success scenario' # Includes json pair validation
    # end
    #
    def mandatory_json_values(json_value_pairs)
      raise ArgumentError("Hash of {'jsonpath' => expected values} expected") unless json_value_pairs.is_a? Hash
      define_method('expected_mandatory_json_values') do
        json_value_pairs
      end
    end

    # Links a particular path to a meaningful method that can be accessed from Exchange class.
    # This will use the 'value_from_path' method which
    # should be implemented by each ExchangeHandler
    # @param [String, Symbol] name Method name used to access element
    # @param [String, Symbol] path Path to find object (e.g, XPath, JSONPath)
    def element(name, path)
      define_method("__custom_path_#{name}") do |response|
        value_from_path(response, path.to_s)
      end
    end

    # Links an attribute to a meaningful method that can be accessed from Exchange class.
    # This will use the 'value_from_path' method which
    # should be implemented by each ExchangeHandler
    # @param [String, Symbol] name Method name used to access attribute
    # @param [String, nil, Hash] attribute Attribute name. If not set, this will default to @name
    def attribute(name, attribute = nil)
      attribute_used = attribute ? attribute : name.to_s
      define_method("__custom_path_#{name}") do |response|
        value_from_path(response, 'implicit', attribute: attribute_used)
      end
    end

    # All xpath will be done with XML that is converted to lower case
    # You must then use lower case in the xpath's to obtain the desired values
    def convert_to_lower(set)
      return unless set
      define_method('convert_to_lower?') do
        true
      end
    end

    # Whether to remove namespaces from response in Xpath assertion automatically
    # For why this may not be a good thing in general see
    # http://tenderlovemaking.com/2009/04/23/namespaces-in-xml.html
    # This will be overridden if xpath has a ':' in it
    def strip_namespaces(set)
      return unless set
      # Whether to remove namespaces in xpath assertion automatically
      define_method('strip_namespaces?') do
        true
      end
    end
  end
end