libxml-jruby 1.0.0

data/test/tc_attributes.rb

@@ -0,0 +1,110 @@
+require 'xml'
+require 'test/unit'
+
+class AttributesTest < Test::Unit::TestCase
+  def setup()
+    xp = XML::Parser.string(<<-EOS)
+    <CityModel
+      xmlns="http://www.opengis.net/examples"
+      xmlns:city="http://www.opengis.net/examples"
+      xmlns:gml="http://www.opengis.net/gml"
+      xmlns:xlink="http://www.w3.org/1999/xlink"
+      xmlns:xsi="http://www.w3.org/2000/10/XMLSchema-instance"
+      xsi:schemaLocation="http://www.opengis.net/examples city.xsd">
+     <cityMember name="Cambridge" 
+                 xlink:type="simple"
+                 xlink:title="Trinity Lane"
+                 xlink:href="http://www.foo.net/cgi-bin/wfs?FeatureID=C10239"
+                 gml:remoteSchema="city.xsd#xpointer(//complexType[@name='RoadType'])"/>
+    </CityModel>
+    EOS
+    
+    @doc = xp.parse
+  end
+  
+  def teardown()
+    @doc = nil
+  end
+  
+  def city_member
+    @doc.find('/city:CityModel/city:cityMember').first
+  end
+
+  def test_attributes
+    attributes = city_member.attributes
+    assert_instance_of(XML::Attributes, attributes)
+    assert_equal(5, attributes.length)
+  end
+  
+  def test_each
+    attributes = city_member.attributes
+    length = attributes.inject(0) do |result, attr|
+      assert_instance_of(XML::Attr, attr)
+      result + 1
+    end
+    assert_equal(5, length)
+  end
+
+  def test_get_attribute
+    attributes = city_member.attributes
+    
+    attr = attributes.get_attribute('name')
+    assert_instance_of(XML::Attr, attr)
+    
+    attr = attributes.get_attribute('does_not_exist')
+    assert_nil(attr)
+    
+    attr = attributes.get_attribute('name')
+    assert_instance_of(XML::Attr, attr)
+    
+    # FIXME Namespaced attribute, without namespace specified
+    # attr = attributes.get_attribute('href')
+    # assert_instance_of(XML::Attr, attr)
+    # assert_instance_of(XML::NS, attr.ns)
+    # assert_equal('xlink', attr.ns.prefix)
+    # assert_equal('http://www.w3.org/1999/xlink', attr.ns.href)
+
+    # FIXME this should be working, wtf happened
+    # attr = attributes.get_attribute_ns('http://www.w3.org/1999/xlink', 'href')
+    # assert_instance_of(XML::Attr, attr)
+    # 
+    # attr = attributes.get_attribute_ns('http://www.opengis.net/gml', 'remoteSchema')
+    # assert_instance_of(XML::Attr, attr)
+    # 
+    # attr = attributes.get_attribute_ns('http://i.dont.exist', 'nor do i')
+    # assert_nil(attr)
+  end
+  
+  def test_get_values
+    assert_equal('Cambridge', city_member[:name])
+    # FIXME Namespaced attribute, without namespace specified
+    # assert_equal('http://www.foo.net/cgi-bin/wfs?FeatureID=C10239', city_member[:href])
+    
+    attributes = city_member.attributes
+    assert_equal('Cambridge', attributes[:name])
+    # FIXME Namespaced attribute, without namespace specified
+    # assert_equal('http://www.foo.net/cgi-bin/wfs?FeatureID=C10239', attributes[:href])
+  end
+  
+  def test_set_values
+    city_member[:name] = 'London'
+    assert_equal('London', city_member[:name])
+    
+    city_member[:href] = 'foo'
+    assert_equal('foo', city_member[:href])
+    
+    attributes = city_member.attributes
+    
+    attributes[:name] = 'London'
+    assert_equal('London', attributes[:name])
+    
+    attributes[:href] = 'foo'
+    assert_equal('foo', attributes[:href])
+  end
+  
+  def test_str_sym()
+    attributes = city_member.attributes
+    assert_equal('Cambridge', attributes[:name])
+    assert_equal('Cambridge', attributes['name'])
+  end
+end

data/test/tc_deprecated_require.rb

@@ -0,0 +1,13 @@
+require 'xml/libxml'
+require 'test/unit'
+
+class TestDeprecatedRequire < Test::Unit::TestCase
+  def test_basic
+    xp = XML::Parser.new
+    assert_instance_of(XML::Parser, xp)
+    str = '<ruby_array uga="booga" foo="bar"><fixnum>one</fixnum><fixnum>two</fixnum></ruby_array>'
+    assert_equal(str, xp.string = str)
+    @doc = xp.parse
+    assert_instance_of(XML::Document, @doc)
+  end
+end

