xmpp4r 0.3.2 → 0.4

data/test/bytestreams/tc_ibb.rb

@@ -69,7 +69,7 @@ class IBBTest < Test::Unit::TestCase
 
     assert_equal(buffer, received)
   end
-  
+
   def test_ibb_pingpong
     ignored_stanzas = 0
     wait = Semaphore.new
@@ -174,7 +174,7 @@ class IBBTest < Test::Unit::TestCase
     assert_equal(:close, i1.type)
     assert_nil(i1.seq)
 
-    i2 = Bytestreams::IBBQueueItem.new(:data, 1, Base64::encode64('blah'))
+    i2 = Bytestreams::IBBQueueItem.new(:data, 1, ['blah'].pack('m'))
     assert_equal(:data, i2.type)
     assert_equal(1, i2.seq)
     assert_equal('blah', i2.data)

data/test/bytestreams/tc_socks5bytestreams.rb

@@ -30,7 +30,7 @@ class SOCKS5BytestreamsTest < Test::Unit::TestCase
     buf1 = create_buffer(8192)
     buf2 = create_buffer(8192)
 
-    Thread.new do 
+    Thread.new do
       target1.accept
       target1.write(buf1)
       target1.flush
@@ -99,5 +99,15 @@ class SOCKS5BytestreamsTest < Test::Unit::TestCase
 
     initiator.close
   end
-  
+
+  def test_timeout
+    target = Bytestreams::SOCKS5BytestreamsTarget.new(@server, '1', '1@a.com/1', '1@a.com/2')
+
+    assert_nothing_raised do
+      Timeout::timeout(2) do
+        target.connect_timeout = 1
+        assert target.accept == false
+      end
+    end
+  end
 end

data/test/caps/tc_helper.rb

