agent_xmpp 0.1.0

data/test/cases/test_roster_management.rb

@@ -0,0 +1,214 @@
+##############################################################################################################
+require 'test_helper'
+
+##############################################################################################################
+class TestRosterManagement < Test::Unit::TestCase
+
+  #.........................................................................................................
+  def setup
+    @troy = AgentXmpp::Xmpp::Jid.new('troy@nowhere.com')
+    @dev = AgentXmpp::Xmpp::Jid.new('dev@nowhere.com')
+  end
+    
+  #.........................................................................................................
+  def test_receive_roster_item(client)
+    delegate = client.new_delegate
+    delegate.on_roster_item_method.should_not be_called
+    delegate.on_all_roster_items_method.should_not be_called
+    yield client
+    delegate.on_roster_item_method.should be_called
+    delegate.on_all_roster_items_method.should be_called     
+  end
+  
+  ####------------------------------------------------------------------------------------------------------
+  #.........................................................................................................
+  should "query server for roster on succesful session start and activate configured roster items which match those returned in query result" do
+  
+    config = {'jid' => 'test@nowhere.com', 'roster' =>[@dev.bare.to_s, @troy.bare.to_s], 'password' => 'nopass'}
+    client = TestClient.new(config)
+    test_init_roster(client)
+    
+  end
+  
+  #.........................................................................................................
+  should "query server for roster on succesful session start and send a subscription request to configured roster items not returned by query result" do
+  
+    #### client configured with two contacts in roster. 'troy@nowhere.com' will not be returned by roster initial query
+    config = {'jid' => 'test@nowhere.com', 'roster' =>[@dev.bare.to_s, @troy.bare.to_s], 'password' => 'nopass'}
+    client = TestClient.new(config)
+    test_send_roster_request(client)
+    delegate = client.new_delegate
+    
+    #### receive roster request and verify that appropriate roster item is activated and add roster message is sent for 'troy@nowhere.com'
+    test_receive_roster_item(client) do |client|
+      AgentXmpp::Roster.find_all{|r| r[:status].should be(:inactive)}  
+      client.receiving(RosterMessages.recv_iq_result_query_roster(client, [@dev.bare.to_s])).should \
+        respond_with(RosterMessages.send_iq_set_query_roster(client, @troy.bare.to_s))
+      AgentXmpp::Contact.find_by_jid(@dev)[:status].should be(:both)      
+      AgentXmpp::Contact.find_by_jid(@troy)[:status].should be(:inactive)
+    end
+  
+    ### receive roster add ackgnowledgement and send subscription request
+    delegate = client.new_delegate
+    delegate.on_acknowledge_add_roster_item_method.should_not be_called
+    client.receiving(RosterMessages.recv_iq_result_query_roster_ack(client)).should \
+      respond_with(PresenceMessages.send_presence_subscribe(client, @troy.bare.to_s))
+    delegate.on_acknowledge_add_roster_item_method.should be_called
+  
+    #### receive roster update with subscribe=none for newly added contact
+    test_receive_roster_item(client) do |client|
+      client.receiving(RosterMessages.recv_iq_set_query_roster_none(client, @troy.bare.to_s)).should not_respond
+      AgentXmpp::Contact.find_by_jid(@troy)[:status].should be(:added)      
+    end
+  
+    #### receive roster update with subscription=none and ask=subscribe indicating pending susbscription request for newly added contact
+    test_receive_roster_item(client) do |client|
+      client.receiving(RosterMessages.recv_iq_set_query_roster_none_subscribe(client, @troy.bare.to_s)).should not_respond
+      AgentXmpp::Contact.find_by_jid(@troy)[:status].should be(:ask)      
+    end
+    
+    #### receive roster update with subscription=to indicating that the contact's presence updates will be received 
+    #### (i.e. the contact accepted the invite)
+    test_receive_roster_item(client) do |client|
+      client.receiving(RosterMessages.recv_iq_set_query_roster_to(client, @troy.bare.to_s)).should not_respond
+      AgentXmpp::Contact.find_by_jid(@troy)[:status].should be(:to)
+    end
+    
+    #### receive subscribe request from contact and accept
+    delegate = client.new_delegate
+    delegate.on_presence_subscribe_method.should_not be_called
+    client.receiving(PresenceMessages.recv_presence_subscribe(client, @troy.bare.to_s)).should \
+      respond_with(PresenceMessages.send_presence_subscribed(client, @troy.bare.to_s))
+    delegate.on_presence_subscribe_method.should be_called
+    
+    #### receive roster update with subscription=both indicating that the contact's presence updates will be received and contact 
+    #### will treceive presence updates and activate contact roster item
+    test_receive_roster_item(client) do |client|
+      client.receiving(RosterMessages.recv_iq_set_query_roster_both(client, @troy.bare.to_s)).should not_respond
+      AgentXmpp::Contact.find_by_jid(@troy)[:status].should be(:both)      
+    end
+    
+  end
+  
+  #.........................................................................................................
+  should "query server for roster on succesful session start and send an unsubscribe request to roster items returned by query result that are not in the configuration roster" do
+  
+    #### client configured with one contact in roster. 'troy@nowhere.com' will be returned by roster initial query
+    config = {'jid' => 'test@nowhere.com', 'roster' =>[@dev.bare.to_s], 'password' => 'nopass'}
+    client = TestClient.new(config)
+    test_send_roster_request(client)
+    delegate = client.new_delegate
+    
+    #### receive roster request and verify that appropriate roster item is activated and remove roster message is sent for 'troy@nowhere.com'
+    test_receive_roster_item(client) do |client|
+      AgentXmpp::Roster.find_all{|r| r[:status].should be(:inactive)}  
+      client.receiving(RosterMessages.recv_iq_result_query_roster(client, [@dev.bare.to_s, @troy.bare.to_s])).should \
+        respond_with(RosterMessages.send_iq_set_query_roster_remove(client, @troy.bare.to_s))
+      AgentXmpp::Contact.find_by_jid(@dev)[:status].should be(:both)      
+    end
+  
+    #### receive roster remove ackgnowledgement
+    delegate = client.new_delegate
+    delegate.on_acknowledge_remove_roster_item_method.should_not be_called
+    client.receiving(RosterMessages.recv_iq_result_query_roster_ack(client)).should not_respond
+    delegate.on_acknowledge_remove_roster_item_method.should be_called
+  
+    #### recieve roster item remove
+    delegate.on_remove_roster_item_method.should_not be_called
+    delegate.on_all_roster_items_method.should_not be_called
+    client.receiving(RosterMessages.recv_iq_set_query_roster_remove(client, @troy.bare.to_s)).should not_respond
+    AgentXmpp::Contact.has_jid?(@troy).should be(false) 
+    delegate.on_remove_roster_item_method.should be_called
+    delegate.on_all_roster_items_method.should be_called
+  
+  end
+    
+  #.........................................................................................................
+  should "remove roster item if a roster add message is received for a roster item not in the configuration roster" do
+  
+    config = {'jid' => 'test@nowhere.com', 'roster' =>[@dev.bare.to_s], 'password' => 'nopass'}
+    client = TestClient.new(config)
+    test_init_roster(client)
+  
+    #### receive roster request and verify that appropriate roster item is not configured and send remove roster message to 'troy@nowhere.com'
+    test_receive_roster_item(client) do |client|
+      AgentXmpp::Roster.find_all{|r| r[:status].should be(:inactive)}  
+      client.receiving(RosterMessages.recv_iq_set_query_roster_none_subscribe(client, [@troy.bare.to_s])).should \
+        respond_with(RosterMessages.send_iq_set_query_roster_remove(client, @troy.bare.to_s))
+      AgentXmpp::Contact.has_jid?(@troy).should be(false) 
+    end
+  
+    #### receive roster remove ackgnowledgement
+    delegate = client.new_delegate
+    delegate.on_acknowledge_remove_roster_item_method.should_not be_called
+    client.receiving(RosterMessages.recv_iq_result_query_roster_ack(client)).should not_respond
+    delegate.on_acknowledge_remove_roster_item_method.should be_called
+  
+  end
+    
+  #.........................................................................................................
+  should "query server for roster on succesful session start and throw an exeception if there is an error retrieving roster" do
+  
+    #### client configured with two contacts in roster
+    config = {'jid' => 'test@nowhere.com', 'roster' =>[@dev.bare.to_s], 'password' => 'nopass'}
+    client = TestClient.new(config)
+    test_send_roster_request(client)
+    delegate = client.new_delegate
+  
+    #### receive roster request and verify that roster items are activated
+    lambda{client.receiving(RosterMessages.recv_error_query_roster_add(client))}.should raise_error(AgentXmpp::AgentXmppError) 
+  
+  end
+    
+  #.........................................................................................................
+  should "not respond to errors received in response to a remove roster query" do
+  
+    config = {'jid' => 'test@nowhere.com', 'roster' =>[@dev.bare.to_s], 'password' => 'nopass'}
+    client = TestClient.new(config)
+    test_init_roster(client)
+  
+    #### receive roster request and verify that appropriate roster item is not configured and send remove roster message to 'troy@nowhere.com'
+    test_receive_roster_item(client) do |client|
+      AgentXmpp::Roster.find_all{|r| r[:status].should be(:inactive)}  
+      client.receiving(RosterMessages.recv_iq_set_query_roster_none_subscribe(client, [@troy.bare.to_s])).should \
+        respond_with(RosterMessages.send_iq_set_query_roster_remove(client, @troy.bare.to_s))
+      AgentXmpp::Contact.has_jid?(@troy).should be(false) 
+    end
+  
+    #### receive roster remove ackgnowledgement
+    delegate = client.new_delegate
+    delegate.on_remove_roster_item_error_method.should_not be_called
+    client.receiving(RosterMessages.recv_error_query_roster_remove(client)).should not_respond
+    AgentXmpp::Contact.has_jid?(@troy).should be(false) 
+    delegate.on_remove_roster_item_error_method.should be_called
+    
+  end
+  
+  #.........................................................................................................
+  should "not respond to errors received in response to an add roster query but should remove roster item from configured list" do
+  
+    #### client configured with two contacts in roster. 'troy@nowhere.com' will not be returned by roster initial query
+    config = {'jid' => 'test@nowhere.com', 'roster' =>[@dev.bare.to_s, @troy.bare.to_s], 'password' => 'nopass'}
+    client = TestClient.new(config)
+    test_send_roster_request(client)
+    delegate = client.new_delegate
+    
+    #### receive roster request and verify that appropriate roster item is activated and add roster message is sent for 'troy@nowhere.com'
+    test_receive_roster_item(client) do |client|
+      AgentXmpp::Roster.find_all{|r| r[:status].should be(:inactive)}  
+      client.receiving(RosterMessages.recv_iq_result_query_roster(client, [@dev.bare.to_s])).should \
+        respond_with(RosterMessages.send_iq_set_query_roster(client, @troy.bare.to_s))
+      AgentXmpp::Contact.find_by_jid(@dev)[:status].should be(:both)      
+      AgentXmpp::Contact.find_by_jid(@troy)[:status].should be(:inactive)
+    end
+  
+    ### receive roster add ackgnowledgement and send subscription request
+    delegate = client.new_delegate
+    delegate.on_add_roster_item_error_method.should_not be_called
+    client.receiving(RosterMessages.recv_error_query_roster_remove(client)).should not_respond
+    delegate.on_add_roster_item_error_method.should be_called
+    AgentXmpp::Contact.has_jid?(@troy).should be(false) 
+    
+  end
+  
+end