data/test/tc_document.rb

@@ -0,0 +1,97 @@
+require "xml"
+require 'test/unit'
+
+
+class TC_XML_Document < Test::Unit::TestCase
+  def setup
+    xp = XML::Parser.new
+    assert_instance_of(XML::Parser, xp)
+    str = '<ruby_array uga="booga" foo="bar"><fixnum>one</fixnum><fixnum>two</fixnum></ruby_array>'
+    assert_equal(str, xp.string = str)
+    @doc = xp.parse
+    assert_instance_of(XML::Document, @doc)
+  end
+
+  def teardown
+    @doc = nil
+  end
+
+  def test_libxml_document_find
+    set = @doc.find('/ruby_array/fixnum')
+    assert_instance_of(XML::XPath::Object, set)
+    assert_raise(NoMethodError) {
+      xpt = set.xpath
+    }
+  end
+
+  # FIXME XML::Parser::enabled_zlib? zlib support
+  # def test_ruby_xml_document_compression
+  #   if XML::Parser::enabled_zlib?
+  #     0.upto(9) do |i|
+  #       assert_equal(i, @doc.compression = i)
+  #       assert_equal(i, @doc.compression)
+  #     end
+  # 
+  #     9.downto(0) do |i|
+  #       assert_equal(i, @doc.compression = i)
+  #       assert_equal(i, @doc.compression)
+  #     end
+  # 
+  #     10.upto(20) do |i|
+  #       # assert_equal(9, @doc.compression = i)
+  #       assert_equal(i, @doc.compression = i) # This works around a bug in Ruby 1.8
+  #       assert_equal(9, @doc.compression)
+  #     end
+  # 
+  #     -1.downto(-10) do |i|
+  #       # assert_equal(0, @doc.compression = i)
+  #       assert_equal(i, @doc.compression = i) # FIXME This bug should get fixed ASAP
+  #       assert_equal(0, @doc.compression)
+  #     end
+  #   end
+  # end
+  
+# FIXME Document#save
+#   def test_save
+#     filename = 'test_write' 
+#     bytes = @doc.save(filename)
+#     assert_equal(110, bytes)
+#     contents = File.read(filename)
+#     
+#     expected =<<-EOS
+# <?xml version="1.0"?>
+# <ruby_array uga="booga" foo="bar"><fixnum>one</fixnum><fixnum>two</fixnum></ruby_array>
+# EOS
+#     assert_equal(expected, contents)
+#   ensure
+#     File.delete(filename)    
+#   end
+
+# FIXME Document#save  
+#   def test_save_formatted
+#     filename = 'test_write' 
+#     bytes = @doc.save(filename, true)
+#     assert_equal(117, bytes)
+#     contents = File.read(filename)
+#     
+#     expected =<<-EOS
+# <?xml version="1.0"?>
+# <ruby_array uga="booga" foo="bar">
+#   <fixnum>one</fixnum>
+#   <fixnum>two</fixnum>
+# </ruby_array>
+# EOS
+#     assert_equal(expected, contents)
+#   ensure
+#     File.delete(filename)    
+#   end
+  
+  # FIXME Document#save
+  # def test_save_formatted_invalid
+  #   filename = 'test_write' 
+  #   
+  #   assert_raise(ArgumentError) do
+  #     @doc.save(filename, 1)
+  #   end
+  # end  
+end

data/test/tc_document_write.rb