@@ -0,0 +1,156 @@
+
+$:.unshift File::dirname(__FILE__) + '/../../lib'
+
+require 'test/unit'
+require File::dirname(__FILE__) + '/../lib/clienttester'
+
+require 'xmpp4r/discovery'
+require 'xmpp4r/caps/helper/helper'
+require 'xmpp4r/dataforms'
+include Jabber
+
+class Caps::HelperTest < Test::Unit::TestCase
+  include ClientTester
+
+  ##
+  # Walk through the client/ server conversation defined
+  # in http://www.xmpp.org/extensions/xep-0115.html#usecases
+  # and assert conformance.
+  def test_caps_reply
+    # This will be invoked by 'wait_state' below...
+    state { |presence|
+      assert_kind_of(Jabber::Presence, presence)
+      c = presence.first_element('c')
+      assert_kind_of(Jabber::Caps::C, c)
+
+      # see http://www.xmpp.org/extensions/xep-0115.html#ver
+      assert_equal('SrFo9ar2CCk2EnOH4q4QANeuxLQ=', c.ver)
+
+      # version 1.5 of xep 0115 indicates that the <c /> stanzq MUST feature a 'hash' attribute
+      assert_equal('sha-1', c.hash)
+
+      assert_equal("http://home.gna.org/xmpp4r/##{Jabber::XMPP4R_VERSION}", c.node)
+
+      send(iq_discovering_capabilities)
+    }
+
+    # Construct Caps::Helper which will send a <presence>
+    # stanza (with embedded <c/> advert) to the 'server'
+    h = Caps::Helper.new(@client, identities, features)
+
+    # The 'server' will receive the <presence> stanza and
+    # yield it to the 'state' block above, where an <iq> query
+    # will be sent back to the 'client,' to discover its capabilities.
+    # Wait here until the block has been executed.
+    wait_state
+
+    # The Caps::Helper will process the <iq> query from the 'server'
+    # and reply with an <iq> result providing the details of its
+    # identities and features.
+
+    state { |iq|
+      assert_kind_of(Jabber::Iq, iq)
+      assert_equal(:result, iq.type)
+      assert_equal('1867999907', iq.id)
+      assert_equal('new-big-computer.local', iq.to.to_s)
+
+      assert_kind_of(Jabber::Discovery::IqQueryDiscoInfo, iq.query)
+      assert_equal(iq.query.identities.size, identities.size)
+      get_category_iname_type = lambda{ |i| [i.category,i.iname,i.type] }
+      assert_equal(iq.query.identities.map(&get_category_iname_type).sort!, identities.map(&get_category_iname_type).sort!)
+
+      assert_equal(3, iq.query.features.size)
+      get_var = lambda { |f| f.var }
+      assert_equal(iq.query.features.sort, features.map(&get_var).sort)
+    }
+
+    # The 'server' will receive the <iq> result from the
+    # 'client' and yield it to the block above. Wait here
+    # until that block exits.
+    wait_state
+  end
+
+  def test_custom_node
+    client_id='http://new-big-computer.local/client#321'
+
+    state { |presence|
+      c = presence.first_element('c')
+      assert_kind_of(Jabber::Caps::C, c)
+      assert_equal(client_id, c.node)
+      assert_equal('SrFo9ar2CCk2EnOH4q4QANeuxLQ=', c.ver)
+    }
+    h = Caps::Helper.new(@client, identities, features, client_id)
+    wait_state
+  end
+
+  def identities
+    [Jabber::Discovery::Identity.new('client', 'Exodus 0.9.1', 'pc')]
+  end
+
+  def features
+    [Jabber::Discovery::Feature.new("http://jabber.org/protocol/disco#info"),
+     Jabber::Discovery::Feature.new("http://jabber.org/protocol/disco#items"),
+     Jabber::Discovery::Feature.new("http://jabber.org/protocol/muc")]
+  end
+
+  def iq_discovering_capabilities
+    "<iq from='new-big-computer.local' type='get' to='matt@new-big-computer.local/capable_client' id='1867999907' xmlns='jabber:client'><query xmlns='http://jabber.org/protocol/disco#info'/></iq>"
+  end
+
+  ##
+  # http://www.xmpp.org/extensions/xep-0115.html#ver-gen-complex
+  def test_caps_complex
+    form = Dataforms::XData.new(:result)
+    form.add(Dataforms::XDataField.new('FORM_TYPE', :hidden)).value = 'urn:xmpp:dataforms:softwareinfo'
+    form.add(Dataforms::XDataField.new('ip_version')).values = ['ipv4', 'ipv6']
+    form.add(Dataforms::XDataField.new('software')).value = 'Psi' # re-ordered
+    form.add(Dataforms::XDataField.new('software_version')).value = '0.11'
+    form.add(Dataforms::XDataField.new('os')).value = 'Mac'
+    form.add(Dataforms::XDataField.new('os_version')).value = '10.5.1'
+    ver = Caps::generate_ver([Discovery::Identity.new('client', 'Psi 0.9.1', 'pc').set_xml_lang('en'),
+                              Discovery::Identity.new('client', 'Ψ 0.9.1', 'pc').set_xml_lang('el')],
+                             [Discovery::Feature.new('http://jabber.org/protocol/muc'), # re-ordered
+                              Discovery::Feature.new('http://jabber.org/protocol/disco#info'),
+                              Discovery::Feature.new('http://jabber.org/protocol/disco#items')],
+                             [form])
+    assert_equal('8lu+88MRxmKM7yO3MEzY7YmTsWs=', ver)
+  end
+
+  ##
+  # http://www.xmpp.org/extensions/xep-0115.html#ver-gen-complex
+  def test_caps_complex_imported
+    query = IqQuery::import(REXML::Document.new(<<END).root)
+<query xmlns='http://jabber.org/protocol/disco#info'
+         node='http://psi-im.org#8lu+88MRxmKM7yO3MEzY7YmTsWs='>
+    <identity xml:lang='en' category='client' name='Psi 0.9.1' type='pc'/>
+    <identity xml:lang='el' category='client' name='Ψ 0.9.1' type='pc'/>
+    <feature var='http://jabber.org/protocol/disco#info'/>
+    <feature var='http://jabber.org/protocol/disco#items'/>
+    <feature var='http://jabber.org/protocol/muc'/>
+    <x xmlns='jabber:x:data' type='result'>
+      <field var='FORM_TYPE' type='hidden'>
+        <value>urn:xmpp:dataforms:softwareinfo</value>
+      </field>
+      <field var='ip_version'>
+        <value>ipv4</value>
+        <value>ipv6</value>
+      </field>
+      <field var='os'>
+        <value>Mac</value>
+      </field>
+      <field var='os_version'>
+        <value>10.5.1</value>
+      </field>
+      <field var='software'>
+        <value>Psi</value>
+      </field>
+      <field var='software_version'>
+        <value>0.11</value>
+      </field>
+    </x>
+  </query>
+END
+    assert_equal('8lu+88MRxmKM7yO3MEzY7YmTsWs=',
+                 Caps::generate_ver_from_discoinfo(query))
+  end
+end

