RubyGems - xmpp4r - Versions diffs - 0.3 - Mend

xmpp4r 0.3

Files changed (142) hide show

data/COPYING +340 -0
data/ChangeLog +28 -0
data/LICENSE +59 -0
data/README +20 -0
data/Rakefile +103 -0
data/UPDATING +40 -0
data/data/doc/xmpp4r/examples/advanced/adventure/README +57 -0
data/data/doc/xmpp4r/examples/advanced/adventure/adventure.rb +23 -0
data/data/doc/xmpp4r/examples/advanced/adventure/adventuremuc.rb +136 -0
data/data/doc/xmpp4r/examples/advanced/adventure/cube.xml +15 -0
data/data/doc/xmpp4r/examples/advanced/adventure/tower.xml +69 -0
data/data/doc/xmpp4r/examples/advanced/adventure/world.rb +425 -0
data/data/doc/xmpp4r/examples/advanced/fileserve.conf +11 -0
data/data/doc/xmpp4r/examples/advanced/fileserve.rb +344 -0
data/data/doc/xmpp4r/examples/advanced/getonline.rb +56 -0
data/data/doc/xmpp4r/examples/advanced/gtkmucclient.rb +315 -0
data/data/doc/xmpp4r/examples/advanced/migrate.rb +89 -0
data/data/doc/xmpp4r/examples/advanced/minimuc.rb +266 -0
data/data/doc/xmpp4r/examples/advanced/recvfile.rb +83 -0
data/data/doc/xmpp4r/examples/advanced/rosterdiscovery.rb +130 -0
data/data/doc/xmpp4r/examples/advanced/sendfile.conf +10 -0
data/data/doc/xmpp4r/examples/advanced/sendfile.rb +72 -0
data/data/doc/xmpp4r/examples/advanced/shellmgr/shellmgr.rb +51 -0
data/data/doc/xmpp4r/examples/advanced/shellmgr/shellmgr_jabber.rb +43 -0
data/data/doc/xmpp4r/examples/advanced/shellmgr/shellmgr_test.rb +10 -0
data/data/doc/xmpp4r/examples/advanced/versionpoll.rb +90 -0
data/data/doc/xmpp4r/examples/advanced/xmpping.rb +134 -0
data/data/doc/xmpp4r/examples/advanced/xmppingrc.sample +9 -0
data/data/doc/xmpp4r/examples/basic/change_password.rb +41 -0
data/data/doc/xmpp4r/examples/basic/client.rb +68 -0
data/data/doc/xmpp4r/examples/basic/component.rb +11 -0
data/data/doc/xmpp4r/examples/basic/echo_nonthreaded.rb +32 -0
data/data/doc/xmpp4r/examples/basic/echo_threaded.rb +32 -0
data/data/doc/xmpp4r/examples/basic/jabbersend.rb +41 -0
data/data/doc/xmpp4r/examples/basic/mass_sender.rb +67 -0
data/data/doc/xmpp4r/examples/basic/mucinfo.rb +39 -0
data/data/doc/xmpp4r/examples/basic/mucsimplebot.rb +83 -0
data/data/doc/xmpp4r/examples/basic/register.rb +25 -0
data/data/doc/xmpp4r/examples/basic/remove_registration.rb +18 -0
data/data/doc/xmpp4r/examples/basic/roster.rb +42 -0
data/data/doc/xmpp4r/examples/basic/rosterprint.rb +50 -0
data/data/doc/xmpp4r/examples/basic/rosterrename.rb +34 -0
data/data/doc/xmpp4r/examples/basic/rosterwatch.rb +172 -0
data/data/doc/xmpp4r/examples/basic/send_vcard.rb +68 -0
data/data/doc/xmpp4r/examples/basic/versionbot.rb +75 -0
data/data/doc/xmpp4r/examples/buggy/jabber2jabber/jabber2jabber.rb +18 -0
data/data/doc/xmpp4r/examples/buggy/miniedgarr_cgi.rb +192 -0
data/data/doc/xmpp4r/examples/buggy/miniedgarr_watch.rb +82 -0
data/lib/callbacks.rb +122 -0
data/lib/xmpp4r/authenticationfailure.rb +13 -0
data/lib/xmpp4r/bytestreams/helper/filetransfer.rb +315 -0
data/lib/xmpp4r/bytestreams/helper/ibb/base.rb +256 -0
data/lib/xmpp4r/bytestreams/helper/ibb/initiator.rb +30 -0
data/lib/xmpp4r/bytestreams/helper/ibb/target.rb +46 -0
data/lib/xmpp4r/bytestreams/helper/socks5bytestreams/base.rb +151 -0
data/lib/xmpp4r/bytestreams/helper/socks5bytestreams/initiator.rb +85 -0
data/lib/xmpp4r/bytestreams/helper/socks5bytestreams/server.rb +178 -0
data/lib/xmpp4r/bytestreams/helper/socks5bytestreams/socks5.rb +56 -0
data/lib/xmpp4r/bytestreams/helper/socks5bytestreams/target.rb +61 -0
data/lib/xmpp4r/bytestreams/iq/bytestreams.rb +177 -0
data/lib/xmpp4r/bytestreams/iq/si.rb +221 -0
data/lib/xmpp4r/bytestreams.rb +11 -0
data/lib/xmpp4r/client.rb +249 -0
data/lib/xmpp4r/component.rb +103 -0
data/lib/xmpp4r/connection.rb +166 -0
data/lib/xmpp4r/dataforms/x/data.rb +248 -0
data/lib/xmpp4r/dataforms.rb +1 -0
data/lib/xmpp4r/debuglog.rb +34 -0
data/lib/xmpp4r/delay/x/delay.rb +100 -0
data/lib/xmpp4r/delay.rb +1 -0
data/lib/xmpp4r/discovery/iq/discoinfo.rb +225 -0
data/lib/xmpp4r/discovery/iq/discoitems.rb +162 -0
data/lib/xmpp4r/discovery.rb +2 -0
data/lib/xmpp4r/error.rb +230 -0
data/lib/xmpp4r/errorexception.rb +32 -0
data/lib/xmpp4r/feature_negotiation/iq/feature.rb +42 -0
data/lib/xmpp4r/feature_negotiation.rb +1 -0
data/lib/xmpp4r/idgenerator.rb +37 -0
data/lib/xmpp4r/iq.rb +229 -0
data/lib/xmpp4r/jid.rb +167 -0
data/lib/xmpp4r/message.rb +171 -0
data/lib/xmpp4r/muc/helper/mucbrowser.rb +107 -0
data/lib/xmpp4r/muc/helper/mucclient.rb +382 -0
data/lib/xmpp4r/muc/helper/simplemucclient.rb +222 -0
data/lib/xmpp4r/muc/x/muc.rb +98 -0
data/lib/xmpp4r/muc/x/mucuserinvite.rb +58 -0
data/lib/xmpp4r/muc/x/mucuseritem.rb +148 -0
data/lib/xmpp4r/muc.rb +6 -0
data/lib/xmpp4r/presence.rb +255 -0
data/lib/xmpp4r/query.rb +43 -0
data/lib/xmpp4r/rexmladdons.rb +826 -0
data/lib/xmpp4r/roster/helper/roster.rb +514 -0
data/lib/xmpp4r/roster/iq/roster.rb +244 -0
data/lib/xmpp4r/roster/x/roster.rb +155 -0
data/lib/xmpp4r/roster.rb +4 -0
data/lib/xmpp4r/sasl.rb +167 -0
data/lib/xmpp4r/stream.rb +543 -0
data/lib/xmpp4r/streamparser.rb +77 -0
data/lib/xmpp4r/vcard/helper/vcard.rb +86 -0
data/lib/xmpp4r/vcard/iq/vcard.rb +102 -0
data/lib/xmpp4r/vcard.rb +3 -0
data/lib/xmpp4r/version/helper/responder.rb +71 -0
data/lib/xmpp4r/version/helper/simpleresponder.rb +44 -0
data/lib/xmpp4r/version/iq/version.rb +118 -0
data/lib/xmpp4r/version.rb +3 -0
data/lib/xmpp4r/x.rb +43 -0
data/lib/xmpp4r/xmlstanza.rb +174 -0
data/lib/xmpp4r/xmpp4r.rb +16 -0
data/lib/xmpp4r.rb +122 -0
data/setup.rb +1360 -0
data/test/bytestreams/tc_ibb.rb +186 -0
data/test/bytestreams/tc_socks5bytestreams.rb +57 -0
data/test/delay/tc_xdelay.rb +51 -0
data/test/lib/clienttester.rb +110 -0
data/test/muc/tc_muc_mucclient.rb +569 -0
data/test/muc/tc_muc_simplemucclient.rb +72 -0
data/test/roster/.tc_helper.rb.swp +0 -0
data/test/roster/tc_helper.rb +389 -0
data/test/roster/tc_iqqueryroster.rb +140 -0
data/test/roster/tc_xroster.rb +70 -0
data/test/tc_callbacks.rb +128 -0
data/test/tc_class_names.rb +129 -0
data/test/tc_client.rb +30 -0
data/test/tc_error.rb +103 -0
data/test/tc_idgenerator.rb +30 -0
data/test/tc_iq.rb +109 -0
data/test/tc_iqquery.rb +31 -0
data/test/tc_jid.rb +202 -0
data/test/tc_message.rb +114 -0
data/test/tc_presence.rb +148 -0
data/test/tc_stream.rb +182 -0
data/test/tc_streamError.rb +87 -0
data/test/tc_streamSend.rb +59 -0
data/test/tc_streamThreaded.rb +168 -0
data/test/tc_xmlstanza.rb +76 -0
data/test/ts_xmpp4r.rb +34 -0
data/test/vcard/tc_iqvcard.rb +52 -0
data/test/version/tc_helper.rb +46 -0
data/test/version/tc_iqqueryversion.rb +96 -0
data/tools/doctoweb.bash +30 -0
data/tools/gen_requires.bash +10 -0
metadata +232 -0

