reps_client 0.0.1 → 0.1.0

data/spec/fixtures/save_lead/broken_rule.xml

@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
+  <soap:Header>
+    <wsa:Action>http://www.mdiachieve.com/SaveLeadResponse</wsa:Action>
+    <wsa:MessageID>urn:uuid:03f5a9a6-7329-4971-b8dd-b51d34d01a29</wsa:MessageID>
+    <wsa:RelatesTo>urn:uuid:748aba76-8c71-4e58-b322-a8981ed17d37</wsa:RelatesTo>
+    <wsa:To>http://schemas.xmlsoap.org/ws/2004/08/addressing/role/anonymous</wsa:To>
+    <wsse:Security>
+      <wsu:Timestamp wsu:Id="Timestamp-7722e938-dc03-42b8-960a-600bd988a153">
+        <wsu:Created>2011-12-29T15:42:38Z</wsu:Created>
+        <wsu:Expires>2011-12-29T15:47:38Z</wsu:Expires>
+      </wsu:Timestamp>
+    </wsse:Security>
+  </soap:Header>
+  <soap:Body>
+    <SaveLeadResponse xmlns="http://www.mdiachieve.com/">
+      <SaveLeadResult>
+        <xs:schema xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" id="NewDataSet">
+          <xs:element name="NewDataSet" msdata:IsDataSet="true" msdata:MainDataTable="BrokenRules" msdata:UseCurrentLocale="true">
+            <xs:complexType>
+              <xs:choice minOccurs="0" maxOccurs="unbounded">
+                <xs:element name="BrokenRules">
+                  <xs:complexType>
+                    <xs:sequence>
+                      <xs:element name="Id" type="xs:int" minOccurs="0"/>
+                      <xs:element name="RuleBroken" type="xs:string" minOccurs="0"/>
+                    </xs:sequence>
+                  </xs:complexType>
+                </xs:element>
+              </xs:choice>
+            </xs:complexType>
+            <xs:unique name="Constraint1">
+              <xs:selector xpath=".//BrokenRules"/>
+              <xs:field xpath="Id"/>
+            </xs:unique>
+          </xs:element>
+        </xs:schema>
+        <diffgr:diffgram xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:diffgr="urn:schemas-microsoft-com:xml-diffgram-v1">
+          <DocumentElement xmlns="">
+            <BrokenRules>
+              <Id>1</Id>
+              <RuleBroken>Some rule</RuleBroken>
+            </BrokenRules>
+          </DocumentElement>
+        </diffgr:diffgram>
+      </SaveLeadResult>
+    </SaveLeadResponse>
+  </soap:Body>
+</soap:Envelope>

data/spec/fixtures/save_lead/success.xml

@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
+  <soap:Header>
+    <wsa:Action>http://www.mdiachieve.com/SaveLeadResponse</wsa:Action>
+    <wsa:MessageID>urn:uuid:03f5a9a6-7329-4971-b8dd-b51d34d01a29</wsa:MessageID>
+    <wsa:RelatesTo>urn:uuid:748aba76-8c71-4e58-b322-a8981ed17d37</wsa:RelatesTo>
+    <wsa:To>http://schemas.xmlsoap.org/ws/2004/08/addressing/role/anonymous</wsa:To>
+    <wsse:Security>
+      <wsu:Timestamp wsu:Id="Timestamp-7722e938-dc03-42b8-960a-600bd988a153">
+        <wsu:Created>2011-12-29T15:42:38Z</wsu:Created>
+        <wsu:Expires>2011-12-29T15:47:38Z</wsu:Expires>
+      </wsu:Timestamp>
+    </wsse:Security>
+  </soap:Header>
+  <soap:Body>
+    <SaveLeadResponse xmlns="http://www.mdiachieve.com/">
+      <SaveLeadResult>
+        <xs:schema xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" id="NewDataSet">
+          <xs:element name="NewDataSet" msdata:IsDataSet="true" msdata:MainDataTable="BrokenRules" msdata:UseCurrentLocale="true">
+            <xs:complexType>
+              <xs:choice minOccurs="0" maxOccurs="unbounded">
+                <xs:element name="BrokenRules">
+                  <xs:complexType>
+                    <xs:sequence>
+                      <xs:element name="Id" type="xs:int" minOccurs="0"/>
+                      <xs:element name="RuleBroken" type="xs:string" minOccurs="0"/>
+                    </xs:sequence>
+                  </xs:complexType>
+                </xs:element>
+              </xs:choice>
+            </xs:complexType>
+            <xs:unique name="Constraint1">
+              <xs:selector xpath=".//BrokenRules"/>
+              <xs:field xpath="Id"/>
+            </xs:unique>
+          </xs:element>
+        </xs:schema>
+        <diffgr:diffgram xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:diffgr="urn:schemas-microsoft-com:xml-diffgram-v1"/>
+      </SaveLeadResult>
+    </SaveLeadResponse>
+  </soap:Body>
+</soap:Envelope>

