regenersis-savon 1.0.0

data/spec/savon/core_ext/object_spec.rb

@@ -0,0 +1,19 @@
+require "spec_helper"
+
+describe Object do
+
+  describe "blank?" do
+    it "returns true for Objects perceived to be blank" do
+      ["", false, nil, [], {}].each do |object|
+        object.should be_blank
+      end
+    end
+
+    it "returns false for every other Object" do
+      ["!blank", true, [:a], {:a => "b"}].each do |object|
+        object.should_not be_blank
+      end
+    end
+  end
+
+end

data/spec/savon/core_ext/string_spec.rb

@@ -0,0 +1,37 @@
+require "spec_helper"
+
+describe String do
+
+  describe "snakecase" do
+    it "lowercases one word CamelCase" do
+      "Merb".snakecase.should == "merb"
+    end
+
+    it "makes one underscore snakecase two word CamelCase" do
+      "MerbCore".snakecase.should == "merb_core"
+    end
+
+    it "handles CamelCase with more than 2 words" do
+      "SoYouWantContributeToMerbCore".snakecase.should == "so_you_want_contribute_to_merb_core"
+    end
+
+    it "handles CamelCase with more than 2 capital letter in a row" do
+      "CNN".snakecase.should == "cnn"
+      "CNNNews".snakecase.should == "cnn_news"
+      "HeadlineCNNNews".snakecase.should == "headline_cnn_news"
+    end
+
+    it "does NOT change one word lowercase" do
+      "merb".snakecase.should == "merb"
+    end
+
+    it "leaves snake_case as is" do
+      "merb_core".snakecase.should == "merb_core"
+    end
+
+    it "converts period characters to underscores" do
+      "User.GetEmail".snakecase.should == "user_get_email"
+    end
+  end
+
+end

data/spec/savon/http/error_spec.rb

@@ -0,0 +1,52 @@
+require "spec_helper"
+
+describe Savon::HTTP::Error do
+  let(:http_error) { Savon::HTTP::Error.new new_response(:code => 404, :body => "Not Found") }
+  let(:no_error) { Savon::HTTP::Error.new new_response }
+
+  it "should be a Savon::Error" do
+    Savon::HTTP::Error.should < Savon::Error
+  end
+
+  describe "#http" do
+    it "should return the HTTPI::Response" do
+      http_error.http.should be_an(HTTPI::Response)
+    end
+  end
+
+  describe "#present?" do
+    it "should return true if there was an HTTP error" do
+      http_error.should be_present
+    end
+
+    it "should return false unless there was an HTTP error" do
+      no_error.should_not be_present
+    end
+  end
+
+  [:message, :to_s].each do |method|
+    describe "##{method}" do
+      it "should return an empty String unless an HTTP error is present" do
+        no_error.send(method).should == ""
+      end
+
+      it "should return the HTTP error message" do
+        http_error.send(method).should == "HTTP error (404): Not Found"
+      end
+    end
+  end
+
+  describe "#to_hash" do
+    it "should return the HTTP response details as a Hash" do
+      http_error.to_hash.should == { :code => 404, :headers => {}, :body => "Not Found" }
+    end
+  end
+
+  def new_response(options = {})
+    defaults = { :code => 200, :headers => {}, :body => Fixture.response(:authentication) }
+    response = defaults.merge options
+    
+    HTTPI::Response.new response[:code], response[:headers], response[:body]
+  end
+
+end

data/spec/savon/model_spec.rb