data/test/delay/tc_xdelay.rb

@@ -26,8 +26,8 @@ class XDelayTest < Test::Unit::TestCase
   def test_from
     d = Delay::XDelay.new
     assert_equal(nil, d.from)
-    d.from = JID::new('astro@spaceboyz.net')
-    assert_equal(JID::new('astro@spaceboyz.net'), d.from)
+    d.from = JID.new('astro@spaceboyz.net')
+    assert_equal(JID.new('astro@spaceboyz.net'), d.from)
     assert_equal(d, d.set_from(nil))
     assert_equal(nil, d.from)
   end

data/test/discovery/tc_responder.rb

@@ -0,0 +1,91 @@
+#!/usr/bin/ruby
+
+$:.unshift File::dirname(__FILE__) + '/../../lib'
+
+require 'test/unit'
+require File::dirname(__FILE__) + '/../lib/clienttester'
+
+require 'xmpp4r/discovery/helper/responder'
+include Jabber
+
+class Discovery::ResponderTest < Test::Unit::TestCase
+  include ClientTester
+
+  def test_new
+    r = Discovery::Responder.new(@client)
+    assert_nil(r.node)
+    assert_equal([], r.identities)
+    assert_equal([], r.features)
+    assert_equal([], r.forms)
+    assert_equal([], r.items)
+  end
+
+  def test_new2
+    r = Discovery::Responder.new(@client, 'xmpp4r',
+                                 [Discovery::Identity.new('client', 'XMPP4R', 'bot'),
+                                  Discovery::Identity.new('pubsub', 'Personal events', 'pep')],
+                                 ['ipv6', Discovery::Feature.new('sslc2s')],
+                                 [Discovery::Item.new('foo@bar', 'Foo', nil), Discovery::Item.new('bar@baz', 'Bar', 'barbaz')])
+    assert_equal('xmpp4r', r.node)
+    assert_equal([Discovery::Identity.new('client', 'XMPP4R', 'bot'),
+                  Discovery::Identity.new('pubsub', 'Personal events', 'pep')], r.identities)
+    assert_equal([Discovery::Feature.new('ipv6'), Discovery::Feature.new('sslc2s')], r.features)
+    assert_equal([], r.forms)
+    assert_equal([Discovery::Item.new('foo@bar', 'Foo', nil), Discovery::Item.new('bar@baz', 'Bar', 'barbaz')], r.items)
+  end
+
+  def test_generate_item
+    r = Discovery::Responder.new(@client, nil, [Discovery::Identity.new('client', 'XMPP4R', 'bot')])
+    assert_equal(Discovery::Item.new(@client.jid, 'XMPP4R'), r.generate_item)
+  end
+
+  def test_query
+    Discovery::Responder.new(@client, nil,
+                             [Discovery::Identity.new('client', 'XMPP4R', 'bot')],
+                             ['ipv6'],
+                             [Discovery::Item.new('foo@bar', 'Foo', nil)])
+
+    iq1 = Iq.new(:get)
+    iq1.add(Discovery::IqQueryDiscoInfo.new)
+    reply1 = @server.send_with_id(iq1)
+    assert_equal(:result, reply1.type)
+    assert_kind_of(Discovery::IqQueryDiscoInfo, reply1.query)
+    assert_nil(reply1.query.node)
+    assert_equal(1, reply1.query.identities.size)
+    assert_equal('XMPP4R', reply1.query.identities[0].iname)
+    assert_equal(['ipv6'], reply1.query.features)
+
+    iq2 = Iq.new(:get)
+    iq2.add(Discovery::IqQueryDiscoItems.new)
+    reply2 = @server.send_with_id(iq2)
+    assert_equal(:result, reply2.type)
+    assert_kind_of(Discovery::IqQueryDiscoItems, reply2.query)
+    assert_nil(reply2.query.node)
+    assert_equal(1, reply2.query.items.size)
+    assert_equal(JID.new('foo@bar'), reply2.query.items[0].jid)
+  end
+
+  def test_linked
+    class << @client
+      remove_method(:jid) # avoids warning
+      def jid
+        JID.new('foo@bar/baz')
+      end
+    end
+    r1 = Discovery::Responder.new(@client, 'child',
+                                   [Discovery::Identity.new('client', 'Child', 'bot')])
+    r2 = Discovery::Responder.new(@client, nil,
+                                   [], [],
+                                   [r1])
+
+    iq = Iq.new(:get)
+    iq.add(Discovery::IqQueryDiscoItems.new)
+    reply = @server.send_with_id(iq)
+    assert_kind_of(Discovery::IqQueryDiscoItems, reply.query)
+    assert_nil(reply.query.node)
+    assert_equal(1, reply.query.items.size)
+    assert_equal(JID.new('foo@bar/baz'), reply.query.items[0].jid)
+    assert_equal('Child', reply.query.items[0].iname)
+    assert_equal('child', reply.query.items[0].node)
+  end
+end

