require "spec_helper"

describe Savon::Response do
  before { @response = Savon::Response.new http_response_mock }

  it "defaults to raises both Savon::SOAPFault and Savon::HTTPError" do
    Savon::Response.raise_errors?.should be_true
  end

  it "has both getter and setter for whether to raise errors (global setting)" do
    Savon::Response.raise_errors = false
    Savon::Response.raise_errors?.should == false
    Savon::Response.raise_errors = true
  end

  describe "initialize" do
    it "expects a Net::HTTPResponse" do
      Savon::Response.new http_response_mock
    end

    it "raises a Savon::SOAPFault in case of a SOAP fault" do
      lambda { savon_response_with :soap_fault }.should raise_error Savon::SOAPFault
    end
 
    it "does not raise a Savon::SOAPFault in case the default is turned off" do
      Savon::Response.raise_errors = false
      savon_response_with :soap_fault
      Savon::Response.raise_errors = true
    end
 
    it "raises a Savon::HTTPError in case of an HTTP error" do
      lambda { savon_response_with :http_error }.should raise_error Savon::HTTPError
    end

    it "does not raise a Savon::HTTPError in case the default is turned off" do
      Savon::Response.raise_errors = false
      savon_response_with :http_error
      Savon::Response.raise_errors = true
    end
  end

  describe "soap_fault?" do
    before { Savon::Response.raise_errors = false }

    it "does not return true in case the response seems to be ok" do
      @response.soap_fault?.should_not be_true
    end

    it "returns true in case of a SOAP fault" do
      savon_response_with(:soap_fault).soap_fault?.should be_true
    end

    after { Savon::Response.raise_errors = true }
  end

  describe "soap_fault" do
    before { Savon::Response.raise_errors = false }

    it "returns the SOAP fault message in case of a SOAP fault" do
      savon_response_with(:soap_fault).soap_fault.
        should == "(soap:Server) Fault occurred while processing."
    end

    after { Savon::Response.raise_errors = true }
  end

  describe "http_error?" do
    before { Savon::Response.raise_errors = false }

    it "does not return true in case the response seems to be ok" do
      @response.http_error?.should_not be_true
    end

    it "returns true in case of an HTTP error" do
      savon_response_with(:http_error).http_error?.should be_true
    end

    after { Savon::Response.raise_errors = true }
  end

  describe "http_error" do
    before { Savon::Response.raise_errors = false }

    it "returns the HTTP error message in case of an HTTP error" do
      savon_response_with(:http_error).http_error.should == "Not found (404)"
    end

    after { Savon::Response.raise_errors = true }
  end

  it "can return the SOAP response body as a Hash" do
    @response.to_hash.should == UserFixture.response_hash
  end

  it "can return the raw SOAP response body" do
    @response.to_xml.should == UserFixture.user_response
    @response.to_s.should == UserFixture.user_response
  end

  def savon_response_with(error_type)
    mock = case error_type
      when :soap_fault then http_response_mock(200, UserFixture.soap_fault)
      when :http_error then http_response_mock(404, "", "Not found")
    end
    Savon::Response.new mock
  end

  def http_response_mock(code = 200, body = nil, message = "OK")
    body ||= UserFixture.user_response
    mock = mock "Net::HTTPResponse"
    mock.stubs :code => code.to_s, :message => message,
               :content_type => "text/html", :body => body
    mock
  end

end