@@ -0,0 +1,139 @@
+require "xml"
+require 'test/unit'
+
+class TC_XML_Document_Write < Test::Unit::TestCase
+  def setup
+    @doc = XML::Document.new('1.0')
+  end
+
+  def teardown
+    @doc = nil
+  end
+
+  def test_klass
+    assert_instance_of(XML::Document, @doc)
+  end
+
+  def test_version
+    assert_equal('1.0', @doc.version)
+
+    doc = XML::Document.new('6.9')
+    assert_equal('6.9', doc.version)
+  end
+  
+  def test_write_root
+    @doc.root = XML::Node.new('rubynet')
+    assert_instance_of(XML::Node, @doc.root)
+    assert_instance_of(XML::Document, @doc.root.doc)
+    assert_equal("<?xml version=\"1.0\"?>\n<rubynet/>\n", @doc.to_s)
+  end
+
+  def test_write_root
+    @doc.root = XML::Node.new('rubynet')
+    assert_instance_of(XML::Node, @doc.root)
+    assert_instance_of(XML::Document, @doc.root.doc)
+    assert_equal("<?xml version=\"1.0\"?>\n<rubynet/>\n", @doc.to_s(false))
+  end
+
+  def test_encoding
+    @doc.root = XML::Node.new('rubynet')
+    @doc.encoding = 'UTF-8'
+    assert_instance_of(XML::Node, @doc.root)
+    assert_equal("<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<rubynet/>\n", @doc.to_s)
+  end
+
+  def test_child()
+    xml = "<?xml version=\"1.0\"?>\n<rubynet>\n  <pkg/>\n</rubynet>\n"
+    @doc.root = XML::Node.new('rubynet')
+    @doc.root.child = XML::Node.new('pkg')
+    assert_equal(xml, @doc.to_s)
+  end
+
+  def test_append
+    xml = "<?xml version=\"1.0\"?>\n"
+    xml << "<rubynet>\n"
+    xml << "  <pkg>\n"
+    xml << "    <meta>\n"
+    xml << "      <pkgname>libxml</pkgname>\n"
+    xml << "    </meta>\n"
+    xml << "  </pkg>\n"
+    xml << "</rubynet>\n"
+    
+    @doc.root = XML::Node.new('rubynet')
+    pkg = @doc.root.child = XML::Node.new('pkg')
+    meta = pkg.child = XML::Node.new('meta')
+    assert_equal(meta, meta << (pkgname = XML::Node.new('pkgname')))
+    pkgname << 'libxml'
+    assert_equal(xml, @doc.to_s)
+  end
+
+  def test_node_search_href
+    prefix = 'xlink'
+    uri = 'http://www.rubynet.org'
+    xml = "<?xml version=\"1.0\"?>\n"
+    xml << "<rubynet xmlns:#{prefix}=\"#{uri}\">\n"
+    xml << "  <pkg/>\n"
+    xml << "</rubynet>\n"
+    
+    @doc.root = XML::Node.new('rubynet')
+    @doc = XML::Parser.string(xml).parse
+    assert_equal(xml, @doc.to_s)
+    ns = @doc.root.search_href(uri)
+    assert_instance_of(XML::NS, ns)
+    assert_equal(uri, ns.href)
+    assert_equal(prefix, ns.prefix)
+  end
+
+  def test_sibling
+    xml = "<?xml version=\"1.0\"?>\n<rubynet>\n  <pkg/>\n  <pkg2/>\n</rubynet>\n"
+
+    @doc.root = XML::Node.new('rubynet')
+    child = @doc.root.child = XML::Node.new('pkg')
+    assert_instance_of(XML::Node, child)
+    child.sibling = XML::Node.new('pkg2')
+    assert_equal(xml, @doc.to_s)
+  end
+
+  def test_set_doc_property
+    xml = "<?xml version=\"1.0\"?>\n"
+    xml << "<rubynet xmlns:xlink=\"http://www.w3.org/1999/xlink\">\n"
+    xml << "  <pkg/>\n"
+    xml << "</rubynet>\n"
+    
+    @doc.root = XML::Node.new('rubynet')
+    @doc.root['xmlns:xlink'] = "http://www.w3.org/1999/xlink"
+    pkg = @doc.root.child = XML::Node.new('pkg')
+    assert_equal(xml, @doc.to_s)
+  end
+
+  def test_set_node_base
+    xml = "<?xml version=\"1.0\"?>\n"
+    xml << "<rubynet>\n"
+    xml << "  <pkg xml:base=\"http://www.rubynet.org/\"/>\n"
+    xml << "</rubynet>\n"
+    
+    @doc.root = XML::Node.new('rubynet')
+    pkg = @doc.root.child = XML::Node.new('pkg')
+    pkg.base = 'http://www.rubynet.org/'
+    assert_equal(xml, @doc.to_s)
+  end
+
+  def test_set_node_property
+    xml = "<?xml version=\"1.0\"?>\n"
+    xml << "<rubynet xmlns:xlink=\"http://www.w3.org/1999/xlink\">\n"
+    xml << "  <pkg version=\"1.0\">\n"
+    xml << "    <meta>\n"
+    xml << "      <pkgname>libxml</pkgname>\n"
+    xml << "    </meta>\n"
+    xml << "  </pkg>\n"
+    xml << "</rubynet>\n"
+    
+    @doc.root = XML::Node.new('rubynet')
+    @doc.root['xmlns:xlink'] = "http://www.w3.org/1999/xlink"
+    pkg = @doc.root.child = XML::Node.new('pkg')
+    pkg['version'] = '1.0'
+    meta = pkg.child = XML::Node.new('meta')
+    pkgname = meta.child = XML::Node.new('pkgname', 'libxml')
+    assert_equal(xml, @doc.to_s)
+  end
+end