@@ -0,0 +1,194 @@
+require "spec_helper"
+
+describe Savon::Model do
+
+  let(:model) do
+    Class.new { extend Savon::Model }
+  end
+
+  describe ":model_soap_response hook" do
+
+    before(:all) do
+      model.actions :get_user, "GetAllUsers"
+    end
+
+    after do
+      Savon.hooks.reject! :test_hook
+    end
+
+    it "can be used for pre-processing SOAP responses" do
+      Savon.hooks.define(:test_hook, :model_soap_response) do |response|
+        "hello #{response}"
+      end
+
+      model.client.stubs(:request).returns("world")  #
+      model.get_user.should == "hello world"
+    end
+
+  end
+
+  describe ".client" do
+
+    it "passes a given block to a new Savon::Client"
+
+    it "memoizes the Savon::Client" do
+      model.client.should equal(model.client)
+    end
+
+  end
+
+  describe ".endpoint" do
+
+    it "sets the SOAP endpoint" do
+      model.endpoint "http://example.com"
+      model.client.wsdl.endpoint.should == "http://example.com"
+    end
+
+  end
+
+  describe ".namespace" do
+
+    it "sets the target namespace" do
+      model.namespace "http://v1.example.com"
+      model.client.wsdl.namespace.should == "http://v1.example.com"
+    end
+
+  end
+
+  describe ".document" do
+
+    it "sets the WSDL document" do
+      model.document "http://example.com/?wsdl"
+      model.client.wsdl.document.should == "http://example.com/?wsdl"
+    end
+
+  end
+
+  describe ".headers" do
+
+    it "sets the HTTP headers" do
+      model.headers("Accept-Charset" => "utf-8")
+      model.client.http.headers.should == { "Accept-Charset" => "utf-8" }
+    end
+
+  end
+
+  describe ".basic_auth" do
+
+    it "sets HTTP Basic auth credentials" do
+      model.basic_auth "login", "password"
+      model.client.http.auth.basic.should == ["login", "password"]
+    end
+
+  end
+
+  describe ".wsse_auth" do
+
+    it "sets WSSE auth credentials" do
+      model.wsse_auth "login", "password", :digest
+
+      model.client.wsse.username.should == "login"
+      model.client.wsse.password.should == "password"
+      model.client.wsse.should be_digest
+    end
+
+  end
+
+  describe ".actions" do
+
+    before(:all) do
+      model.actions :get_user, "GetAllUsers"
+    end
+
+    it "defines class methods each action" do
+      model.should respond_to(:get_user, :get_all_users)
+    end
+
+    it "defines instance methods each action" do
+      model.new.should respond_to(:get_user, :get_all_users)
+    end
+
+    context "(class-level)" do
+
+      it "executes SOAP requests with a given body" do
+        model.client.expects(:request).with(:wsdl, :get_user, :body => { :id => 1 })
+        model.get_user :id => 1
+      end
+
+      it "accepts and passes Strings for action names" do
+        model.client.expects(:request).with(:wsdl, "GetAllUsers", :body => { :id => 1 })
+        model.get_all_users :id => 1
+      end
+    end
+
+    context "(instance-level)" do
+
+      it "delegates to the corresponding class method" do
+        model.expects(:get_all_users).with(:active => true)
+        model.new.get_all_users :active => true
+      end
+
+    end
+
+  end
+
+  describe "#client" do
+
+    it "returns the class-level Savon::Client" do
+      model.new.client.should == model.client
+    end
+
+  end
+
+  describe "overwriting action methods" do
+
+    context "(class-level)" do
+
+      let(:supermodel) do
+        supermodel = model.dup
+        supermodel.actions :get_user
+
+        def supermodel.get_user(body = nil, &block)
+          p "super"
+          super
+        end
+
+        supermodel
+      end
+
+      it "works" do
+        supermodel.client.expects(:request).with(:wsdl, :get_user, :body => { :id => 1 })
+        supermodel.expects(:p).with("super")  # stupid, but works
+
+        supermodel.get_user :id => 1
+      end
+
+    end
+
+    context "(instance-level)" do
+
+      let(:supermodel) do
+        supermodel = model.dup
+        supermodel.actions :get_user
+        supermodel = supermodel.new
+
+        def supermodel.get_user(body = nil, &block)
+          p "super"
+          super
+        end
+
+        supermodel
+      end
+
+      it "works" do
+        supermodel.client.expects(:request).with(:wsdl, :get_user, :body => { :id => 1 })
+        supermodel.expects(:p).with("super")  # stupid, but works
+
+        supermodel.get_user :id => 1
+      end
+
+    end
+
+  end
+
+end

data/spec/savon/savon_spec.rb