data/spec/reps_client/client_spec.rb

@@ -4,6 +4,10 @@ describe RepsClient::Client do
   subject { client }
 
   after { RepsClient.reset }
+  after do
+    Savon.log = nil
+    Savon.logger = nil
+  end
 
   let(:client) { RepsClient::Client.new(options) }
 
@@ -12,12 +16,17 @@ describe RepsClient::Client do
   let(:password) { 'secret' }
   let(:namespace) { 'http://foo.com/namespace' }
   let(:enterprise_key) { 'enterprise_key' }
+  let(:debug) { true }
+  let(:logger) { mock() }
+
   let(:options) do
     {:endpoint => endpoint,
      :username => username,
      :password => password,
      :namespace => namespace,
-     :enterprise_key => enterprise_key}
+     :enterprise_key => enterprise_key,
+     :debug => debug,
+     :logger => logger}
   end
 
   context 'with default configuration' do
@@ -28,6 +37,17 @@ describe RepsClient::Client do
     its(:username) { should be_nil }
     its(:password) { should be_nil }
     its(:enterprise_key) { should be_nil }
+    it { should_not be_debug }
+    its(:logger) { should be_an_instance_of(Logger) }
+
+    it 'should disable debug logging in savon' do
+      expect { subject }.to change { Savon.log? }.from(true).to(false)
+    end
+
+    it 'should set the default logger on savon' do
+      subject
+      Savon.logger.should == client.logger
+    end
   end
 
   context 'with non-default configuration' do
@@ -36,6 +56,17 @@ describe RepsClient::Client do
     its(:username) { should == username }
     its(:password) { should == password }
     its(:enterprise_key) { should == enterprise_key }
+    it { should be_debug }
+    its(:logger) { should == logger }
+
+    it 'should enable debug logging in savon' do
+      Savon.log = false
+      expect { subject }.to change { Savon.log? }.from(false).to(true)
+    end
+
+    it 'should set the logger on savon' do
+      expect { subject }.to change { Savon.logger }.to(logger)
+    end
 
     describe '#endpoint=' do
       subject { client.endpoint = new_endpoint }
@@ -192,6 +223,94 @@ describe RepsClient::Client do
       end
     end
 