data/test/lib/assert_equal_xml.rb

@@ -0,0 +1,14 @@
+module Test::Unit::Assertions
+  public
+  ##
+  # Like assert_equal, but actual comparision switches parameters to
+  # make use of our attribute order agnostic REXML#==
+  def assert_equal_xml(expected, actual, message=nil)
+    full_message = build_message(message, <<EOT, expected, actual)
+<?> expected but was
+<?>.
+EOT
+    assert_block(full_message) { actual == expected }
+  end
+end
+

data/test/lib/clienttester.rb

@@ -1,9 +1,16 @@
+# =XMPP4R - XMPP Library for Ruby
+# License:: Ruby's license (see the LICENSE file) or GNU GPL, at your option.
+# Website::http://home.gna.org/xmpp4r/
+
 $:.unshift '../lib'
 require 'xmpp4r'
 require 'test/unit'
 require 'socket'
 require 'xmpp4r/semaphore'
 
+# This is sane for tests:
+Thread::abort_on_exception = true
+
 # Turn $VERBOSE off to suppress warnings about redefinition
 oldverbose = $VERBOSE
 $VERBOSE = false
@@ -11,10 +18,9 @@ $VERBOSE = false
 module Jabber
   ##
   # The ClientTester is a mix-in which provides a setup and teardown
-  # method to prepare a Stream object (@client) and two methods
+  # method to prepare a Stream object (@client) and the method
   # interfacing as the "server side":
   # * send(xml):: Send a stanza to @client
-  # * receive:: (Wait and) retrieve a stanza sent by the client (in order)
   #
   # The server side is a stream, too: add your callbacks to @server
   #
@@ -25,15 +31,17 @@ module Jabber
     def setup
       servlisten = TCPServer.new(@@SOCKET_PORT)
       serverwait = Semaphore.new
+      stream = '<stream:stream xmlns:stream="http://etherx.jabber.org/streams">'
+
       Thread.new do
         Thread.current.abort_on_exception = true
         serversock = servlisten.accept
         servlisten.close
         serversock.sync = true
-        @server = Stream.new(true)
+        @server = Stream.new
         @server.add_xml_callback do |xml|
           if xml.prefix == 'stream' and xml.name == 'stream'
-            send('<stream:stream>')
+            send(stream)
             true
           else
             false
@@ -46,10 +54,21 @@ module Jabber
 
       clientsock = TCPSocket.new('localhost', @@SOCKET_PORT)
       clientsock.sync = true
-      @client = Stream.new(true)
+      @client = Stream.new
+#=begin
+      class << @client
+        def jid
+          begin
+            #raise
+          rescue
+            puts $!.backtrace.join("\n")
+          end
+          JID.new('test@test.com/test')
+        end
+      end
+#=end
       @client.start(clientsock)
-
-      @client.send('<stream:stream>') { |reply| true }
+      @client.send(stream) { |reply| true }
 
       @state = 0
       @states = []
