require "spec_helper"
require "httpi/adapter/curb"
require "httpi/request"

require "curb"

describe HTTPI::Adapter::Curb do
  let(:adapter) { HTTPI::Adapter::Curb.new }
  let(:curb) { Curl::Easy.any_instance }

  describe ".new" do
    it "should require the Curb gem" do
      HTTPI::Adapter::Curb.any_instance.expects(:require).with("curb")
      HTTPI::Adapter::Curb.new
    end
  end

  describe "#get" do
    before do
      curb.expects(:http_get)
      curb.expects(:response_code).returns(200)
      curb.expects(:headers).returns(Hash.new)
      curb.expects(:body_str).returns(Fixture.xml)
    end

    it "should return a valid HTTPI::Response" do
      adapter.get(basic_request).should match_response(:body => Fixture.xml)
    end
  end

  describe "#post" do
    before do
      curb.expects(:http_post)
      curb.expects(:response_code).returns(200)
      curb.expects(:headers).returns(Hash.new)
      curb.expects(:body_str).returns(Fixture.xml)
    end

    it "should return a valid HTTPI::Response" do
      adapter.post(basic_request).should match_response(:body => Fixture.xml)
    end
  end

  describe "#head" do
    before do
      curb.expects(:http_head)
      curb.expects(:response_code).returns(200)
      curb.expects(:headers).returns(Hash.new)
      curb.expects(:body_str).returns(Fixture.xml)
    end

    it "should return a valid HTTPI::Response" do
      adapter.head(basic_request).should match_response(:body => Fixture.xml)
    end
  end

  describe "#put" do
    before do
      curb.expects(:http_put)
      curb.expects(:response_code).returns(200)
      curb.expects(:headers).returns(Hash.new)
      curb.expects(:body_str).returns(Fixture.xml)
    end

    it "should return a valid HTTPI::Response" do
      adapter.put(basic_request).should match_response(:body => Fixture.xml)
    end
  end

  describe "#delete" do
    before do
      curb.expects(:http_delete)
      curb.expects(:response_code).returns(200)
      curb.expects(:headers).returns(Hash.new)
      curb.expects(:body_str).returns("")
    end

    it "should return a valid HTTPI::Response" do
      adapter.delete(basic_request).should match_response(:body => "")
    end
  end

  describe "settings:" do
    before { curb.stubs(:http_get) }

    describe "url" do
      it "should always set the request url" do
        curb.expects(:url=).with(basic_request.url.to_s)
        adapter.get(basic_request)
      end
    end

    describe "proxy_url" do
      it "should not be set if not specified" do
        curb.expects(:proxy_url=).never
        adapter.get(basic_request)
      end

      it "should be set if specified" do
        request = basic_request { |request| request.proxy = "http://proxy.example.com" }
        
        curb.expects(:proxy_url=).with(request.proxy.to_s)
        adapter.get(request)
      end
    end

    describe "timeout" do
      it "should not be set if not specified" do
        curb.expects(:timeout=).never
        adapter.get(basic_request)
      end

      it "should be set if specified" do
        request = basic_request { |request| request.read_timeout = 30 }

        curb.expects(:timeout=).with(30)
        adapter.get(request)
      end
    end

    describe "connect_timeout" do
      it "should not be set if not specified" do
        curb.expects(:connect_timeout=).never
        adapter.get(basic_request)
      end

      it "should be set if specified" do
        request = basic_request { |request| request.open_timeout = 30 }

        curb.expects(:connect_timeout=).with(30)
        adapter.get(request)
      end
    end

    describe "headers" do
      it "should always be set" do
        curb.expects(:headers=).with({})
        adapter.get(basic_request)
      end
    end

    describe "verbose" do
      it "should always be set to false" do
        curb.expects(:verbose=).with(false)
        adapter.get(basic_request)
      end
    end

    describe "http_auth_types" do
      it "should be set to :basic for HTTP basic auth" do
        request = basic_request { |request| request.auth.basic "username", "password" }
        
        curb.expects(:http_auth_types=).with(:basic)
        adapter.get(request)
      end

      it "should be set to :digest for HTTP digest auth" do
        request = basic_request { |request| request.auth.digest "username", "password" }
        
        curb.expects(:http_auth_types=).with(:digest)
        adapter.get(request)
      end
    end

    describe "username and password" do
      it "should be set for HTTP basic auth" do
        request = basic_request { |request| request.auth.basic "username", "password" }
        
        curb.expects(:username=).with("username")
        curb.expects(:password=).with("password")
        adapter.get(request)
      end

      it "should be set for HTTP digest auth" do
        request = basic_request { |request| request.auth.digest "username", "password" }
        
        curb.expects(:username=).with("username")
        curb.expects(:password=).with("password")
        adapter.get(request)
      end
    end

    context "(for SSL client auth)" do
      let(:ssl_auth_request) do
        basic_request do |request|
          request.auth.ssl.cert_key_file = "spec/fixtures/client_key.pem"
          request.auth.ssl.cert_file = "spec/fixtures/client_cert.pem"
        end
      end

      it "cert_key, cert and ssl_verify_peer should be set" do
        curb.expects(:cert_key=).with(ssl_auth_request.auth.ssl.cert_key_file)
        curb.expects(:cert=).with(ssl_auth_request.auth.ssl.cert_file)
        curb.expects(:ssl_verify_peer=).with(true)
        
        adapter.get(ssl_auth_request)
      end

      it "should set the cacert if specified" do
        ssl_auth_request.auth.ssl.ca_cert_file = "spec/fixtures/client_cert.pem"
        curb.expects(:cacert=).with(ssl_auth_request.auth.ssl.ca_cert_file)
        
        adapter.get(ssl_auth_request)
      end
    end
  end

  def basic_request
    request = HTTPI::Request.new :url => "http://example.com"
    yield request if block_given?
    request
  end

end