+    describe '#debug=' do
+      subject { client.debug = new_debug }
+
+      context 'with nil' do
+        let(:new_debug) { nil }
+
+        context 'when there is a debug setting configured at the top level' do
+          let(:debug) { false }
+          before { RepsClient.configure { |config| config.debug = true } }
+
+          it 'should set the debug flag according to the configuration' do
+            expect { subject }.to change { client.debug? }.from(false).to(true)
+          end
+
+          it 'should enable debug logging in savon' do
+            expect { subject }.to change { Savon.log? }.from(client.debug).to(true)
+          end
+        end
+
+        context 'when there is no debug setting configured at the top level' do
+          it 'should set the debug flag to the default' do
+            expect { subject }.to change { client.debug? }.from(true).to(false)
+          end
+
+          it 'should disable debug logging in savon' do
+            expect { subject }.to change { Savon.log? }.from(client.debug).to(false)
+          end
+        end
+      end
+
+      context 'with new setting' do
+        let(:debug) { false }
+        let(:new_debug) { true }
+
+        it 'should set the debug flag' do
+          expect { subject }.to change { client.debug? }.from(false).to(true)
+        end
+
+        it 'should enable debug logging in savon' do
+          expect { subject }.to change { Savon.log? }.from(client.debug).to(true)
+        end
+      end
+    end
+
+    describe "#logger=" do
+      subject { client.logger = new_logger }
+
+      context 'with nil' do
+        let(:new_logger) { nil }
+        let(:top_logger) { mock }
+        context 'when there is a logger configured at the top level' do
+          before { RepsClient.configure { |config| config.logger = top_logger } }
+
+          it 'should set the logger based on the configuration' do
+            expect { subject }.to change { client.logger }.from(logger).to(top_logger)
+          end
+
+          it 'should set the savon logger based on the configuration' do
+            expect { subject }.to change { Savon.logger }.from(client.logger).to(top_logger)
+          end
+        end
+
+        context 'when there is no logger configured at the top level' do
+          it 'should set the logger to the default' do
+            subject
+            client.logger.should be_an_instance_of(Logger)
+          end
+
+          it 'should set the savon logger to the default' do
+            subject
+            Savon.logger.should == client.logger
+          end
+        end
+      end
+
+      context 'with custom logger' do
+        let(:new_logger) { mock() }
+
+        it 'should set the logger' do
+          expect { subject }.to change { client.logger }.from(logger).to(new_logger)
+        end
+
+        it 'should set the savon logger' do
+          expect { subject }.to change { Savon.logger }.to(new_logger)
+        end
+      end
+    end
+
     describe '#soap_client' do
       subject { client.soap_client }
 
@@ -211,6 +330,8 @@ describe RepsClient::Client do
 
         its(:username) { should == username }
         its(:password) { should == password }
+        it { should be_timestamp }
+        its(:created_at) { should be_utc }
       end
     end
   end

data/spec/reps_client/community_spec.rb

@@ -74,14 +74,20 @@ describe 'community methods mixin' do
     subject { communities }
     let(:communities) { test_object.get_communities }
 
+    before { savon.stubs(soap_action).returns(fixture_name) }
+    let(:soap_action) { 'GetCommunities' }
+    let(:fixture_name) { nil }
+
     context 'when there is one community' do
-      before { savon.stubs('GetCommunities').returns(:single_community) }
+      let(:fixture_name) { :single_community }
 
       it 'should call the remote service with the correct enterprise key' do
-        savon.expects('GetCommunities').with(:enterprise_key => enterprise_key).returns(:single_community)
+        savon.expects(soap_action).with(:enterprise_key => enterprise_key).returns(fixture_name)
         subject
       end
 
+      it_should_behave_like 'a ws-addressing header generator'
+
       it { should be }
       it { should have(1).community }
 
@@ -99,13 +105,15 @@ describe 'community methods mixin' do
     end
 
     context 'when there are multiple communities' do
-      before { savon.stubs('GetCommunities').returns(:multiple_communities) }
+      let(:fixture_name) { :multiple_communities }
 
       it 'should call the remote service with the correct enterprise key' do
-        savon.expects('GetCommunities').with(:enterprise_key => enterprise_key).returns(:multiple_communities)
+        savon.expects(soap_action).with(:enterprise_key => enterprise_key).returns(:multiple_communities)
         subject
       end
 
+      it_should_behave_like 'a ws-addressing header generator'
+
       it { should be }
       it { should have(2).communities }
 

data/spec/reps_client/configuration_spec.rb

@@ -14,6 +14,8 @@ describe RepsClient::Configuration do
   let(:password) { 'configured password' }
   let(:namespace) { 'http://configured.namespace.com' }
   let(:enterprise_key) { 'my_enterprise_key' }
+  let(:debug) { true }
+  let(:logger) { mock() }
 
   after { test_module.reset }
 
@@ -25,6 +27,9 @@ describe RepsClient::Configuration do
     its(:username) { should_not be }
     its(:password) { should_not be }
     its(:enterprise_key) { should_not be }
+    its(:debug) { should == 'false' }
+    it { should_not be_debug }
+    its(:logger) { should be_an_instance_of Logger }
   end
 
   describe '.configure' do
