libxml-ruby 5.0.5 → 6.0.0

data/test/test_input_callbacks.rb

@@ -0,0 +1,36 @@
+# encoding: UTF-8
+
+require_relative './test_helper'
+
+class InputCallbacksGCStressRepro
+  def run
+    scheme_name = 'input-callback-gc://'
+
+    callback_class = Class.new do
+      def self.document_query(_uri)
+        '<root/>'
+      end
+    end
+    LibXML::XML::InputCallbacks.add_scheme(scheme_name, callback_class)
+    callback_class = nil
+
+    document = LibXML::XML::Document.file("#{scheme_name}fixture.xml")
+    document.root.name
+  ensure
+    LibXML::XML::InputCallbacks.remove_scheme(scheme_name)
+  end
+end
+
+class TestInputCallbacks < Minitest::Test
+  def setup
+    GC.stress = true
+  end
+
+  def teardown
+    GC.stress = false
+  end
+
+  def test_add_scheme_auto_registers_and_survives_gc_stress
+    assert_equal('root', InputCallbacksGCStressRepro.new.run)
+  end
+end

data/test/test_namespace.rb

@@ -31,7 +31,7 @@ class TestNS < Minitest::Test
     error = assert_raises(TypeError) do
       LibXML::XML::Namespace.new(nil, 'my_namepace', 'http://www.mynamespace.com')
     end
-    assert_equal('wrong argument type nil (expected Data)', error.to_s)
+    assert_match(/wrong argument type nil/, error.to_s)
   end
 
   def test_duplicate_ns

data/test/test_namespaces.rb