data/test/tc_streamError.rb ADDED Viewed

@@ -0,0 +1,87 @@
+#!/usr/bin/ruby
+$:.unshift '../lib'
+require 'test/unit'
+require 'socket'
+require 'xmpp4r/client'
+include Jabber
+class ConnectionErrorTest < Test::Unit::TestCase
+  def test_connectionError_start_withexcblock
+    @conn, @server = IO.pipe
+    @stream = Stream::new(false)
+    error = false
+    @stream.on_exception do |e, o, w|
+      assert_equal(RuntimeError, e.class)
+      assert_equal(Jabber::Stream, o.class)
+      assert_equal(:start, w)
+      error = true
+    end
+    assert(!error)
+    @stream.start(nil)
+    sleep 0.2
+    assert(error)
+    @server.close
+    @stream.close
+  end
+  def test_connectionError_parse_withexcblock
+    @conn, @server = IO.pipe
+    @stream = Stream::new(false)
+    error = false
+    @stream.start(@conn)
+    @stream.on_exception do |e, o, w|
+      assert_equal(REXML::ParseException, e.class)
+      assert_equal(Jabber::Stream, o.class)
+      assert_equal(:parser, w)
+      error = true
+    end
+    @server.puts('<stream:stream>')
+    @server.flush
+    assert(!error)
+    assert_raise(Errno::EPIPE) {
+      @server.puts('</blop>')
+    }
+    @server.flush
+    sleep 0.2
+    assert(error)
+    @server.close
+    @stream.close
+  end
+  def test_connectionError_send_withexcblock
+    @conn, @server = IO.pipe
+    @stream = Stream::new(false)
+    error = false
+    @stream.start(@conn)
+    @stream.on_exception do |e, o, w|
+      assert_equal(IOError, e.class)
+      assert_equal(Jabber::Stream, o.class)
+      assert_equal(:sending, w)
+      error = true
+    end
+    @server.puts('<stream:stream>')
+    @server.flush
+    assert(!error)
+    @stream.send('</test>')
+    sleep 0.2
+    assert(error)
+    @server.close
+    @stream.close
+  end
+  def test_connectionError_send_withoutexcblock
+    @conn, @server = IO.pipe
+    @stream = Stream::new(false)
+    @stream.start(@conn)
+    @server.puts('<stream:stream>')
+    @server.flush
+    assert_raise(IOError) { @stream.send('</test>') }
+    @server.close
+    @stream.close
+  end
+end

