require File.join(File.dirname(__FILE__), *%w[.. .. .. .. spec_helper])

def disco_items_xml
  <<-XML
  <iq type='result'
      from='catalog.shakespeare.lit'
      to='romeo@montague.net/orchard'
      id='items2'>
    <query xmlns='http://jabber.org/protocol/disco#items'>
      <item jid='catalog.shakespeare.lit'
            node='books'
            name='Books by and about Shakespeare'/>
      <item jid='catalog.shakespeare.lit'
            node='clothing'
            name='Wear your literary taste with pride'/>
      <item jid='catalog.shakespeare.lit'
            node='music'
            name='Music from the time of Shakespeare'/>
    </query>
  </iq>
  XML
end

describe 'Blather::Stanza::Iq::DiscoItems' do
  it 'registers itself' do
    XMPPNode.class_from_registration(:query, 'http://jabber.org/protocol/disco#items').must_equal Blather::Stanza::Iq::DiscoItems
  end

  it 'has a node attribute' do
    n = Blather::Stanza::Iq::DiscoItems.new nil, 'music', []
    n.node.must_equal 'music'
    n.node = :foo
    n.node.must_equal 'foo'
  end

  it 'inherits a list of identities' do
    n = XML::Document.string disco_items_xml
    r = Stanza::Iq::DiscoItems.new.inherit n.root
    r.items.size.must_equal 3
    r.items.map { |i| i.class }.uniq.must_equal [Stanza::Iq::DiscoItems::Item]
  end
end

describe 'Blather::Stanza::Iq::DiscoItems items' do
  it 'takes a list of hashes for items' do
    items = [
      {:jid => 'foo@bar/baz', :node => 'node', :name => 'name'},
      {:jid => 'baz@foo/bar', :node => 'node1', :name => 'name1'},
    ]

    control = [ Stanza::Iq::DiscoItems::Item.new(*%w[foo@bar/baz node name]),
                Stanza::Iq::DiscoItems::Item.new(*%w[baz@foo/bar node1 name1])]

    di = Stanza::Iq::DiscoItems.new nil, nil, items
    di.items.size.must_equal 2
    di.items.each { |i| control.include?(i).must_equal true }
  end

  it 'takes a list of Item objects as items' do
    control = [ Stanza::Iq::DiscoItems::Item.new(*%w[foo@bar/baz node name]),
                Stanza::Iq::DiscoItems::Item.new(*%w[baz@foo/bar node1 name1])]

    di = Stanza::Iq::DiscoItems.new nil, nil, control
    di.items.size.must_equal 2
    di.items.each { |i| control.include?(i).must_equal true }
  end

  it 'takes a single hash as identity' do
    control = [Stanza::Iq::DiscoItems::Item.new(*%w[foo@bar/baz node name])]

    di = Stanza::Iq::DiscoItems.new nil, nil, {:jid => 'foo@bar/baz', :node => 'node', :name => 'name'}
    di.items.size.must_equal 1
    di.items.each { |i| control.include?(i).must_equal true }
  end

  it 'takes a single identity object as identity' do
    control = [Stanza::Iq::DiscoItems::Item.new(*%w[foo@bar/baz node name])]

    di = Stanza::Iq::DiscoItems.new nil, nil, control.first
    di.items.size.must_equal 1
    di.items.each { |i| control.include?(i).must_equal true }
  end

  it 'takes a mix of hashes and identity objects as items' do
    items = [
      {:jid => 'foo@bar/baz', :node => 'node', :name => 'name'},
      Stanza::Iq::DiscoItems::Item.new(*%w[baz@foo/bar node1 name1]),
    ]

    control = [ Stanza::Iq::DiscoItems::Item.new(*%w[foo@bar/baz node name]),
                Stanza::Iq::DiscoItems::Item.new(*%w[baz@foo/bar node1 name1])]

    di = Stanza::Iq::DiscoItems.new nil, nil, items
    di.items.size.must_equal 2
    di.items.each { |i| control.include?(i).must_equal true }
  end
end

describe 'Blather::Stanza::Iq::DiscoItems::Item' do
  it 'will auto-inherit nodes' do
    n = XML::Document.string "<item jid='foo@bar/baz' node='music' name='Music from the time of Shakespeare' />"
    i = Stanza::Iq::DiscoItems::Item.new n.root
    i.jid.must_equal JID.new('foo@bar/baz')
    i.node.must_equal 'music'
    i.name.must_equal 'Music from the time of Shakespeare'
  end

  it 'has a jid attribute' do
    n = Stanza::Iq::DiscoItems::Item.new 'foo@bar/baz'
    n.jid.must_be_kind_of JID
    n.jid.must_equal JID.new('foo@bar/baz')
    n.jid = 'baz@foo/bar'
    n.jid.must_equal JID.new('baz@foo/bar')
  end

  it 'has a node attribute' do
    n = Stanza::Iq::DiscoItems::Item.new 'foo@bar/baz', 'music'
    n.node.must_equal 'music'
    n.node = 'book'
    n.node.must_equal 'book'
  end

  it 'has a name attribute' do
    n = Stanza::Iq::DiscoItems::Item.new 'foo@bar/baz', nil, 'Music from the time of Shakespeare'
    n.name.must_equal 'Music from the time of Shakespeare'
    n.name = 'Books by and about Shakespeare'
    n.name.must_equal 'Books by and about Shakespeare'
  end

  it 'can determine equality' do
    a = Stanza::Iq::DiscoItems::Item.new('foo@bar/baz')
    a.must_respond_to :eql?
    a.must_equal Stanza::Iq::DiscoItems::Item.new('foo@bar/baz')
    a.wont_equal "<item jid='foo@bar/baz' node='music' name='Music from the time of Shakespeare' />"
  end
end