require 'helper'
require 'excon'
require 'peddler/client'

class TestPeddlerClient < MiniTest::Test
  module Parser
    def self.new(res, *)
      res
    end
  end

  def setup
    @body = 'foo'
    Excon.defaults[:mock] = true
    Excon.stub({}, body: @body, status: 200)

    @klass = Class.new(Peddler::Client)
    @klass.parser = Parser
    @client = @klass.new
    @client.aws_access_key_id = 'key'
    @client.aws_secret_access_key = 'secret'
    @client.merchant_id = 'seller'
    @client.primary_marketplace_id = 'ATVPDKIKX0DER' # US
    @client.operation('Foo')
  end

  def teardown
    Excon.stubs.clear
    Excon.defaults.delete(:mock)
  end

  def test_configures_path
    @klass.path('/Foo')
    assert @client.aws_endpoint.match(%r{/Foo$})
  end

  def test_instance_path_overrides_class_path
    @klass.path('/Foo')

    @client.path = '/Foo/Bar'
    assert @client.aws_endpoint.match(%r{/Foo/Bar$})
  end

  def test_default_path
    assert_equal '/', @klass.path
  end

  def test_has_user_agent
    assert @client.connection.data[:headers].key?('User-Agent')
  end

  def test_inherits_parents_params
    assert_equal Peddler::Client.params, @klass.params
  end

  def test_params_include_seller_id
    assert @klass.params.key?("SellerId")
  end

  def test_params_include_auth_token
    @klass.params.key?("MWSAuthToken")
  end

  def test_configures
    @client.configure do |config|
      config.aws_access_key_id = '123'
    end

    assert_equal '123', @client.aws_access_key_id
  end

  def test_configures_when_initialising
    client = @klass.new(aws_access_key_id: '123')
    assert_equal '123', client.aws_access_key_id
  end

  def test_sets_content_type_header_for_latin_flat_file_body
    @client.body = 'foo'
    content_type = @client.headers.fetch('Content-Type')

    assert_equal 'text/tab-separated-values; charset=ISO-8859-1', content_type
  end

  def test_sets_content_type_header_for_chinese_flat_file_body
    @client.primary_marketplace_id = 'AAHKV2X7AFYLW'
    @client.body = 'foo'
    content_type = @client.headers.fetch('Content-Type')

    assert_equal 'text/tab-separated-values; charset=UTF-16', content_type
  end

  def test_sets_content_type_header_for_japanese_flat_file_body
    @client.primary_marketplace_id = 'A1VC38T7YXB528'
    @client.body = 'foo'
    content_type = @client.headers.fetch('Content-Type')

    assert_equal 'text/tab-separated-values; charset=Shift_JIS', content_type
  end

  def test_sets_content_type_header_for_xml_body
    @client.body = '<?xml version="1.0"?><Foo></Foo>'
    content_type = @client.headers.fetch('Content-Type')

    assert_equal 'text/xml', content_type
  end

  def test_runs_a_request
    res = @client.run
    assert_equal @body, res.body
  end

  def test_streams_response
    chunks = ''
    streamer = ->(chunk, _, _) { chunks << chunk }
    @client.run(&streamer)

    assert_equal @body, chunks
  end

  def test_request_preserves_user_agent
    instrumentor = Class.new
    class << instrumentor
      attr_accessor :events

      def instrument(name, params = {})
        events.update(name => params)
        yield if block_given?
      end
    end
    instrumentor.events = {}

    @client.defaults.update(instrumentor: instrumentor)
    @client.run
    headers = instrumentor.events['excon.request'][:headers]

    assert headers.key?('User-Agent')
  end

  def test_error_callback_on_class
    Excon.stub({}, status: 503)

    assert_raises(Excon::Errors::ServiceUnavailable) do
      @client.run
    end

    @klass.on_error do |_, res|
      assert_equal 503, res.status
    end

    @client.run

    Excon.stubs.clear
    @klass.instance_variable_set(:@error_handler, nil)
  end

  def test_error_callback_on_instance
    Excon.stub({}, status: 503)

    assert_raises(Excon::Errors::ServiceUnavailable) do
      @client.run
    end

    @client.on_error do |_, res|
      assert_equal 503, res.status
    end

    @client.run

    Excon.stubs.clear
  end

  def test_error_callback_on_client_ancestor
    Excon.stub({}, status: 503)

    assert_raises(Excon::Errors::ServiceUnavailable) do
      @client.run
    end

    Peddler::Client.on_error do |_, res|
      assert_equal 503, res.status
    end

    klass = Class.new(Peddler::Client)
    klass.parser = Parser
    client = klass.new
    client.aws_access_key_id = 'key'
    client.aws_secret_access_key = 'secret'
    client.merchant_id = 'seller'
    client.primary_marketplace_id = 'ATVPDKIKX0DER' # US
    client.operation('Foo')
    client.run

    Excon.stubs.clear
    Peddler::Client.instance_variable_set(:@error_handler, nil)
  end

  def test_deprecates_call_to_parser_parse
    deprecated_parser = Module.new do
      def self.parse(res, *)
        res
      end
    end
    @client.stub :warn, nil do
      @klass.parser = deprecated_parser
      res = @client.run
      assert_equal @body, res.body
    end
  end

  def test_raises_no_method_errors_not_related_to_deprecated_parser
    bad_parser = Module.new do
      def self.new(*)
        fail NoMethodError, "foo"
      end
    end
    @klass.parser = bad_parser
    @client.stub :warn, nil do
      assert_raises NoMethodError do
        @client.run
      end
    end
  end

  def test_deprecated_marketplace_id_accessor
    refute_nil @client.marketplace_id
    @client.marketplace_id = "123"
    assert_equal "123",  @client.marketplace_id
    assert_equal @client.primary_marketplace_id,  @client.marketplace_id
  end
end