#-------------------------------------------------------------------------
# # Copyright (c) Microsoft and contributors. All rights reserved.
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#   http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#--------------------------------------------------------------------------
require 'test_helper'
require 'azure/core/http/http_request'

describe Azure::Core::Http::HttpRequest do
  describe ' default_headers ' do
    subject do 
      Azure::Core::Http::HttpRequest.new(:get, URI('/'), nil, 'Thu, 04 Oct 2012 06:38:27 GMT')
    end

    it 'sets the x-ms-date header to the current_time' do
      subject.headers['x-ms-date'] = 'Thu, 04 Oct 2012 06:38:27 GMT'
    end

    it 'sets the x-ms-version header to the current API version' do
      subject.headers['x-ms-version'] = '2011-08-18'
    end

    it 'sets the DataServiceVersion header to the current API version' do
      subject.headers['DataServiceVersion'] = '1.0;NetFx'
    end

    it 'sets the MaxDataServiceVersion header to the current max` API version' do
      subject.headers['MaxDataServiceVersion'] = '2.0;NetFx'
    end

    let :http do
      mock = Minitest::Mock.new
      mock.expect(:use_ssl=, true, [true])
      mock.expect(:verify_mode=, OpenSSL::SSL::VERIFY_PEER, [1])
      mock.expect(:request, Net::HTTPResponse.new(1.1, 200, '<body/>'), [Net::HTTP::Get])
      mock
    end

    describe 'when not using a ca_file' do
      subject do
        Azure::Core::Http::HttpRequest.new(:get, URI('https://manage.windowsazure.com'), nil, 'Thu, 04 Oct 2012 06:38:27 GMT')
      end

      it 'should set the ca_file on the http request' do
        Net::HTTP.stub(:new, http) do
          subject.call
        end
        http.verify
      end
    end

    describe 'when using a ca_file' do
      before do
        Azure.config.ca_file = './blah.pem'
      end

      after do
        Azure.config.ca_file = nil
      end

      subject do
        Azure::Core::Http::HttpRequest.new(:get, URI('https://manage.windowsazure.com'), nil, 'Thu, 04 Oct 2012 06:38:27 GMT')
      end

      let :ca_http do
        http.expect(:ca_file=, Azure.config.ca_file, [String])
      end

      it 'should set the ca_file on the http request' do
        Net::HTTP.stub(:new, ca_http) do
          subject.call
        end
        ca_http.verify
      end

    end

    describe ' when passed a body ' do
      subject do 
        Azure::Core::Http::HttpRequest.new(:get, URI('/'), '<body/>')
      end

      it 'sets the default Content-Type header' do
        subject.headers['Content-Type'].must_equal 'application/atom+xml; charset=utf-8'
      end

      it 'sets the Content-Length header' do
        subject.headers['Content-Length'].must_equal '7'
      end

      it 'sets the Content-MD5 header to a Base64 encoded representation of the MD5 hash of the body' do
        subject.headers['Content-MD5'].must_equal 'PNeJy7qyzV4XUoBBHkVu0g=='
      end
    end

    describe ' when the body is nil ' do
      it 'leaves the Content-Type, Content-Length, and Content-MD5 headers blank' do
        subject.headers['Content-Type'].must_equal ''
        subject.headers['Content-Length'].must_equal '0'
        subject.headers['Content-MD5'].must_be_nil
      end
    end
  end
end