@@ -38,6 +43,8 @@ describe RepsClient::Configuration do
           config.password = password
           config.namespace = namespace
           config.enterprise_key = enterprise_key
+          config.debug = debug
+          config.logger = logger
         end
       end
 
@@ -48,6 +55,9 @@ describe RepsClient::Configuration do
       its(:password) { should == password }
       its(:namespace) { should == namespace }
       its(:enterprise_key) { should == enterprise_key }
+      its(:debug) { should == 'true' }
+      it { should be_debug }
+      its(:logger) { should == logger }
     end
 
     context 'with partial configuration' do
@@ -56,6 +66,7 @@ describe RepsClient::Configuration do
           config.username = username
           config.password = password
           config.enterprise_key = enterprise_key
+          config.debug = true
         end
       end
 
@@ -66,6 +77,9 @@ describe RepsClient::Configuration do
       its(:username) { should == username }
       its(:password) { should == password }
       its(:enterprise_key) { should == enterprise_key }
+      its(:debug) { should == 'true' }
+      it { should be_debug }
+      its(:logger) { should be_an_instance_of Logger }
     end
   end
 
@@ -79,6 +93,8 @@ describe RepsClient::Configuration do
         config.password = password
         config.namespace = namespace
         config.enterprise_key = enterprise_key
+        config.debug = debug
+        config.logger = logger
       end
     end
 
@@ -103,6 +119,15 @@ describe RepsClient::Configuration do
     it 'should clear the enterprise key' do
       expect { subject }.to change { test_module.enterprise_key }.from(enterprise_key).to(nil)
     end
+
+    it 'should reset the debug flag' do
+      expect { subject }.to change { test_module.debug? }.from(true).to(false)
+    end
+
+    it 'should reset the logger' do
+      subject
+      test_module.logger.should be_an_instance_of(Logger)
+    end
   end
 
   describe '.options' do
@@ -113,6 +138,8 @@ describe RepsClient::Configuration do
         config.password = password
         config.namespace = namespace
         config.enterprise_key = enterprise_key
+        config.debug = debug
+        config.logger = logger
       end
     end
 
@@ -128,5 +155,9 @@ describe RepsClient::Configuration do
     its([:password]) { should == password }
     it { should have_key(:enterprise_key) }
     its([:enterprise_key]) { should == enterprise_key }
+    it { should have_key(:debug) }
+    its([:debug]) { should be_true }
+    it { should have_key(:logger) }
+    its([:logger]) { should == logger }
   end
 end

data/spec/reps_client/lead_spec.rb

@@ -775,13 +775,16 @@ describe 'lead methods mixin' do
 
     let(:prospect) { nil }
 
-    before { savon.stubs('SaveLead').returns(nil) }
+    let(:soap_action) { 'SaveLead' }
+    let(:fixture_name) { :success }
+
+    before { savon.stubs(soap_action).returns(fixture_name) }
 
     context 'without a community id' do
       let(:community_id) { nil }
 
       it 'should raise an ArgumentError without calling the remote service' do
-        savon.expects('SaveLead').never
+        savon.expects(soap_action).never
         expect { subject }.to raise_error(ArgumentError)
       end
     end
@@ -790,7 +793,7 @@ describe 'lead methods mixin' do
       let(:community_id) { 'foo' }
 
       it 'should raise an ArgumentError without calling the remote service' do
-        savon.expects('SaveLead').never
+        savon.expects(soap_action).never
         expect { subject }.to raise_error(ArgumentError)
       end
     end
@@ -799,7 +802,7 @@ describe 'lead methods mixin' do
       let(:contact) { nil }
 
       it 'should raise an ArgumentError without calling the remote service' do
-        savon.expects('SaveLead').never
+        savon.expects(soap_action).never
         expect { subject }.to raise_error(ArgumentError)
       end
     end
@@ -808,7 +811,7 @@ describe 'lead methods mixin' do
       let(:contact_attributes) { Hash.new }
 
       it 'should raise an ArgumentError without calling the remote service' do
-        savon.expects('SaveLead').never
+        savon.expects(soap_action).never
         expect { subject }.to raise_error(ArgumentError)
       end
     end