data/test/tc_streamSend.rb ADDED Viewed

@@ -0,0 +1,59 @@
+#!/usr/bin/ruby
+$:.unshift '../lib'
+require 'test/unit'
+require 'socket'
+require 'tempfile'
+require 'io/wait'
+require 'xmpp4r'
+include Jabber
+class StreamSendTest < Test::Unit::TestCase
+  def setup
+    @tmpfile = Tempfile::new("StreamSendTest")
+    @tmpfilepath = @tmpfile.path()
+    @tmpfile.unlink
+    @servlisten = UNIXServer::new(@tmpfilepath)
+    thServer = Thread.new { @server = @servlisten.accept }
+    @iostream = UNIXSocket::new(@tmpfilepath)
+    @stream = Stream::new(false)
+    @stream.start(@iostream)
+    thServer.join
+  end
+  def teardown
+    @stream.close
+    @server.close
+    @servlisten.close
+  end
+  def mysend(s)
+    @stream.send(s)
+    @stream.send("\n") #needed for easy test writing
+  end
+  ##
+  # Tries to send a basic message
+  def test_sendbasic
+    mysend(Message::new)
+    assert_equal("<message/>\n", @server.gets)
+  end
+  def test_sendmessage
+    mysend(Message::new('lucas@linux.ensimag.fr', 'coucou'))
+    assert_equal("<message to='lucas@linux.ensimag.fr'><body>coucou</body></message>\n", @server.gets)
+  end
+  def test_sendpresence
+    mysend(Presence::new)
+    assert_equal("<presence/>\n", @server.gets)
+  end
+  def test_sendiq
+    mysend(Iq::new)
+    assert_equal("<iq/>\n", @server.gets)
+  end
+end