@@ -0,0 +1,85 @@
+require "spec_helper"
+
+describe Savon do
+
+  describe ".configure" do
+    around do |example|
+      Savon.reset_config!
+      example.run
+      Savon.reset_config!
+      Savon.log = false  # disable logging
+    end
+
+    describe "log" do
+      it "should default to true" do
+        Savon.log?.should be_true
+      end
+
+      it "should set whether to log HTTP requests" do
+        Savon.configure { |config| config.log = false }
+        Savon.log?.should be_false
+      end
+    end
+
+    describe "logger" do
+      it "should set the logger to use" do
+        MyLogger = Class.new
+        Savon.configure { |config| config.logger = MyLogger }
+        Savon.logger.should == MyLogger
+      end
+
+      it "should default to Logger writing to STDOUT" do
+        Savon.logger.should be_a(Logger)
+      end
+    end
+
+    describe "log_level" do
+      it "should default to :debug" do
+        Savon.log_level.should == :debug
+      end
+
+      it "should set the log level to use" do
+        Savon.configure { |config| config.log_level = :info }
+        Savon.log_level.should == :info
+      end
+    end
+
+    describe "raise_errors" do
+      it "should default to true" do
+        Savon.raise_errors?.should be_true
+      end
+
+      it "should not raise errors when disabled" do
+        Savon.raise_errors = false
+        Savon.raise_errors?.should be_false
+      end
+    end
+
+    describe "soap_version" do
+      it "should default to SOAP 1.1" do
+        Savon.soap_version.should == 1
+      end
+
+      it "should return 2 if set to SOAP 1.2" do
+        Savon.soap_version = 2
+        Savon.soap_version.should == 2
+      end
+
+      it "should raise an ArgumentError in case of an invalid version" do
+        lambda { Savon.soap_version = 3 }.should raise_error(ArgumentError)
+      end
+    end
+
+    describe "strip_namespaces" do
+      it "should default to true" do
+        Savon.strip_namespaces?.should == true
+      end
+
+      it "should not strip namespaces when set to false" do
+        Savon.strip_namespaces = false
+        Savon.strip_namespaces?.should == false
+      end
+    end
+  end
+
+end

data/spec/savon/soap/fault_spec.rb

@@ -0,0 +1,89 @@
+require "spec_helper"
+
+describe Savon::SOAP::Fault do
+  let(:soap_fault) { Savon::SOAP::Fault.new new_response(:body => Fixture.response(:soap_fault)) }
+  let(:soap_fault2) { Savon::SOAP::Fault.new new_response(:body => Fixture.response(:soap_fault12)) }
+  let(:another_soap_fault) { Savon::SOAP::Fault.new new_response(:body => Fixture.response(:another_soap_fault)) }
+  let(:no_fault) { Savon::SOAP::Fault.new new_response }
+
+  it "should be a Savon::Error" do
+    Savon::SOAP::Fault.should < Savon::Error
+  end
+
+  describe "#http" do
+    it "should return the HTTPI::Response" do
+      soap_fault.http.should be_an(HTTPI::Response)
+    end
+  end
+
+  describe "#present?" do
+    it "should return true if the HTTP response contains a SOAP 1.1 fault" do
+      soap_fault.should be_present
+    end
+
+    it "should return true if the HTTP response contains a SOAP 1.2 fault" do
+      soap_fault2.should be_present
+    end
+
+    it "should return true if the HTTP response contains a SOAP fault with different namespaces" do
+      another_soap_fault.should be_present
+    end
+
+    it "should return false unless the HTTP response contains a SOAP fault" do
+      no_fault.should_not be_present
+    end
+  end
+
+  [:message, :to_s].each do |method|
+    describe "##{method}" do
+      it "should return an empty String unless a SOAP fault is present" do
+        no_fault.send(method).should == ""
+      end
+
+      it "should return a SOAP 1.1 fault message" do
+        soap_fault.send(method).should == "(soap:Server) Fault occurred while processing."
+      end
+
+      it "should return a SOAP 1.2 fault message" do
+        soap_fault2.send(method).should == "(soap:Sender) Sender Timeout"
+      end
+
+      it "should return a SOAP fault message (with different namespaces)" do
+        another_soap_fault.send(method).should == "(ERR_NO_SESSION) Wrong session message"
+      end
+    end
+  end
+
+  describe "#to_hash" do
+    it "should return the SOAP response as a Hash unless a SOAP fault is present" do
+      no_fault.to_hash[:authenticate_response][:return][:success].should be_true
+    end
+
+    it "should return a SOAP 1.1 fault as a Hash" do
+      soap_fault.to_hash.should == {
+        :fault => {
+          :faultstring => "Fault occurred while processing.",
+          :faultcode   => "soap:Server"
+        }
+      }
+    end
+
+    it "should return a SOAP 1.2 fault as a Hash" do
+      soap_fault2.to_hash.should == {
+        :fault => {
+          :detail => { :max_time => "P5M" },
+          :reason => { :text => "Sender Timeout" },
+          :code   => { :value => "soap:Sender", :subcode => { :value => "m:MessageTimeout" } }
+        }
+      }
+    end
+  end
+
+  def new_response(options = {})
+    defaults = { :code => 500, :headers => {}, :body => Fixture.response(:authentication) }
+    response = defaults.merge options
+    
+    HTTPI::Response.new response[:code], response[:headers], response[:body]
+  end
+
+end