data/test/cases/test_service_discovery.rb

@@ -0,0 +1,168 @@
+##############################################################################################################
+require 'test_helper'
+
+##############################################################################################################
+class TestServiceDiscovery < Test::Unit::TestCase
+
+  #.........................................................................................................
+  def setup
+    @client = TestClient.new()
+    test_init_roster(@client)
+    @delegate = @client.new_delegate
+    @server = AgentXmpp::Xmpp::Jid.new(@client.jid.domain)
+    @test = AgentXmpp::Xmpp::Jid.new('test@plan-b.ath.cx/home')
+    @noone = AgentXmpp::Xmpp::Jid.new('noone@plan-b.ath.cx/nowhere')
+  end
+
+  ####------------------------------------------------------------------------------------------------------
+  context "after sesson start a disco#info request addressed to the server should be generated" do
+      
+    #.........................................................................................................
+    setup do
+      @delegate.on_discoinfo_result_method.should_not be_called
+      AgentXmpp::Service.has_disco_info?(@server).should be(false)
+      @client.receiving(ServiceDiscoveryMessages.recv_iq_result_query_discoinfo(@client, @server.to_s)).should \
+        respond_with(ServiceDiscoveryMessages.send_iq_get_query_discoitems(@client, @server.to_s))
+      @delegate.on_discoinfo_result_method.should be_called
+      AgentXmpp::Service.has_disco_info?(@server).should be(true)
+    end
+      
+    #.........................................................................................................
+    should "and the result update the server roster entry and generate a disco#info request if the result is not an error" do
+    end
+    
+    #.........................................................................................................
+    should "update the server roster entry with result of server disco#items request if the result is not an error" do
+      @delegate.on_discoitems_result_method.should_not be_called
+      AgentXmpp::Service.has_disco_items?(@server).should be(false)
+      @client.receiving(ServiceDiscoveryMessages.recv_iq_result_query_discoitems(@client, @server.to_s)).should not_respond
+      @delegate.on_discoitems_result_method.should be_called
+      AgentXmpp::Service.has_disco_items?(@server).should be(true)
+    end
+    
+    #.........................................................................................................
+    should "not update the server roster entry with the disco#items result if the result is an error" do
+      @delegate.on_discoitems_result_method.should_not be_called
+      @delegate.on_discoitems_error_method.should_not be_called
+      AgentXmpp::Service.has_disco_items?(@server).should be(false)
+      @client.receiving(ServiceDiscoveryMessages.recv_iq_error_query_discoitems(@client, @server.to_s)).should not_respond
+      @delegate.on_discoitems_result_method.should_not be_called
+      @delegate.on_discoitems_error_method.should be_called
+      AgentXmpp::Service.has_disco_items?(@server).should be(false)
+    end
+  
+  end  
+  
+  ####------------------------------------------------------------------------------------------------------
+  context "after transition of contact to presence with type=available a disco#info request addressed to the contact should be genearated and the result" do
+   
+    #.........................................................................................................
+    setup do
+      AgentXmpp::Xmpp::IdGenerator.set_gen_id([1,2])
+      @client.receiving(PresenceMessages.recv_presence_available(@client, @test.to_s))
+      @delegate.on_discoinfo_result_method.should_not be_called
+      AgentXmpp::Service.has_disco_info?(@test).should be(false)
+      AgentXmpp::Xmpp::IdGenerator.set_gen_id
+      @client.receiving(ServiceDiscoveryMessages.recv_iq_result_query_discoinfo(@client, @test.to_s)).should \
+        respond_with(ServiceDiscoveryMessages.send_iq_get_query_discoitems(@client, @test.to_s))
+      @delegate.on_discoinfo_result_method.should be_called
+      AgentXmpp::Service.has_disco_info?(@test).should be(true)
+    end
+          
+    #.........................................................................................................
+    should "update the contact roster entry and generate a disco#items request if the result is not an error" do
+    end
+      
+    #.........................................................................................................
+    should "update the contact roster entry with result of contact disco#items request if the result is not an error" do
+        @delegate.on_discoitems_result_method.should_not be_called
+        AgentXmpp::Service.has_disco_items?(@test).should be(false)
+        @client.receiving(ServiceDiscoveryMessages.recv_iq_result_query_discoitems(@client, @test.to_s)).should not_respond
+        @delegate.on_discoitems_result_method.should be_called
+        AgentXmpp::Service.has_disco_items?(@test).should be(true)
+    end
+      
+    #.........................................................................................................
+    should "not update the contact roster entry with the disco#info result or geneate a disco#items request if the result is an error" do
+        @delegate.on_discoitems_result_method.should_not be_called
+        @delegate.on_discoitems_error_method.should_not be_called
+        AgentXmpp::Service.has_disco_items?(@test).should be(false)
+        @client.receiving(ServiceDiscoveryMessages.recv_iq_error_query_discoitems(@client, @test.to_s)).should not_respond
+        @delegate.on_discoitems_result_method.should_not be_called
+        @delegate.on_discoitems_error_method.should be_called
+        AgentXmpp::Service.has_disco_items?(@test).should be(false)
+    end
+      
+  end
+  
+  #.........................................................................................................
+  should "not update the roster entry with the disco#info result or geneate a disco#items request if an error is received as a result of a disco#info request" do
+    @delegate.on_discoinfo_result_method.should_not be_called
+    @delegate.on_discoinfo_error_method.should_not be_called    
+    AgentXmpp::Service.has_disco_info?(@server).should be(false)
+    @client.receiving(ServiceDiscoveryMessages.recv_iq_error_query_discoinfo(@client, @server.to_s)).should not_respond
+    AgentXmpp::Service.has_disco_info?(@server).should be(false)
+    @delegate.on_discoinfo_result_method.should_not be_called
+    @delegate.on_discoinfo_error_method.should be_called    
+  end
+  
+  #.........................................................................................................
+  should "respond with features and identity when get disco#info is received without a specified node from a jid in the configuration roster" do
+    @delegate.on_discoinfo_get_method.should_not be_called
+    @client.receiving(ServiceDiscoveryMessages.recv_iq_get_query_discoinfo(@client, @test.to_s)).should \
+      respond_with(ServiceDiscoveryMessages.send_iq_result_query_discoinfo(@client, @test.to_s))
+    @delegate.on_discoinfo_get_method.should be_called
+  end
+  
+  #.........................................................................................................
+  should "respond with service-unavailable error when get disco#info is received for unsupported node" do
+    @delegate.on_discoinfo_get_method.should_not be_called
+    @client.receiving(ServiceDiscoveryMessages.recv_iq_get_query_discoinfo_error(@client, @test.to_s)).should \
+      respond_with(ServiceDiscoveryMessages.send_iq_error_discoinfo_service_unavailable(@client, @test.to_s))
+    @delegate.on_discoinfo_get_method.should be_called
+  end
+  
+  #.........................................................................................................
+  should "not respond if get disco#info is received from a jid not in the configuration roster" do
+    AgentXmpp::Contact.has_jid?(@noone).should be(false)
+    @delegate.on_discoinfo_get_method.should_not be_called
+    @client.receiving(ServiceDiscoveryMessages.recv_iq_get_query_discoinfo(@client, @noone.to_s)).should not_respond
+    AgentXmpp::Contact.has_jid?(@noone).should be(false)
+    @delegate.on_discoinfo_get_method.should be_called
+  end
+  
+  #.........................................................................................................
+  should "respond with empty result when get disco#items is received with no specified node from a jid in the configuration roster" do
+    @delegate.on_discoitems_get_method.should_not be_called
+    @client.receiving(ServiceDiscoveryMessages.recv_iq_get_query_discoitems(@client, @test.to_s)).should \
+      respond_with(ServiceDiscoveryMessages.send_iq_result_query_discoitems(@client, @test.to_s))
+    @delegate.on_discoitems_get_method.should be_called
+  end
+  
+  #.........................................................................................................
+  should "respond with command nodes when get disco#items is received for the node 'http://jabber.org/protocol/commands'" do
+    @delegate.on_discoitems_get_method.should_not be_called
+    @client.receiving(ServiceDiscoveryMessages.recv_iq_get_query_discoitems_for_commands_node(@client, @test.to_s)).should \
+      respond_with(ServiceDiscoveryMessages.send_iq_result_query_discoitems_for_commands_node(@client, @test.to_s))
+    @delegate.on_discoitems_get_method.should be_called
+  end
+  
+  #.........................................................................................................
+  should "respond with item-not-found error when get disco#items is received for unsupported node" do
+    @delegate.on_discoitems_get_method.should_not be_called
+    @client.receiving(ServiceDiscoveryMessages.recv_iq_get_query_discoitems_error(@client, @test.to_s)).should \
+      respond_with(ServiceDiscoveryMessages.send_iq_error_discoitems_item_not_found(@client, @test.to_s))
+    @delegate.on_discoitems_get_method.should be_called
+  end
+  
+  #.........................................................................................................
+  should "not respond if get disco#items is received from a jid not in the configuration roster" do
+    AgentXmpp::Contact.has_jid?(@noone).should be(false)
+    @delegate.on_discoitems_get_method.should_not be_called
+    @client.receiving(ServiceDiscoveryMessages.recv_iq_get_query_discoitems(@client, @noone.to_s)).should not_respond
+    AgentXmpp::Contact.has_jid?(@noone).should be(false)
+    @delegate.on_discoitems_get_method.should be_called
+  end
+    
+end
+