data/test/tc_streamThreaded.rb ADDED Viewed

@@ -0,0 +1,168 @@
+#!/usr/bin/ruby
+$:.unshift '../lib'
+require 'tempfile'
+require 'test/unit'
+require 'socket'
+require 'xmpp4r/stream'
+include Jabber
+class StreamThreadedTest < Test::Unit::TestCase
+  def setup
+    @tmpfile = Tempfile::new("StreamSendTest")
+    @tmpfilepath = @tmpfile.path()
+    @tmpfile.unlink
+    @servlisten = UNIXServer::new(@tmpfilepath)
+    thServer = Thread.new { @server = @servlisten.accept }
+    @iostream = UNIXSocket::new(@tmpfilepath)
+    n = 0
+    while not defined? @server and n < 10
+      sleep 0.1
+      n += 1
+    end
+    @stream = Stream::new
+    @stream.start(@iostream)
+  end
+  def teardown
+    @stream.close
+    @server.close
+  end
+  ##
+  # tests that connection really waits the call to process() to dispatch
+  # stanzas to filters
+  def test_process
+    called = false
+    @stream.add_xml_callback { called = true }
+    assert(!called)
+    @server.puts('<stream:stream>')
+    @server.flush
+    assert(called)
+  end
+  def test_process100
+    @server.puts('<stream:stream>')
+    @server.flush
+    n = 0
+    @stream.add_message_callback { n += 1 }
+    100.times {
+      @server.puts('<message/>')
+      @server.flush
+    }
+    assert_equal(100, n)
+    @server.puts('<message/>' * 100)
+    @server.flush
+    sleep 0.1
+    assert_equal(200, n)
+  end
+  def test_send
+    @server.puts('<stream:stream>')
+    @server.flush
+    Thread.new {
+      assert_equal(Iq.new(:get).to_s, @server.gets('>'))
+      @stream.receive(Iq.new(:result))
+    }
+    called = 0
+    @stream.send(Iq.new(:get)) { |reply|
+      called += 1
+      if reply.kind_of? Iq and reply.type == :result
+        true
+      else
+        false
+      end
+    }
+    assert_equal(1, called)
+  end
+  def test_send_nested
+    @server.puts('<stream:stream>')
+    @server.flush
+    finished = Mutex.new
+    finished.lock
+    Thread.new {
+      assert_equal(Iq.new(:get).to_s, @server.gets('>'))
+      @server.puts(Iq.new(:result).set_id('1').to_s)
+      @server.flush
+      assert_equal(Iq.new(:set).to_s, @server.gets('>'))
+      @server.puts(Iq.new(:result).set_id('2').to_s)
+      @server.flush
+      assert_equal(Iq.new(:get).to_s, @server.gets('>'))
+      @server.puts(Iq.new(:result).set_id('3').to_s)
+      @server.flush
+      finished.unlock
+    }
+    called_outer = 0
+    called_inner = 0
+    @stream.send(Iq.new(:get)) { |reply|
+      called_outer += 1
+      assert_kind_of(Iq, reply)
+      assert_equal(:result, reply.type)
+      if reply.id == '1'
+        @stream.send(Iq.new(:set)) { |reply|
+          called_inner += 1
+          assert_kind_of(Iq, reply)
+          assert_equal(:result, reply.type)
+          assert_equal('2', reply.id)
+          @stream.send(Iq.new(:get))
+          true
+        }
+        false
+      elsif reply.id == '3'
+        true
+      else
+        false
+      end
+    }
+    assert_equal(2, called_outer)
+    assert_equal(1, called_inner)
+    finished.lock
+  end
+  def test_bidi
+    @server.puts('<stream:stream>')
+    @server.flush
+    finished = Mutex.new
+    ok = true
+    Thread.new {
+      100.times { |i|
+        ok &&= (Iq.new(:get).set_id(i).to_s == @server.gets('>'))
+        @server.puts(Iq.new(:result).set_id(i).to_s)
+        @server.flush
+      }
+      finished.unlock
+    }
+    100.times { |i|
+      @stream.send(Iq.new(:get).set_id(i)) { |reply|
+        ok &&= reply.kind_of? Iq
+        ok &&= (:result == reply.type)
+        ok &&= (i.to_s == reply.id)
+        true
+      }
+    }
+    assert(ok)
+    2.times { finished.lock }
+  end
+end