@@ -1,200 +1,200 @@
-# encoding: UTF-8
-
-require_relative './test_helper'
-
-
-class TestNamespaces < Minitest::Test
-  def setup
-    file = File.join(File.dirname(__FILE__), 'model/soap.xml')
-    @doc = LibXML::XML::Document.file(file)
-  end
-
-  def teardown
-    @doc = nil
-  end
-
-  def test_namespace_node
-    node = @doc.root
-    ns = node.namespaces.namespace
-    assert_equal('soap', ns.prefix)
-    assert_equal('http://schemas.xmlsoap.org/soap/envelope/', ns.href)
-  end
-
-  def test_namespace_attr
-    node = @doc.root
-    attr = node.attributes.get_attribute('encodingStyle')
-    assert_equal('soap', attr.ns.prefix)
-    assert_equal('soap', attr.namespaces.namespace.prefix)
-  end
-
-  def test_set_namespace_node
-    node = LibXML::XML::Node.new('Envelope')
-    assert_equal('<Envelope/>', node.to_s)
-
-    ns = LibXML::XML::Namespace.new(node, 'soap', 'http://schemas.xmlsoap.org/soap/envelope/')
-    assert_equal("<Envelope xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\"/>", node.to_s)
-    assert_nil(node.namespaces.namespace)
-
-    # Now put the node in the soap namespace
-    node.namespaces.namespace = ns
-    refute_nil(node.namespaces.namespace)
-    assert_equal("<soap:Envelope xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\"/>", node.to_s)
-  end
-
-  def test_set_namespace_attribute
-    # Create node
-    node = LibXML::XML::Node.new('Envelope')
-    assert_equal('<Envelope/>', node.to_s)
-
-    # Create attribute
-    attr = LibXML::XML::Attr.new(node, "encodingStyle", "http://www.w3.org/2001/12/soap-encoding")
-    assert_equal('<Envelope encodingStyle="http://www.w3.org/2001/12/soap-encoding"/>',
-                 node.to_s)
-
-    # Create namespace attribute
-    ns = LibXML::XML::Namespace.new(node, 'soap', 'http://schemas.xmlsoap.org/soap/envelope/')
-    assert_equal('<Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" encodingStyle="http://www.w3.org/2001/12/soap-encoding"/>',
-                  node.to_s)
-    assert_nil(node.namespaces.namespace)
-
-    # Now put the node in the soap namespace
-    node.namespaces.namespace = ns
-    refute_nil(node.namespaces.namespace)
-    assert_equal('<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" encodingStyle="http://www.w3.org/2001/12/soap-encoding"/>',
-                  node.to_s)
-
-    # Now put the attribute in the soap namespace
-    attr.namespaces.namespace = ns
-    refute_nil(node.namespaces.namespace)
-    assert_equal('<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" soap:encodingStyle="http://www.w3.org/2001/12/soap-encoding"/>',
-                  node.to_s)
-  end
-
-  def test_define_namespace
-    node = LibXML::XML::Node.new('Envelope')
-    assert_equal('<Envelope/>', node.to_s)
-
-    LibXML::XML::Namespace.new(node, 'soap', 'http://schemas.xmlsoap.org/soap/envelope/')
-    assert_equal("<Envelope xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\"/>", node.to_s)
-    assert_nil(node.namespaces.namespace)
-  end
-
-  def test_define_default_namespace
-    node = LibXML::XML::Node.new('Envelope')
-    assert_equal('<Envelope/>', node.to_s)
-
-    LibXML::XML::Namespace.new(node, nil, 'http://schemas.xmlsoap.org/soap/envelope/')
-    assert_equal("<Envelope xmlns=\"http://schemas.xmlsoap.org/soap/envelope/\"/>", node.to_s)
-    # This seems wrong, but appears to be the way libxml works
-    assert_nil(node.namespaces.namespace)
-  end
-
-  def test_namespaces
-    node = @doc.find_first('//ns1:IdAndName',
-                           :ns1 => 'http://domain.somewhere.com')
-
-    namespaces = node.namespaces.sort
-    assert_equal(5, namespaces.length)
-
-    namespace = namespaces[0]
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_nil(namespace.prefix)
-    assert_equal('http://services.somewhere.com', namespace.href)
-
-    namespace = namespaces[1]
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_equal('ns1', namespace.prefix)
-    assert_equal('http://domain.somewhere.com', namespace.href)
-
-    namespace = namespaces[2]
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_equal('soap', namespace.prefix)
-    assert_equal('http://schemas.xmlsoap.org/soap/envelope/', namespace.href)
-
-    namespace = namespaces[3]
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_equal('xsd', namespace.prefix)
-    assert_equal('http://www.w3.org/2001/XMLSchema', namespace.href)
-
-    namespace = namespaces[4]
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_equal('xsi', namespace.prefix)
-    assert_equal('http://www.w3.org/2001/XMLSchema-instance', namespace.href)
-  end
-
-  def test_namespace_definitions
-    ns_defs = @doc.root.namespaces.definitions
-    assert_equal(3, ns_defs.size)
-
-    namespace = ns_defs[0]
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_equal('soap', namespace.prefix)
-    assert_equal('http://schemas.xmlsoap.org/soap/envelope/', namespace.href)
-
-    namespace = ns_defs[1]
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_equal('xsd', namespace.prefix)
-    assert_equal('http://www.w3.org/2001/XMLSchema', namespace.href)
-
-    namespace = ns_defs[2]
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_equal('xsi', namespace.prefix)
-    assert_equal('http://www.w3.org/2001/XMLSchema-instance', namespace.href)
-
-    node = @doc.root.find_first('//ns:getManufacturerNamesResponse',
-                                :ns => 'http://services.somewhere.com')
-    ns_defs = node.namespaces.definitions
-    assert_equal(1, ns_defs.size)
-
-    namespace = ns_defs[0]
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_nil(namespace.prefix)
-    assert_equal('http://services.somewhere.com', namespace.href)
-  end
-
-  def test_find_by_prefix
-    namespace = @doc.root.namespaces.find_by_prefix('soap')
-
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_equal('soap', namespace.prefix)
-    assert_equal('http://schemas.xmlsoap.org/soap/envelope/', namespace.href)
-  end
-
-  def test_find_default_ns
-    namespace = @doc.root.namespaces.find_by_prefix(nil)
-    assert_nil(namespace)
-
-    node = @doc.find_first('//ns1:getManufacturerNamesResponse',
-                           :ns1 => 'http://services.somewhere.com')
-    namespace = node.namespaces.find_by_prefix(nil)
-
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_nil(namespace.prefix)
-    assert_equal('http://services.somewhere.com', namespace.href)
-  end
-
-  def test_find_ns_by_href
-    node = @doc.find_first('//ns1:getManufacturerNamesResponse',
-                           :ns1 => 'http://services.somewhere.com')
-
-    namespace = node.namespaces.find_by_href('http://schemas.xmlsoap.org/soap/envelope/')
-
-    assert_instance_of(LibXML::XML::Namespace, namespace)
-    assert_equal('soap', namespace.prefix)
-    assert_equal('http://schemas.xmlsoap.org/soap/envelope/', namespace.href)
-  end
-
-  def test_default_namespace
-    doc = LibXML::XML::Document.string('<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"/>')
-    ns = doc.root.namespaces.default
-    assert_equal(ns.href, 'http://schemas.xmlsoap.org/soap/envelope/')
-  end
-
-  def test_default_prefix
-    doc = LibXML::XML::Document.string('<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"/>')
-    doc.root.namespaces.default_prefix = 'soap'
-
-    node = doc.root.find_first('/soap:Envelope')
-    refute_nil(node)
-  end
-end
+# encoding: UTF-8
+
+require_relative './test_helper'
+
+
+class TestNamespaces < Minitest::Test
+  def setup
+    file = File.join(File.dirname(__FILE__), 'model/soap.xml')
+    @doc = LibXML::XML::Document.file(file)
+  end
+
+  def teardown
+    @doc = nil
+  end
+
+  def test_namespace_node
+    node = @doc.root
+    ns = node.namespaces.namespace
+    assert_equal('soap', ns.prefix)
+    assert_equal('http://schemas.xmlsoap.org/soap/envelope/', ns.href)
+  end
+
+  def test_namespace_attr
+    node = @doc.root
+    attr = node.attributes.get_attribute('encodingStyle')
+    assert_equal('soap', attr.ns.prefix)
+    assert_equal('soap', attr.namespaces.namespace.prefix)
+  end
+
+  def test_set_namespace_node
+    node = LibXML::XML::Node.new('Envelope')
+    assert_equal('<Envelope/>', node.to_s)
+
+    ns = LibXML::XML::Namespace.new(node, 'soap', 'http://schemas.xmlsoap.org/soap/envelope/')
+    assert_equal("<Envelope xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\"/>", node.to_s)
+    assert_nil(node.namespaces.namespace)
+
+    # Now put the node in the soap namespace
+    node.namespaces.namespace = ns
+    refute_nil(node.namespaces.namespace)
+    assert_equal("<soap:Envelope xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\"/>", node.to_s)
+  end
+
+  def test_set_namespace_attribute
+    # Create node
+    node = LibXML::XML::Node.new('Envelope')
+    assert_equal('<Envelope/>', node.to_s)
+
+    # Create attribute
+    attr = LibXML::XML::Attr.new(node, "encodingStyle", "http://www.w3.org/2001/12/soap-encoding")
+    assert_equal('<Envelope encodingStyle="http://www.w3.org/2001/12/soap-encoding"/>',
+                 node.to_s)
+
+    # Create namespace attribute
+    ns = LibXML::XML::Namespace.new(node, 'soap', 'http://schemas.xmlsoap.org/soap/envelope/')
+    assert_equal('<Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" encodingStyle="http://www.w3.org/2001/12/soap-encoding"/>',
+                  node.to_s)
+    assert_nil(node.namespaces.namespace)
+
+    # Now put the node in the soap namespace
+    node.namespaces.namespace = ns
+    refute_nil(node.namespaces.namespace)
+    assert_equal('<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" encodingStyle="http://www.w3.org/2001/12/soap-encoding"/>',
+                  node.to_s)
+
+    # Now put the attribute in the soap namespace
+    attr.namespaces.namespace = ns
+    refute_nil(node.namespaces.namespace)
+    assert_equal('<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" soap:encodingStyle="http://www.w3.org/2001/12/soap-encoding"/>',
+                  node.to_s)
+  end
+
+  def test_define_namespace
+    node = LibXML::XML::Node.new('Envelope')
+    assert_equal('<Envelope/>', node.to_s)
+
+    LibXML::XML::Namespace.new(node, 'soap', 'http://schemas.xmlsoap.org/soap/envelope/')
+    assert_equal("<Envelope xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\"/>", node.to_s)
+    assert_nil(node.namespaces.namespace)
+  end
+
+  def test_define_default_namespace
+    node = LibXML::XML::Node.new('Envelope')
+    assert_equal('<Envelope/>', node.to_s)
+
+    LibXML::XML::Namespace.new(node, nil, 'http://schemas.xmlsoap.org/soap/envelope/')
+    assert_equal("<Envelope xmlns=\"http://schemas.xmlsoap.org/soap/envelope/\"/>", node.to_s)
+    # This seems wrong, but appears to be the way libxml works
+    assert_nil(node.namespaces.namespace)
+  end
+
+  def test_namespaces
+    node = @doc.find_first('//ns1:IdAndName',
+                           :ns1 => 'http://domain.somewhere.com')
+
+    namespaces = node.namespaces.sort
+    assert_equal(5, namespaces.length)
+
+    namespace = namespaces[0]
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_nil(namespace.prefix)
+    assert_equal('http://services.somewhere.com', namespace.href)
+
+    namespace = namespaces[1]
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_equal('ns1', namespace.prefix)
+    assert_equal('http://domain.somewhere.com', namespace.href)
+
+    namespace = namespaces[2]
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_equal('soap', namespace.prefix)
+    assert_equal('http://schemas.xmlsoap.org/soap/envelope/', namespace.href)
+
+    namespace = namespaces[3]
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_equal('xsd', namespace.prefix)
+    assert_equal('http://www.w3.org/2001/XMLSchema', namespace.href)
+
+    namespace = namespaces[4]
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_equal('xsi', namespace.prefix)
+    assert_equal('http://www.w3.org/2001/XMLSchema-instance', namespace.href)
+  end
+
+  def test_namespace_definitions
+    ns_defs = @doc.root.namespaces.definitions
+    assert_equal(3, ns_defs.size)
+
+    namespace = ns_defs[0]
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_equal('soap', namespace.prefix)
+    assert_equal('http://schemas.xmlsoap.org/soap/envelope/', namespace.href)
+
+    namespace = ns_defs[1]
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_equal('xsd', namespace.prefix)
+    assert_equal('http://www.w3.org/2001/XMLSchema', namespace.href)
+
+    namespace = ns_defs[2]
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_equal('xsi', namespace.prefix)
+    assert_equal('http://www.w3.org/2001/XMLSchema-instance', namespace.href)
+
+    node = @doc.root.find_first('//ns:getManufacturerNamesResponse',
+                                :ns => 'http://services.somewhere.com')
+    ns_defs = node.namespaces.definitions
+    assert_equal(1, ns_defs.size)
+
+    namespace = ns_defs[0]
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_nil(namespace.prefix)
+    assert_equal('http://services.somewhere.com', namespace.href)
+  end
+
+  def test_find_by_prefix
+    namespace = @doc.root.namespaces.find_by_prefix('soap')
+
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_equal('soap', namespace.prefix)
+    assert_equal('http://schemas.xmlsoap.org/soap/envelope/', namespace.href)
+  end
+
+  def test_find_default_ns
+    namespace = @doc.root.namespaces.find_by_prefix(nil)
+    assert_nil(namespace)
+
+    node = @doc.find_first('//ns1:getManufacturerNamesResponse',
+                           :ns1 => 'http://services.somewhere.com')
+    namespace = node.namespaces.find_by_prefix(nil)
+
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_nil(namespace.prefix)
+    assert_equal('http://services.somewhere.com', namespace.href)
+  end
+
+  def test_find_ns_by_href
+    node = @doc.find_first('//ns1:getManufacturerNamesResponse',
+                           :ns1 => 'http://services.somewhere.com')
+
+    namespace = node.namespaces.find_by_href('http://schemas.xmlsoap.org/soap/envelope/')
+
+    assert_instance_of(LibXML::XML::Namespace, namespace)
+    assert_equal('soap', namespace.prefix)
+    assert_equal('http://schemas.xmlsoap.org/soap/envelope/', namespace.href)
+  end
+
+  def test_default_namespace
+    doc = LibXML::XML::Document.string('<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"/>')
+    ns = doc.root.namespaces.default
+    assert_equal(ns.href, 'http://schemas.xmlsoap.org/soap/envelope/')
+  end
+
+  def test_default_prefix
+    doc = LibXML::XML::Document.string('<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"/>')
+    doc.root.namespaces.default_prefix = 'soap'
+
+    node = doc.root.find_first('/soap:Envelope')
+    refute_nil(node)
+  end
+end