data/test/cases/test_session_management.rb

@@ -0,0 +1,120 @@
+##############################################################################################################
+require 'test_helper'
+
+##############################################################################################################
+class TestSessionManagement < Test::Unit::TestCase
+
+  #.........................................................................................................
+  def setup
+    @client = TestClient.new
+    AgentXmpp::Xmpp::IdGenerator.set_gen_id
+    @delegate = @client.new_delegate
+  end
+  
+  #.........................................................................................................
+  should "authenticate with PLAIN SASL authentication when stream features includes PLAIN authentication" do
+  
+    #### connect to server
+    @client.client.pipe.connection_completed.should \
+      respond_with(SessionMessages.send_supported_xml_version(@client), SessionMessages.send_stream(@client))
+  
+    #### receive pre authentication stream feautues and mechanisms and authenticate
+    @delegate.on_authenticate_method.should_not be_called
+    @delegate.on_preauthenticate_features_method.should_not be_called
+    @client.receiving(SessionMessages.recv_preauthentication_stream_features_with_plain_SASL(@client)).should \
+      respond_with(SessionMessages.send_auth_plain(@client)) 
+    @client.receiving(SessionMessages.recv_auth_success(@client)).should respond_with(SessionMessages.send_stream(@client)) 
+    @delegate.on_preauthenticate_features_method.should be_called
+    @delegate.on_authenticate_method.should be_called
+  
+    #### bind resource
+    @delegate.on_bind_method.should_not be_called
+    @delegate.on_postauthenticate_features_method.should_not be_called
+    @client.receiving(SessionMessages.recv_postauthentication_stream_features(@client)).should respond_with(SessionMessages.send_iq_set_bind(@client)) 
+    @client.receiving(SessionMessages.recv_iq_result_bind(@client)).should respond_with(SessionMessages.send_iq_set_session(@client)) 
+    @delegate.on_postauthenticate_features_method.should be_called
+    @delegate.on_bind_method.should be_called
+  
+    #### start session and request roster
+    @delegate.on_start_session_method.should_not be_called
+    @client.receiving(SessionMessages.recv_iq_result_session(@client)).should \
+      respond_with(SessionMessages.send_presence_init(@client), RosterMessages.send_iq_get_query_roster(@client),
+                   ServiceDiscoveryMessages.send_iq_get_query_discoinfo(@client, @client.jid.domain)) 
+    @delegate.on_start_session_method.should be_called
+  
+  end
+  
+  #.........................................................................................................
+  should "raise exception when stream features do not include PLAIN authentication" do
+  
+    #### connect to server
+    @client.client.pipe.connection_completed
+  
+    #### receive pre authentication stream feautues which do not include plain authentication
+    lambda{@client.receiving(SessionMessages.recv_preauthentication_stream_features_without_plain_SASL(@client))}.should \
+      raise_error(AgentXmpp::AgentXmppError) 
+  end
+  
+  #.........................................................................................................
+  should "raise exception when authentication fails" do
+    
+    #### connect to server
+    @client.client.pipe.connection_completed
+  
+    #### receive pre authentication stream feautues and mechanisms and authenticate
+    @client.receiving(SessionMessages.recv_preauthentication_stream_features_with_plain_SASL(@client)).should \
+      respond_with(SessionMessages.send_auth_plain(@client)) 
+    lambda{@client.receiving(SessionMessages.recv_auth_failure(@client))}.should raise_error(AgentXmpp::AgentXmppError) 
+    
+  end
+  
+  #.........................................................................................................
+  should "raise exception when bind fails" do
+  
+    #### connect to server
+    @client.client.pipe.connection_completed
+  
+    #### receive pre authentication stream feautues and mechanisms and authenticate
+    @delegate.on_authenticate_method.should_not be_called
+    @delegate.on_preauthenticate_features_method.should_not be_called
+    @client.receiving(SessionMessages.recv_preauthentication_stream_features_with_plain_SASL(@client)).should \
+      respond_with(SessionMessages.send_auth_plain(@client)) 
+    @client.receiving(SessionMessages.recv_auth_success(@client)).should respond_with(SessionMessages.send_stream(@client)) 
+    @delegate.on_preauthenticate_features_method.should be_called
+    @delegate.on_authenticate_method.should be_called
+  
+    #### bind resource and receive error
+    @client.receiving(SessionMessages.recv_postauthentication_stream_features(@client)).should respond_with(SessionMessages.send_iq_set_bind(@client)) 
+    lambda{@client.receiving(SessionMessages.recv_error_bind(@client))}.should raise_error(AgentXmpp::AgentXmppError) 
+  
+  end
+  
+  #.........................................................................................................
+  should "raise exception when session start fails" do
+  
+    #### connect to server
+    @client.client.pipe.connection_completed
+  
+    #### receive pre authentication stream feautues and mechanisms and authenticate
+    @delegate.on_authenticate_method.should_not be_called
+    @delegate.on_preauthenticate_features_method.should_not be_called
+    @client.receiving(SessionMessages.recv_preauthentication_stream_features_with_plain_SASL(@client)).should \
+      respond_with(SessionMessages.send_auth_plain(@client)) 
+    @client.receiving(SessionMessages.recv_auth_success(@client)).should respond_with(SessionMessages.send_stream(@client)) 
+    @delegate.on_preauthenticate_features_method.should be_called
+    @delegate.on_authenticate_method.should be_called
+  
+    #### bind resource
+    @delegate.on_postauthenticate_features_method.should_not be_called
+    @delegate.on_bind_method.should_not be_called
+    @client.receiving(SessionMessages.recv_postauthentication_stream_features(@client)).should respond_with(SessionMessages.send_iq_set_bind(@client)) 
+    @client.receiving(SessionMessages.recv_iq_result_bind(@client)).should respond_with(SessionMessages.send_iq_set_session(@client)) 
+    @delegate.on_postauthenticate_features_method.should be_called
+    @delegate.on_bind_method.should be_called
+  
+    #### start session and request roster
+    lambda{@client.receiving(SessionMessages.recv_error_session(@client))}.should raise_error(AgentXmpp::AgentXmppError) 
+  
+  end
+  
+end