data/test/tc_xmlstanza.rb ADDED Viewed

@@ -0,0 +1,76 @@
+#!/usr/bin/ruby
+$:.unshift '../lib'
+require 'test/unit'
+require 'socket'
+require 'xmpp4r/rexmladdons'
+require 'xmpp4r/xmlstanza'
+require 'xmpp4r/iq'
+include Jabber
+class XMLStanzaTest < Test::Unit::TestCase
+  def test_from
+    x = XMLStanza::new("message")
+    assert_equal(nil, x.from)
+    assert_equal(x, x.set_from("blop"))
+    assert_equal("blop", x.from.to_s)
+    x.from = "tada"
+    assert_equal("tada", x.from.to_s)
+  end
+  def test_to
+    x = XMLStanza::new("message")
+    assert_equal(nil, x.to)
+    assert_equal(x, x.set_to("blop"))
+    assert_equal("blop", x.to.to_s)
+    x.to = "tada"
+    assert_equal("tada", x.to.to_s)
+  end
+  def test_id
+    x = XMLStanza::new("message")
+    assert_equal(nil, x.id)
+    assert_equal(x, x.set_id("blop"))
+    assert_equal("blop", x.id)
+    x.id = "tada"
+    assert_equal("tada", x.id)
+  end
+  def test_type
+    x = XMLStanza::new("message")
+    assert_equal(nil, x.type)
+    assert_equal(x, x.set_type("blop"))
+    assert_equal("blop", x.type)
+    x.type = "tada"
+    assert_equal("tada", x.type)
+  end
+  def test_import
+    x = XMLStanza::new("iq")
+    x.id = "heya"
+    q = x.add_element("query")
+    q.add_namespace("about:blank")
+    q.add_element("b").text = "I am b"
+    q.add_text("I am text")
+    q.add_element("a").add_attribute("href", "http://home.gna.org/xmpp4r/")
+    x.add_text("yow")
+    x.add_element("query")
+    iq = Iq.import(x)
+    assert_equal(x.id, iq.id)
+    assert_equal(q.to_s, iq.query.to_s)
+    assert_equal(x.to_s, iq.to_s)
+    assert_equal(q.namespace, iq.queryns)
+  end
+  def test_error
+    x = XMLStanza::new("presence")
+    assert_equal(nil, x.error)
+    x.typed_add(REXML::Element.new('error'))
+    assert_equal('<error/>', x.error.to_s)
+    assert_equal(Error, x.error.class)
+  end
+end

