mojodna-xmpp4r 0.4.0.2

data/test/muc/tc_muc_simplemucclient.rb

@@ -0,0 +1,114 @@
+#!/usr/bin/ruby
+
+
+$:.unshift File::dirname(__FILE__) + '/../../lib'
+
+require 'test/unit'
+require File::dirname(__FILE__) + '/../lib/clienttester'
+require 'xmpp4r/muc'
+require 'xmpp4r/semaphore'
+include Jabber
+
+class SimpleMUCClientTest < Test::Unit::TestCase
+  include ClientTester
+
+  def test_new1
+    m = MUC::SimpleMUCClient.new(@client)
+    assert_equal(nil, m.jid)
+    assert_equal(nil, m.my_jid)
+    assert_equal({}, m.roster)
+    assert(!m.active?)
+  end
+
+  def test_complex
+    m = MUC::SimpleMUCClient.new(@client)
+
+    block_args = []
+    wait = Semaphore.new
+    block = lambda { |*a| block_args = a; wait.run }
+    m.on_room_message(&block)
+    m.on_message(&block)
+    m.on_private_message(&block)
+    m.on_subject(&block)
+    m.on_join(&block)
+    m.on_leave(&block)
+    m.on_self_leave(&block)
+
+    state { |pres|
+      assert_kind_of(Presence, pres)
+      assert_equal(JID.new('hag66@shakespeare.lit/pda'), pres.from)
+      assert_equal(JID.new('darkcave@macbeth.shakespeare.lit/thirdwitch'), pres.to)
+      send("<presence from='darkcave@macbeth.shakespeare.lit/firstwitch' to='hag66@shakespeare.lit/pda'>" +
+          "<x xmlns='http://jabber.org/protocol/muc#user'><item affiliation='owner' role='moderator'/></x>" +
+          "</presence>" +
+          "<presence from='darkcave@macbeth.shakespeare.lit/secondwitch' to='hag66@shakespeare.lit/pda'>" +
+          "<x xmlns='http://jabber.org/protocol/muc#user'><item affiliation='admin' role='moderator'/></x>" +
+          "</presence>" +
+          "<presence from='darkcave@macbeth.shakespeare.lit/thirdwitch' to='hag66@shakespeare.lit/pda'>" +
+          "<x xmlns='http://jabber.org/protocol/muc#user'><item affiliation='member' role='participant'/></x>" +
+          "</presence>")
+    }
+    m.my_jid = 'hag66@shakespeare.lit/pda'
+    assert_equal(m, m.join('darkcave@macbeth.shakespeare.lit/thirdwitch'))
+    wait_state
+    assert(m.active?)
+    assert_equal(3, m.roster.size)
+
+    state { |msg|
+      assert_kind_of(Message, msg)
+      assert_equal(:groupchat, msg.type)
+      assert_equal(JID.new('hag66@shakespeare.lit/pda'), msg.from)
+      assert_equal(JID.new('darkcave@macbeth.shakespeare.lit'), msg.to)
+      assert_equal('TestCasing room', msg.subject)
+      assert_nil(msg.body)
+      send(msg.set_from('darkcave@macbeth.shakespeare.lit/thirdwitch').set_to('hag66@shakespeare.lit/pda'))
+    }
+    assert_nil(m.subject)
+    wait.wait
+    m.subject = 'TestCasing room'
+    wait_state
+    wait.wait
+
+    # FIXME : **Intermittently** failing (especially during RCOV run) at this line with:
+    #   1) Failure:
+    #   test_complex(SimpleMUCClientTest) [./test/muc/tc_muc_simplemucclient.rb:71]:
+    #   <[nil, "thirdwitch", "TestCasing room"]> expected but was
+    #   <[nil, "secondwitch"]>.
+    #
+    #assert_equal([nil, 'thirdwitch', 'TestCasing room'], block_args)
+
+    # FIXME : **Intermittently** failing (especially during RCOV run) at this line with:
+    #   1) Failure:
+    # test_complex(SimpleMUCClientTest) [./test/muc/tc_muc_simplemucclient.rb:80]:
+    # <"TestCasing room"> expected but was
+    # <nil>.
+    #
+    #assert_equal('TestCasing room', m.subject)
+
+  end
+
+  def test_kick
+    m = MUC::SimpleMUCClient.new(@client)
+
+    state { |presence|
+      send("<presence from='test@test/test'/>")
+    }
+    m.join('test@test/test')
+    wait_state
+
+    state { |iq|
+      assert_kind_of(Iq, iq)
+      assert_equal('http://jabber.org/protocol/muc#admin', iq.queryns)
+      assert_kind_of(MUC::IqQueryMUCAdmin, iq.query)
+      assert_equal(1, iq.query.items.size)
+      assert_equal('pistol', iq.query.items[0].nick)
+      assert_equal(:none, iq.query.items[0].role)
+      assert_equal('Avaunt, you cullion!', iq.query.items[0].reason)
+      a = iq.answer(false)
+      a.type = :result
+      send(a)
+    }
+    m.kick('pistol', 'Avaunt, you cullion!')
+    wait_state
+  end
+end

data/test/muc/tc_mucowner.rb

@@ -0,0 +1,50 @@
+#!/usr/bin/ruby
+
+$:.unshift '../lib'
+
+require 'test/unit'
+require 'xmpp4r'
+require 'xmpp4r/muc'
+include Jabber
+
+class MUCOwnerTest < Test::Unit::TestCase
+  def test_parse
+    s = <<EOF
+<iq from='darkcave@macbeth.shakespeare.lit'
+    id='config1'
+    to='crone1@shakespeare.lit/desktop'
+    type='result'>
+  <query xmlns='http://jabber.org/protocol/muc#owner'>
+    <x xmlns='jabber:x:data' type='form'>
+      <title>Configuration for "darkcave" Room</title>
+      <instructions>
+        Complete this form to make changes to
+        the configuration of your room.
+      </instructions>
+      <field
+          type='hidden'
+          var='FORM_TYPE'>
+        <value>http://jabber.org/protocol/muc#roomconfig</value>
+      </field>
+      <field
+          label='Natural-Language Room Name'
+          type='text-single'
+          var='muc#roomconfig_roomname'>
+        <value>A Dark Cave</value>
+      </field>
+    </x>
+  </query>
+</iq>
+EOF
+    iq = Iq::import(REXML::Document.new(s).root)
+
+    assert_kind_of(Iq, iq)
+    assert_kind_of(MUC::IqQueryMUCOwner, iq.query)
+    assert_kind_of(Dataforms::XData, iq.query.x)
+    assert_kind_of(Dataforms::XData, iq.query.x('jabber:x:data'))
+    assert_kind_of(Dataforms::XData, iq.query.x(Dataforms::XData))
+
+    assert_equal(1, iq.query.x.fields.size)
+    assert_equal('Natural-Language Room Name', iq.query.x.fields[0].label)
+  end
+end