data/test/test_node.rb

@@ -232,4 +232,20 @@ class TestNode < Minitest::Test
     assert_equal("unescaped & string", node.content)
     assert_equal("<test>unescaped &amp; string</test>", node.to_s)
   end
+
+  def test_document_node_marks_document
+    GC.stress = true
+    node = create_document_child
+    assert_equal("child", node.name)
+    refute_nil(node.doc)
+  ensure
+    GC.stress = false
+  end
+
+  private
+
+  def create_document_child
+    doc = LibXML::XML::Document.string("<root><child/></root>")
+    doc.root.children.first
+  end
 end

data/test/test_node_cdata.rb

@@ -1,50 +1,50 @@
-# encoding: UTF-8
-
-require_relative './test_helper'
-
-class CDataCommentTest < Minitest::Test
-  def setup
-    xp = LibXML::XML::Parser.string('<root></root>')
-    @doc = xp.parse
-    assert_instance_of(LibXML::XML::Document, @doc)
-    @root = @doc.root
-  end
-
-  def test_node_type
-    cnode = LibXML::XML::Node.new_cdata('test cdata')
-    assert_equal(LibXML::XML::Node::CDATA_SECTION_NODE, cnode.node_type)
-  end
-
-  def test_add_cdata
-    @root << LibXML::XML::Node.new_cdata('mycdata')
-    assert_equal '<root><![CDATA[mycdata]]></root>',
-      @root.to_s.gsub(/\n\s*/,'')
-  end
-
-  def test_add_cdata_2
-    @root << LibXML::XML::Node.new_cdata('mycdata')
-    assert_equal 'cdata',
-    @root.child.node_type_name
-  end
-
-  def test_add_cdata_3
-    @root << el = LibXML::XML::Node.new_cdata('mycdata')
-    el << "_this_is_added"
-    assert_equal '<root><![CDATA[mycdata_this_is_added]]></root>',
-      @root.to_s.gsub(/\n\s*/,'')
-  end
-  
-  def test_attributes
-    cnode = LibXML::XML::Node.new_cdata('test cdata')
-    assert_equal(0, cnode.attributes.length)
-  end
-  
-  def test_set_cdata_attribute
-    cnode = LibXML::XML::Node.new_cdata('test cdata')
-    
-    # Can't create attributes on non-element nodes
-    assert_raises(ArgumentError) do
-      cnode['attr'] = '123'
-    end
-  end
-end
+# encoding: UTF-8
+
+require_relative './test_helper'
+
+class CDataCommentTest < Minitest::Test
+  def setup
+    xp = LibXML::XML::Parser.string('<root></root>')
+    @doc = xp.parse
+    assert_instance_of(LibXML::XML::Document, @doc)
+    @root = @doc.root
+  end
+
+  def test_node_type
+    cnode = LibXML::XML::Node.new_cdata('test cdata')
+    assert_equal(LibXML::XML::Node::CDATA_SECTION_NODE, cnode.node_type)
+  end
+
+  def test_add_cdata
+    @root << LibXML::XML::Node.new_cdata('mycdata')
+    assert_equal '<root><![CDATA[mycdata]]></root>',
+      @root.to_s.gsub(/\n\s*/,'')
+  end
+
+  def test_add_cdata_2
+    @root << LibXML::XML::Node.new_cdata('mycdata')
+    assert_equal 'cdata',
+    @root.child.node_type_name
+  end
+
+  def test_add_cdata_3
+    @root << el = LibXML::XML::Node.new_cdata('mycdata')
+    el << "_this_is_added"
+    assert_equal '<root><![CDATA[mycdata_this_is_added]]></root>',
+      @root.to_s.gsub(/\n\s*/,'')
+  end
+  
+  def test_attributes
+    cnode = LibXML::XML::Node.new_cdata('test cdata')
+    assert_equal(0, cnode.attributes.length)
+  end
+  
+  def test_set_cdata_attribute
+    cnode = LibXML::XML::Node.new_cdata('test cdata')
+    
+    # Can't create attributes on non-element nodes
+    assert_raises(ArgumentError) do
+      cnode['attr'] = '123'
+    end
+  end
+end