data/test/ts_xmpp4r.rb ADDED Viewed

@@ -0,0 +1,34 @@
+#!/usr/bin/ruby -w
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+$:.unshift File.join(File.dirname(__FILE__), '..', 'test')
+$:.unshift File.join(File.dirname(__FILE__), 'lib')
+$:.unshift File.join(File.dirname(__FILE__), 'test')
+require 'tc_streamThreaded'
+require 'bytestreams/tc_ibb'
+require 'bytestreams/tc_socks5bytestreams'
+require 'delay/tc_xdelay'
+require 'muc/tc_muc_simplemucclient'
+require 'muc/tc_muc_mucclient'
+require 'tc_error'
+require 'tc_stream'
+require 'tc_idgenerator'
+require 'tc_iqquery'
+#require 'tc_streamError'
+require 'tc_presence'
+require 'vcard/tc_iqvcard'
+require 'roster/tc_iqqueryroster'
+require 'roster/tc_xroster'
+require 'roster/tc_helper'
+require 'version/tc_iqqueryversion'
+require 'version/tc_helper'
+require 'tc_streamSend'
+require 'tc_jid'
+require 'tc_iq'
+require 'tc_client'
+require 'tc_callbacks'
+require 'tc_xmlstanza'
+require 'tc_message'
+require 'tc_class_names'

data/test/vcard/tc_iqvcard.rb ADDED Viewed

