#!/usr/bin/ruby

$:.unshift '../lib'

require 'test/unit'
require 'socket'
require 'xmpp4r/rexmladdons'
require 'xmpp4r/xmppstanza'
require 'xmpp4r/iq'
require 'xmpp4r/feature_negotiation'
require 'xmpp4r/dataforms'
require 'xmpp4r/errors'
include Jabber

class XMPPStanzaTest < Test::Unit::TestCase

  ##
  # Hack: XMPPStanza derives from XMPPElement
  # which enforces element classes to be named at declaration time
  class MyXMPPStanza < XMPPStanza
    name_xmlns 'stanza', 'http://home.gna.org/xmpp4r'
  end

  class MyStanza < XMPPStanza
  end

  def test_from
    x = MyXMPPStanza.new
    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 = MyXMPPStanza.new
    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 = MyXMPPStanza.new
    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 = MyXMPPStanza.new
    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 = MyXMPPStanza.new
    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")

    assert_raise(RuntimeError) { iq = Iq.import(x) }
    x.name = 'iq'
    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_import2
    feature = FeatureNegotiation::IqFeature.new
    xdata = feature.add(Dataforms::XData.new(:form))
    field = xdata.add(Dataforms::XDataField.new('stream-method', :list_single))

    feature2 = FeatureNegotiation::IqFeature.new.import(feature)
    assert_equal(field.var, feature2.x.fields.first.var)
    assert_equal(field.type, feature2.x.fields.first.type)
  end

  def test_import_xml_entities
    e = REXML::Element.new('e')
    e.text = '&'
    assert_equal('<e>&amp;</e>', e.to_s)

    e2 = REXML::Element.new('e').import(e)
    assert_equal('<e>&amp;</e>', e2.to_s)
  end

  def test_error
    x = MyXMPPStanza.new
    assert_equal(nil, x.error)
    x.typed_add(REXML::Element.new('error'))
    assert_equal('<error/>', x.error.to_s)
    assert_equal(ErrorResponse, x.error.class)
  end

  def test_clone_and_dup
    x = MyXMPPStanza.new
    x.attributes['xyz'] = '123'
    x.text = 'abc'

    assert_equal(x.attributes['xyz'], '123')
    assert_equal(x.text, 'abc')

    x2 = x.clone
    assert_kind_of(MyXMPPStanza, x2)
    assert_equal('123', x2.attributes['xyz'])
    assert_nil(x2.text)

    x3 = x.dup
    assert_kind_of(MyXMPPStanza, x3)
    assert_equal('123', x3.attributes['xyz'])
    assert_equal('abc', x3.text)
  end

  def test_raise
    assert_raises(NoNameXmlnsRegistered) {
      XMPPStanza.name_xmlns_for_class(MyStanza)
    }
  end
end