require 'test/unit/testcase'
require 'rexml/document'

class ElementsTester < Test::Unit::TestCase
  include REXML
  def test_elements_accessor
    doc = Document.new '<a><b/><c id="1"/><c id="2"/><d/></a>'
    assert_equal 'b', doc.root.elements[1].name
    assert_equal '1', doc.root.elements['c'].attributes['id']
    assert_equal '2', doc.root.elements[2,'c'].attributes['id']
  end

  def test_elements_indexing
    doc = Document.new '<a/>'
    doc.root.elements[10] = Element.new('b')
    assert_equal 'b', doc.root.elements[1].name
    doc.root.elements[1] = Element.new('c')
    assert_equal 'c', doc.root.elements[1].name
    doc.root.elements['c'] = Element.new('d')
    assert_equal 'd', doc.root.elements[1].name
  end
  
  def test_elements_delete
    doc = Document.new '<a><b/><c/><c id="1"/></a>'
    block = proc { |str| 
      out = ''
      doc.write out
      assert_equal str, out 
    }
    b = doc.root.elements[1]
    doc.root.elements.delete b 
    block.call( "<a><c/><c id='1'/></a>" )
    doc.elements.delete("a/c[@id='1']")
    block.call( '<a><c/></a>' )
    doc.root.elements.delete 1
    block.call( '<a/>' )
  end

  def test_elements_delete_all
    doc = Document.new '<a><c/><c/><c/><c/></a>'
    deleted = doc.elements.delete_all 'a/c'
    assert_equal 4, deleted.size
  end

  def test_ticket_36
    doc = Document.new( "<a xmlns:xi='foo'><b><xi:c id='1'/></b><xi:c id='2'/></a>" )

    deleted = doc.root.elements.delete_all( "xi:c" )
    assert_equal( 1, deleted.size )

    doc = Document.new( "<a xmlns:xi='foo'><b><xi:c id='1'/></b><xi:c id='2'/></a>" )
    deleted = doc.root.elements.delete_all( "//xi:c" )
    assert_equal( 2, deleted.size )
  end

  def test_elements_add
    a = Element.new 'a'
    a.elements.add Element.new('b')
    assert_equal 'b', a.elements[1].name
    a.elements.add 'c'
    assert_equal 'c', a.elements[2].name
  end

  def test_elements_size
    doc = Document.new '<a>sean<b/>elliott<b/>russell<b/></a>'
    assert_equal 6, doc.root.size
    assert_equal 3, doc.root.elements.size
  end

  def test_elements_each
    doc = Document.new '<a><b/><c/><d/>sean<b/><c/><d/></a>'
    count = 0
    block = proc {|e| count += 1}
    doc.root.elements.each(&block)
    assert_equal 6, count
    count = 0
    doc.root.elements.each('b', &block)
    assert_equal 2, count
    count = 0
    doc.root.elements.each('child::node()', &block)
    assert_equal 6, count
    count = 0
    XPath.each(doc.root, 'child::node()', &block)
    assert_equal 7, count
  end

  def test_elements_to_a
    doc = Document.new '<a>sean<b/>elliott<c/></a>'
    assert_equal 2, doc.root.elements.to_a.size
    assert_equal 2, doc.root.elements.to_a("child::node()").size
    assert_equal 4, XPath.match(doc.root, "child::node()").size
  end
  
  def test_elements_collect
    doc = Document.new( "<a><b id='1'/><b id='2'/></a>" )
    r = doc.elements.collect( "/a/b" ) { |e| e.attributes["id"].to_i }
    assert_equal( [1,2], r )
  end
  
  def test_elements_inject
    doc = Document.new( "<a><b id='1'/><b id='2'/></a>" )
    r = doc.elements.inject( "/a/b", 3 ) { |s, e|
      s + e.attributes["id"].to_i
    }
    assert_equal 6, r
  end
end