@@ -822,28 +825,38 @@ describe 'lead methods mixin' do
         end
 
         it 'should call the remote service with the correct enterprise key' do
-          savon.expects('SaveLead').with(has_entry(:enterprise_key => enterprise_key)).returns(nil)
+          savon.expects(soap_action).with(has_entry(:enterprise_key => enterprise_key)).returns(fixture_name)
           subject
         end
 
         it 'should call the remote service with the correct community id' do
-          savon.expects('SaveLead').with(has_entry(:community_id => community_id)).returns(nil)
+          savon.expects(soap_action).with(has_entry(:community_id => community_id)).returns(fixture_name)
           subject
         end
 
         it 'should call the remote service with the correct contact parameters' do
-          savon.expects('SaveLead').with(has_entry(:new_contact => contact.to_soap_hash)).returns(nil)
+          savon.expects(soap_action).with(has_entry(:new_contact => contact.to_soap_hash)).returns(fixture_name)
           subject
         end
 
         it 'should call the remote service with the correct parameter order' do
-          savon.expects('SaveLead').with(has_entry(:order! => [:enterprise_key,:community_id,:new_contact])).returns(nil)
+          savon.expects(soap_action).with(has_entry(:order! => [:enterprise_key,:community_id,:new_contact])).returns(fixture_name)
           subject
         end
 
+        it_should_behave_like 'a ws-addressing header generator'
+
         it_should_behave_like 'a fault handler', 'SaveLead'
 
-        # TODO: assert result
+        context 'when result is successful' do
+          it { should be_true }
+        end
+
+        context 'when result is not successful' do
+          let(:fixture_name) { :broken_rule }
+
+          it { should be_false }
+        end
       end
 
       context 'with a prospect' do
@@ -853,7 +866,7 @@ describe 'lead methods mixin' do
           let(:prospect_attributes) { {:first_name => 'a' * 200} }
 
           it 'should raise an ArgumentError without calling the remote service' do
-            savon.expects('SaveLead').never
+            savon.expects(soap_action).never
             expect { subject }.to raise_error(ArgumentError)
           end
         end
@@ -872,33 +885,43 @@ describe 'lead methods mixin' do
           end
 
           it 'should call the remote service with the correct enterprise key' do
-            savon.expects('SaveLead').with(has_entry(:enterprise_key => enterprise_key)).returns(nil)
+            savon.expects(soap_action).with(has_entry(:enterprise_key => enterprise_key)).returns(fixture_name)
             subject
           end
 
           it 'should call the remote service with the correct community id' do
-            savon.expects('SaveLead').with(has_entry(:community_id => community_id)).returns(nil)
+            savon.expects(soap_action).with(has_entry(:community_id => community_id)).returns(fixture_name)
             subject
           end
 
           it 'should call the remote service with the correct contact parameters' do
-            savon.expects('SaveLead').with(has_entry(:new_contact => contact.to_soap_hash)).returns(nil)
+            savon.expects(soap_action).with(has_entry(:new_contact => contact.to_soap_hash)).returns(fixture_name)
             subject
           end
 
           it 'should call the remote service with the correct prospect parameters' do
-            savon.expects('SaveLead').with(has_entry(:new_prospect => prospect.to_soap_hash)).returns(nil)
+            savon.expects(soap_action).with(has_entry(:new_prospect => prospect.to_soap_hash)).returns(fixture_name)
             subject
           end
 
           it 'should call the remote service with the correct parameter order' do
-            savon.expects('SaveLead').with(has_entry(:order! => [:enterprise_key,:community_id,:new_contact,:new_prospect])).returns(nil)
+            savon.expects(soap_action).with(has_entry(:order! => [:enterprise_key,:community_id,:new_contact,:new_prospect])).returns(fixture_name)
             subject
           end
 
+          it_should_behave_like 'a ws-addressing header generator'
+
           it_should_behave_like 'a fault handler', 'SaveLead'
 
-          # TODO: assert result
+          context 'when result is successful' do
+            it { should be_true }
+          end
+
+          context 'when result is not successful' do
+            let(:fixture_name) { :broken_rule }
+
+            it { should be_false }
+          end
         end
       end
     end