data/test/test_node_comment.rb

@@ -1,32 +1,32 @@
-# encoding: UTF-8
-
-require_relative './test_helper'
-
-
-class NodeCommentTest < Minitest::Test
-  def setup
-    xp = LibXML::XML::Parser.string('<root></root>')
-    @doc = xp.parse
-    assert_instance_of(LibXML::XML::Document, @doc)
-    @root = @doc.root
-  end
-
-  def test_libxml_node_add_comment_01
-    @root << LibXML::XML::Node.new_comment('mycomment')
-    assert_equal '<root><!--mycomment--></root>',
-      @root.to_s.gsub(/\n\s*/,'')
-  end
-
-  def test_libxml_node_add_comment_02
-    @root << LibXML::XML::Node.new_comment('mycomment')
-    assert_equal 'comment',
-    @root.child.node_type_name
-  end
-
-  def test_libxml_node_add_comment_03
-    @root << el = LibXML::XML::Node.new_comment('mycomment')
-    el << "_this_is_added"
-    assert_equal '<root><!--mycomment_this_is_added--></root>',
-    @root.to_s.gsub(/\n\s*/,'')
-  end
-end
+# encoding: UTF-8
+
+require_relative './test_helper'
+
+
+class NodeCommentTest < Minitest::Test
+  def setup
+    xp = LibXML::XML::Parser.string('<root></root>')
+    @doc = xp.parse
+    assert_instance_of(LibXML::XML::Document, @doc)
+    @root = @doc.root
+  end
+
+  def test_libxml_node_add_comment_01
+    @root << LibXML::XML::Node.new_comment('mycomment')
+    assert_equal '<root><!--mycomment--></root>',
+      @root.to_s.gsub(/\n\s*/,'')
+  end
+
+  def test_libxml_node_add_comment_02
+    @root << LibXML::XML::Node.new_comment('mycomment')
+    assert_equal 'comment',
+    @root.child.node_type_name
+  end
+
+  def test_libxml_node_add_comment_03
+    @root << el = LibXML::XML::Node.new_comment('mycomment')
+    el << "_this_is_added"
+    assert_equal '<root><!--mycomment_this_is_added--></root>',
+    @root.to_s.gsub(/\n\s*/,'')
+  end
+end