@@ -0,0 +1,52 @@
+#!/usr/bin/ruby
+$:.unshift File::dirname(__FILE__) + '/../../lib'
+require 'test/unit'
+require 'xmpp4r/rexmladdons'
+require 'xmpp4r/vcard/iq/vcard'
+include Jabber
+class IqVcardTest < Test::Unit::TestCase
+  def test_create
+    v = Vcard::IqVcard.new
+    assert_equal([], v.fields)
+  end
+  def test_create_with_fields
+    v = Vcard::IqVcard.new({'FN' => 'B C', 'NICKNAME' => 'D'})
+    assert_equal(['FN', 'NICKNAME'], v.fields.sort)
+    assert_equal('B C', v['FN'])
+    assert_equal('D', v['NICKNAME'])
+    assert_equal(nil, v['x'])
+  end
+  def test_fields
+    v = Vcard::IqVcard.new
+    f = ['a', 'b', 'c', 'd', 'e']
+    f.each { |s|
+      v[s.downcase] = s.upcase
+    }
+    assert_equal(f, v.fields.sort)
+    f.each { |s|
+      assert_equal(s.upcase, v[s.downcase])
+      assert_equal(nil, v[s.upcase])
+    }
+  end
+  def test_deep
+    v = Vcard::IqVcard.new({
+      'FN' => 'John D. Random',
+      'PHOTO/TYPE' => 'image/png',
+      'PHOTO/BINVAL' => '===='})
+      assert_equal(['FN', 'PHOTO/BINVAL', 'PHOTO/TYPE'], v.fields.sort)
+      assert_equal('John D. Random', v['FN'])
+      assert_equal('image/png', v['PHOTO/TYPE'])
+      assert_equal('====', v['PHOTO/BINVAL'])
+      assert_equal(nil, v['PHOTO'])
+      assert_equal(nil, v['NICKNAME'])
+  end
+end

data/test/version/tc_helper.rb ADDED Viewed

@@ -0,0 +1,46 @@
+#!/usr/bin/ruby
+$:.unshift File::dirname(__FILE__) + '/../../lib'
+require 'test/unit'
+require File::dirname(__FILE__) + '/../lib/clienttester'
+require 'xmpp4r'
+require 'xmpp4r/version/helper/responder'
+include Jabber
+class Version::HelperTest < Test::Unit::TestCase
+  include ClientTester
+  def test_create
+    h = Version::Responder::new(@client)
+    assert_kind_of(Version::Responder, h)
+    assert_respond_to(h, :add_version_callback)
+  end
+  def test_callback
+    # Prepare helper
+    h = Version::Responder::new(@client)
+    calls = 0
+    h.add_version_callback { |iq,responder|
+      calls += 1
+      assert('jabber:iq:version', iq.queryns)
+      responder.call('Test program', '1.0', 'Ruby Test::Unit')
+    }
+    # Send stanzas which shouldn't match
+    @server.send("<iq type='set'><query xmlns='jabber:iq:version'/></iq>")
+    @server.send("<iq type='get'><query xmlns='jabber:iq:browse'/></iq>")
+    assert_equal(0, calls)
+    # Send a query
+    @server.send("<iq type='get'><query xmlns='jabber:iq:version'/></iq>") { |reply|
+      assert_equal('Test program', reply.query.iname)
+      assert_equal('1.0', reply.query.version)
+      assert_equal('Ruby Test::Unit', reply.query.os)
+      true
+    }
+    assert_equal(1, calls)
+  end
+end

data/test/version/tc_iqqueryversion.rb ADDED Viewed