data/spec/reps_client/pick_list_spec.rb

@@ -150,7 +150,8 @@ describe 'pick list methods mixin' do
     subject { pick_lists }
     let(:pick_lists) { test_object.get_pick_lists(community_id) }
 
-    before { savon.stubs('GetPickLists').returns(fixture_name) }
+    before { savon.stubs(soap_action).returns(fixture_name) }
+    let(:soap_action) { 'GetPickLists' }
     let(:fixture_name) { nil }
 
     context 'with a community id' do

data/spec/spec_helper.rb

@@ -7,9 +7,6 @@ require 'savon_spec'
 Dir[File.join(File.dirname(__FILE__), 'support', '*.rb')].each { |f| require f }
 
 Savon::Spec::Fixture.path = File.expand_path("../fixtures", __FILE__)
-Savon.configure do |config|
-  config.log = false
-end
 
 RSpec.configure do |config|
   config.include FakeFS::SpecHelpers

data/spec/support/pick_list_shared_examples.rb

@@ -1,16 +1,18 @@
 shared_examples_for 'a pick list requester' do
   it 'should include the enterprise key when requesting pick lists from the remote service' do
-    savon.expects('GetPickLists').with(has_entry(:enterprise_key => enterprise_key)).returns(fixture_name)
+    savon.expects(soap_action).with(has_entry(:enterprise_key => enterprise_key)).returns(fixture_name)
     subject
   end
 
   it 'should include the community id when requesting pick lists from the remote service' do
-    savon.expects('GetPickLists').with(has_entry(:community_id => community_id)).returns(fixture_name)
+    savon.expects(soap_action).with(has_entry(:community_id => community_id)).returns(fixture_name)
     subject
   end
 
   it 'should order the parameters correctly when requesting pick lists from the remote service' do
-    savon.expects('GetPickLists').with(has_entry(:order! => [:enterprise_key,:community_id])).returns(fixture_name)
+    savon.expects(soap_action).with(has_entry(:order! => [:enterprise_key,:community_id])).returns(fixture_name)
     subject
   end
+
+  it_should_behave_like 'a ws-addressing header generator'
 end

data/spec/support/ws_addressing_shared_examples.rb

@@ -0,0 +1,33 @@
+# TODO: refactor these examples when savon/savon_spec v1.0 is released
+shared_examples_for 'a ws-addressing header generator' do
+  let(:soap_namespaces) { Hash.new }
+  before { Savon::SOAP::XML.any_instance.stubs(:namespaces).returns(soap_namespaces) }
+
+  it 'should define the wsa namespace on the soap envelope' do
+    expect { subject }.to change { soap_namespaces['xmlns:wsa'] }.to('http://schemas.xmlsoap.org/ws/2004/08/addressing')
+  end
+
+  it 'should set the wsa:Action header' do
+    qualified_soap_action = URI.join(test_object.namespace, soap_action).to_s
+    Savon::SOAP::XML.any_instance.expects(:header=).with(has_entry('wsa:Action' => qualified_soap_action))
+    subject
+  end
+
+  it 'should set the wsa:MessageID header to a generated UUID' do
+    message_id = 'e4e5a596-6514-4c25-829c-98e136e0794e'
+    UUIDTools::UUID.expects(:random_create).returns(UUIDTools::UUID.parse(message_id))
+    Savon::SOAP::XML.any_instance.expects(:header=).with(has_entry('wsa:MessageID' => "urn:uuid:#{message_id}"))
+    subject
+  end
+
+  it 'should set the wsa:ReplyTo address' do
+    reply_to_address = {'wsa:Address' => 'http://schemas.xmlsoap.org/ws/2004/08/addressing/role/anonymous'}
+    Savon::SOAP::XML.any_instance.expects(:header=).with(has_entry('wsa:ReplyTo' => reply_to_address))
+    subject
+  end
+
+  it 'should set the wsa:To header' do
+    Savon::SOAP::XML.any_instance.expects(:header=).with(has_entry('wsa:To' => test_object.endpoint))
+    subject
+  end
+end