@@ -57,7 +76,11 @@ module Jabber
       @state_wait2 = Semaphore.new
       @server.add_stanza_callback { |stanza|
         if @state < @states.size
-          @states[@state].call(stanza)
+          begin
+            @states[@state].call(stanza)
+          rescue
+            puts "Exception in state: #{$!.class}: #{$!}\n#{$!.join("\n")}"
+          end
           @state += 1
           @state_wait2.wait
           @state_wait.run
@@ -78,22 +101,6 @@ module Jabber
       @server.send(xml)
     end
 
-    def receive
-      @receive_lock.lock
-
-      loop {
-        @stanzas_lock.synchronize {
-          if @stanzas.size > 0
-            @receive_lock.unlock
-            return @stanzas.shift
-          end
-        }
-
-        @receive_lock.lock
-        @receive_lock.unlock
-      }
-    end
-
     def state(&block)
       @states << block
     end

data/test/muc/tc_muc_mucclient.rb

@@ -26,7 +26,7 @@ class MUCClientTest < Test::Unit::TestCase
       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' to='hag66@shakespeare.lit/pda' type='error'>" + 
+      send("<presence from='darkcave@macbeth.shakespeare.lit' to='hag66@shakespeare.lit/pda' type='error'>" +
            "<error code='400' type='modify'>" +
            "<jid-malformed xmlns='urn:ietf:params:xml:ns:xmpp-stanzas'/>" +
            "</error></presence>")
@@ -52,7 +52,7 @@ class MUCClientTest < Test::Unit::TestCase
     assert(!m.active?)
     assert_nil(m.room)
 
-    assert_raises(ErrorException) {
+    assert_raises(ServerError) {
       m.join('darkcave@macbeth.shakespeare.lit/thirdwitch')
     }
     wait_state
@@ -110,7 +110,7 @@ class MUCClientTest < Test::Unit::TestCase
 
     m = MUC::MUCClient.new(@client)
     m.my_jid = 'hag66@shakespeare.lit/pda'
-    assert_raises(ErrorException) {
+    assert_raises(ServerError) {
       m.join('darkcave@macbeth.shakespeare.lit/thirdwitch')
     }
     wait_state
@@ -131,7 +131,7 @@ class MUCClientTest < Test::Unit::TestCase
 
     m = MUC::MUCClient.new(@client)
     m.my_jid = 'hag66@shakespeare.lit/pda'
-    assert_raises(ErrorException) {
+    assert_raises(ServerError) {
       m.join('darkcave@macbeth.shakespeare.lit/thirdwitch')
     }
     assert(!m.active?)
@@ -149,7 +149,7 @@ class MUCClientTest < Test::Unit::TestCase
 
     m = MUC::MUCClient.new(@client)
     m.my_jid = 'hag66@shakespeare.lit/pda'
-    assert_raises(ErrorException) {
+    assert_raises(ServerError) {
       m.join('darkcave@macbeth.shakespeare.lit/thirdwitch')
     }
     assert(!m.active?)
@@ -167,7 +167,7 @@ class MUCClientTest < Test::Unit::TestCase
 
     m = MUC::MUCClient.new(@client)
     m.my_jid = 'hag66@shakespeare.lit/pda'
-    assert_raises(ErrorException) {
+    assert_raises(ServerError) {
       m.join('darkcave@macbeth.shakespeare.lit/thirdwitch')
     }
     assert(!m.active?)
@@ -185,7 +185,7 @@ class MUCClientTest < Test::Unit::TestCase
 
     m = MUC::MUCClient.new(@client)
     m.my_jid = 'hag66@shakespeare.lit/pda'
-    assert_raises(ErrorException) {
+    assert_raises(ServerError) {
       m.join('darkcave@macbeth.shakespeare.lit/thirdwitch')
     }
     assert(!m.active?)
@@ -195,14 +195,14 @@ class MUCClientTest < Test::Unit::TestCase
 
   def test_locked_room
     state { |pres|
-      send("<presence from='darkcave@macbeth.shakespeare.lit' to='hag66@shakespeare.lit/pda' type='error'>" + 
+      send("<presence from='darkcave@macbeth.shakespeare.lit' to='hag66@shakespeare.lit/pda' type='error'>" +
            "<error code='404' type='cancel'><item-not-found xmlns='urn:ietf:params:xml:ns:xmpp-stanzas'/></error>" +
            "</presence>")
     }
 
     m = MUC::MUCClient.new(@client)
     m.my_jid = 'hag66@shakespeare.lit/pda'
-    assert_raises(ErrorException) {
+    assert_raises(ServerError) {
       m.join('darkcave@macbeth.shakespeare.lit/thirdwitch')
     }
     assert(!m.active?)
@@ -365,7 +365,7 @@ class MUCClientTest < Test::Unit::TestCase
       messages_client += 1
       message_lock.run
     }
-    
+
     m = MUC::MUCClient.new(@client)
     m.my_jid = 'hag66@shakespeare.lit/pda'
     messages_muc = 0
@@ -425,7 +425,7 @@ class MUCClientTest < Test::Unit::TestCase
     @client.add_presence_callback { |pres|
       presences_client += 1
       presence_lock.run
-    }   
+    }
     m = MUC::MUCClient.new(@client)
     m.my_jid = 'hag66@shakespeare.lit/pda'
     presences_join = 0
@@ -522,7 +522,7 @@ class MUCClientTest < Test::Unit::TestCase
       assert_equal(JID.new('darkcave@macbeth.shakespeare.lit/firstwitch'), stanza.to)
       assert_equal('Third message', stanza.body)
     }
-    
+
     m = MUC::MUCClient.new(@client)
     m.my_jid = 'hag66@shakespeare.lit/pda'
 
@@ -579,7 +579,7 @@ class MUCClientTest < Test::Unit::TestCase
     assert(m.active?)
     assert_equal('thirdwitch', m.nick)
 
-    assert_raises(ErrorException) {
+    assert_raises(ServerError) {
       m.nick = 'secondwitch'
     }
     wait_state
@@ -591,4 +591,240 @@ class MUCClientTest < Test::Unit::TestCase
     assert(m.active?)
     assert_equal('oldhag', m.nick)
   end
+
+  # JEP-0045: 10.2 Room Configuration
+  def test_configuration
+    room = JID.new('darkcave@macbeth.shakespeare.lit/thirdwitch')
+    jid = JID.new('hag66@shakespeare.lit/pda')
+
+    state { |pres|
+      send(
+          "<presence from='darkcave@macbeth.shakespeare.lit/thirdwitch' to='hag66@shakespeare.lit/pda'>" +
+          "<x xmlns='http://jabber.org/protocol/muc#user'><item affiliation='owner' role='moderator'/></x>" +
+          "</presence>"
+      )
+    }
+
+    state { |iq|
+      assert_kind_of(Jabber::Iq,iq)
+      assert_equal(jid, iq.from)
+      assert_equal(room.strip, iq.to)
+      assert_equal(:get, iq.type)
+
+      assert_kind_of(Jabber::MUC::IqQueryMUCOwner, iq.first_element('query'))
+
+      send(muc_config_form.sub("id='config1'","id='#{iq.id}'"))
+    }
+
+    state { |room_config|
+      assert_kind_of(Jabber::Iq, room_config)
+      assert_equal(room.strip, room_config.to)
+      assert_equal(:set, room_config.type)
+
+      assert_kind_of(Jabber::MUC::IqQueryMUCOwner, room_config.first_element('query'))
+
+      form = room_config.first_element('query/x')
+      assert_kind_of(Dataforms::XData, form)
+      assert_equal(:submit, form.type)
+      assert_equal(1, form.elements.size)
+      assert_equal('muc#roomconfig_roomname', form.first_element('field').var)
+      assert_equal(['Dunsinane'], form.first_element('field').values)
+
+      send(muc_config_acknowledgement.sub("id='config1'","id='#{room_config.id}'"))
+    }
+
+    m = MUC::MUCClient.new(@client)
+    m.my_jid = jid
+    m.join(room)
+    wait_state
+    assert_equal(true, m.owner?)
+
+    assert_equal(%w{muc#roomconfig_roomname muc#roomconfig_roomdesc
+      muc#roomconfig_enablelogging muc#roomconfig_changesubject muc#roomconfig_allowinvites
+      muc#roomconfig_maxusers muc#roomconfig_presencebroadcast muc#roomconfig_getmemberlist
+      muc#roomconfig_publicroom muc#roomconfig_persistentroom muc#roomconfig_moderatedroom
+      muc#roomconfig_membersonly muc#roomconfig_passwordprotectedroom muc#roomconfig_roomsecret
+      muc#roomconfig_whois muc#roomconfig_roomadmins muc#roomconfig_roomowners}, m.get_room_configuration)
+    wait_state
+
+    m.submit_room_configuration( 'muc#roomconfig_roomname' => 'Dunsinane' )
+    wait_state
+  end
+
+  # example 150 from XEP-0045
+  def muc_config_form
+      "<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>
+            <field
+                label='Short Description of Room'
+                type='text-single'
+                var='muc#roomconfig_roomdesc'>
+              <value>The place for all good witches!</value>
+            </field>
+            <field
+                label='Enable Public Logging?'
+                type='boolean'
+                var='muc#roomconfig_enablelogging'>
+              <value>0</value>
+            </field>
+            <field
+                label='Allow Occupants to Change Subject?'
+                type='boolean'
+                var='muc#roomconfig_changesubject'>
+              <value>0</value>
+            </field>
+            <field
+                label='Allow Occupants to Invite Others?'
+                type='boolean'
+                var='muc#roomconfig_allowinvites'>
+              <value>0</value>
+            </field>
+            <field
+                label='Maximum Number of Occupants'
+                type='list-single'
+                var='muc#roomconfig_maxusers'>
+              <value>10</value>
+              <option label='10'><value>10</value></option>
+              <option label='20'><value>20</value></option>
+              <option label='30'><value>30</value></option>
+              <option label='50'><value>50</value></option>
+              <option label='100'><value>100</value></option>
+              <option label='None'><value>none</value></option>
+            </field>
+            <field
+                label='Roles for which Presence is Broadcast'
+                type='list-multi'
+                var='muc#roomconfig_presencebroadcast'>
+              <value>moderator</value>
+              <value>participant</value>
+              <value>visitor</value>
+              <option label='Moderator'><value>moderator</value></option>
+              <option label='Participant'><value>participant</value></option>
+              <option label='Visitor'><value>visitor</value></option>
+            </field>
+            <field
+                label='Roles and Affiliations that May Retrieve Member List'
+                type='list-multi'
+                var='muc#roomconfig_getmemberlist'>
+              <value>moderator</value>
+              <value>participant</value>
+              <value>visitor</value>
+              <option label='Moderator'><value>moderator</value></option>
+              <option label='Participant'><value>participant</value></option>
+              <option label='Visitor'><value>visitor</value></option>
+            </field>
+            <field
+                label='Make Room Publicly Searchable?'
+                type='boolean'
+                var='muc#roomconfig_publicroom'>
+              <value>0</value>
+            </field>
+            <field
+                label='Make Room Persistent?'
+                type='boolean'
+                var='muc#roomconfig_persistentroom'>
+              <value>0</value>
+            </field>
+            <field
+                label='Make Room Moderated?'
+                type='boolean'
+                var='muc#roomconfig_moderatedroom'>
+              <value>0</value>
+            </field>
+            <field
+                label='Make Room Members Only?'
+                type='boolean'
+                var='muc#roomconfig_membersonly'>
+              <value>0</value>
+            </field>
+            <field
+                label='Password Required for Entry?'
+                type='boolean'
+                var='muc#roomconfig_passwordprotectedroom'>
+              <value>1</value>
+            </field>
+            <field type='fixed'>
+              <value>
+                If a password is required to enter this room,
+                you must specify the password below.
+              </value>
+            </field>
+            <field
+                label='Password'
+                type='text-private'
+                var='muc#roomconfig_roomsecret'>
+              <value>cauldronburn</value>
+            </field>
+            <field
+                label='Who May Discover Real JIDs?'
+                type='list-single'
+                var='muc#roomconfig_whois'>
+              <value>moderators</value>
+              <option label='Moderators Only'>
+                <value>moderators</value>
+              </option>
+              <option label='Anyone'>
+                <value>anyone</value>
+              </option>
+            </field>
+            <field type='fixed'>
+              <value>
+                You may specify additional people who have
+                administrative privileges in the room. Please
+                provide one Jabber ID per line.
+              </value>
+            </field>
+            <field
+                label='Room Admins'
+                type='jid-multi'
+                var='muc#roomconfig_roomadmins'>
+              <value>wiccarocks@shakespeare.lit</value>
+              <value>hecate@shakespeare.lit</value>
+            </field>
+            <field type='fixed'>
+              <value>
+                You may specify additional owners for this
+                room. Please provide one Jabber ID per line.
+              </value>
+            </field>
+            <field
+                label='Room Owners'
+                type='jid-multi'
+                var='muc#roomconfig_roomowners'/>
+          </x>
+        </query>
+      </iq>"
+  end
+
+  def muc_config_acknowledgement
+      "<iq from='darkcave@macbeth.shakespeare.lit'
+          id='config1'
+          to='crone1@shakespeare.lit/desktop'>
+        <query xmlns='http://jabber.org/protocol/muc#owner'>
+          <x xmlns='jabber:x:data' type='result'>
+            <field var='muc#roomconfig_roomname'><value>Dunsinane</value></field>
+          </x>
+        </query>
+      </iq>"
+  end
 end