@@ -0,0 +1,96 @@
+#!/usr/bin/ruby
+$:.unshift File::dirname(__FILE__) + '/../../lib'
+require 'test/unit'
+require 'xmpp4r/rexmladdons'
+require 'xmpp4r/version/iq/version'
+include Jabber
+class Version::IqQueryVersionTest < Test::Unit::TestCase
+  def test_create_empty
+    x = Version::IqQueryVersion::new
+    assert_equal('jabber:iq:version', x.namespace)
+    assert_equal('', x.iname)
+    assert_equal('', x.version)
+    assert_equal(nil, x.os)
+  end
+  def test_create
+    x = Version::IqQueryVersion::new('my test', 'XP')
+    assert_equal('jabber:iq:version', x.namespace)
+    assert_equal('my test', x.iname)
+    assert_equal('XP', x.version)
+    assert_equal(nil, x.os)
+  end
+  def test_create_with_os
+    x = Version::IqQueryVersion::new('superbot', '1.0-final', 'FreeBSD 5.4-RELEASE-p4')
+    assert_equal('jabber:iq:version', x.namespace)
+    assert_equal('superbot', x.iname)
+    assert_equal('1.0-final', x.version)
+    assert_equal('FreeBSD 5.4-RELEASE-p4', x.os)
+  end
+  def test_import1
+    iq = Iq::new
+    q = REXML::Element::new('query')
+    q.add_namespace('jabber:iq:version')
+    iq.add(q)
+    iq2 = Iq::new.import(iq)
+    assert_equal(Version::IqQueryVersion, iq2.query.class)
+  end
+  def test_import2
+    iq = Iq::new
+    q = REXML::Element::new('query')
+    q.add_namespace('jabber:iq:version')
+    q.add_element('name').text = 'AstroBot'
+    q.add_element('version').text = 'XP'
+    q.add_element('os').text = 'FreeDOS'
+    iq.add(q)
+    iq = Iq::new.import(iq)
+    assert_equal(Version::IqQueryVersion, iq.query.class)
+    assert_equal('AstroBot', iq.query.iname)
+    assert_equal('XP', iq.query.version)
+    assert_equal('FreeDOS', iq.query.os)
+  end
+  def test_replace
+    x = Version::IqQueryVersion::new('name', 'version', 'os')
+    num = 0
+    x.each_element('name') { |e| num += 1 }
+    assert_equal(1, num)
+    num = 0
+    x.each_element('version') { |e| num += 1 }
+    assert_equal(1, num)
+    num = 0
+    x.each_element('os') { |e| num += 1 }
+    assert_equal(1, num)
+    x.set_iname('N').set_version('V').set_os('O')
+    num = 0
+    x.each_element('name') { |e| num += 1 }
+    assert_equal(1, num)
+    num = 0
+    x.each_element('version') { |e| num += 1 }
+    assert_equal(1, num)
+    num = 0
+    x.each_element('os') { |e| num += 1 }
+    assert_equal(1, num)
+    x.set_iname(nil).set_version(nil).set_os(nil)
+    num = 0
+    x.each_element('name') { |e| num += 1 }
+    assert_equal(1, num)
+    num = 0
+    x.each_element('version') { |e| num += 1 }
+    assert_equal(1, num)
+    num = 0
+    x.each_element('os') { |e| num += 1 }
+    assert_equal(0, num)
+  end
+end

data/tools/doctoweb.bash ADDED Viewed

@@ -0,0 +1,30 @@
+#!/bin/bash
+if [ -z $CVSDIR ]; then
+	CVSDIR=$HOME/dev/xmpp4r-web
+fi
+TARGET=$CVSDIR/rdoc
+echo "Copying rdoc documentation to $TARGET."
+if [ ! -d $TARGET ]; then
+	echo "$TARGET doesn't exist, exiting."
+	exit 1
+fi
+rsync -a rdoc/ $TARGET/
+echo "###########################################################"
+echo "CVS status :"
+cd $TARGET
+cvs -q up
+echo "CVS Adding files."
+while [ $(cvs -q up | grep "^? " | wc -l) -gt 0 ]; do
+	cvs add $(cvs -q up | grep "^? " | awk '{print $2}')
+done
+echo "###########################################################"
+echo "CVS status after adding missing files:"
+cvs -q up
+echo "Commit changes now with"
+echo "# (cd $TARGET && cvs commit -m \"rdoc update\")"
+exit 0

data/tools/gen_requires.bash ADDED Viewed

@@ -0,0 +1,10 @@
+#!/bin/bash
+cd lib
+f=$(mktemp)
+echo "strict digraph requirestree { " > $f
+grep -r "^require " * |grep -v svn |grep -v swp | sed "s/^\(.*\).rb:require '\(.*\)'/\1 -> \2;/" | sed 's/\//_/g' >> $f
+echo "}" >> $f
+cd ..
+dot -Tpng $f -o gen_requires.png
+rm -f $f