data/test/tc_dtd.rb

@@ -0,0 +1,70 @@
+require "xml"
+require 'test/unit'
+
+class TestDtd < Test::Unit::TestCase
+  def setup
+    xp = XML::Parser.string(<<-EOS)
+      <root>
+        <head a="ee" id="1">Colorado</head>
+        <descr>Lots of nice mountains</descr>
+      </root>
+    EOS
+    @doc = xp.parse
+  end
+  
+  def teardown
+    @doc = nil
+  end
+  
+  def dtd
+    XML::Dtd.new(<<-EOS)
+      <!ELEMENT root (head, descr)>
+      <!ELEMENT head (#PCDATA)>
+      <!ATTLIST head
+        id NMTOKEN #REQUIRED
+        a CDATA #IMPLIED
+      >
+      <!ELEMENT descr (#PCDATA)>
+    EOS
+  end
+  
+  def test_valid
+    assert(@doc.validate(dtd))
+  end
+  
+  def test_invalid
+    new_node = XML::Node.new('invalid', 'this will mess up validation')
+    @doc.root.child_add(new_node)
+    
+    messages = Hash.new
+    assert(!@doc.validate(dtd) do |message, error|
+      messages[message] = error
+    end)
+
+    expected = {"No declaration for element invalid\n" => true,
+                "Element root content does not follow the DTD, expecting (head , descr), got (head descr invalid)\n" => true}
+      
+    assert_equal(expected, messages)
+  end
+  
+  def test_external_dtd
+    xml = <<-EOS
+      <!DOCTYPE test PUBLIC "-//TEST" "test.dtd" []>
+      <test>
+        <title>T1</title>
+      </test>
+    EOS
+    
+    messages = Array.new
+    XML::Parser.register_error_handler(lambda { |msg| messages << msg })
+    
+    XML::Parser.default_load_external_dtd = false
+    doc = XML::Parser.string(xml).parse
+    assert_equal(Array.new, messages)
+    
+    XML::Parser.default_load_external_dtd = true
+    doc = XML::Parser.string(xml).parse
+    assert_equal('I/O warning : failed to load external entity "test.dtd" <!DOCTYPE test PUBLIC "-//TEST" "test.dtd" []> ^',
+                 messages.map{|msg| msg.strip}.join(' ')) 
+  end
+end

data/test/tc_html_parser.rb

@@ -0,0 +1,63 @@
+require "xml"
+require 'test/unit'
+
+class TC_XML_HTMLParser < Test::Unit::TestCase
+  def setup()
+    @xp = XML::HTMLParser.new()
+    assert_not_nil(@xp)
+    str = '<html><head><meta name=keywords content=nasty></head><body>Hello<br>World</html>'
+    @xp.string = str
+    assert_equal(str, @xp.string)
+  end
+
+  def teardown()
+    @xp = nil
+  end
+
+  def test_libxml_html_parser_parse()
+    doc = @xp.parse
+
+    assert_instance_of XML::Document, doc
+
+    root = doc.root
+    assert_instance_of XML::Node, root
+    assert_equal 'html', root.name
+
+    head = root.child
+    assert_instance_of XML::Node, head
+    assert_equal 'head', head.name
+
+    meta = head.child
+    assert_instance_of XML::Node, meta
+    assert_equal 'meta', meta.name
+    assert_equal 'keywords', meta[:name]
+    assert_equal 'nasty', meta[:content]
+
+    body = head.next
+    assert_instance_of XML::Node, body
+    assert_equal 'body', body.name
+
+    hello = body.child
+    # It appears that some versions of libxml2 add a layer of <p>
+    # cant figure our why or how, so this skips it if there
+    hello = hello.child if hello.name == "p"
+
+    assert_instance_of XML::Node, hello
+    assert_equal 'Hello', hello.content
+
+    br = hello.next
+    assert_instance_of XML::Node, br
+    assert_equal 'br', br.name
+
+    world = br.next
+    assert_instance_of XML::Node, world
+    assert_equal 'World', world.content
+  end
+
+  def test_libxml_html_parser_context()
+    doc = @xp.parse
+    assert_instance_of(XML::Document, doc)
+    assert_instance_of(XML::Parser::Context, @xp.context)
+  assert @xp.context.html?
+  end
+end # TC_XML_HTMLParser