qwik2md 0.1.0

data/vendor/qwik/lib/qwik/htree-get.rb

@@ -0,0 +1,251 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'
+require 'htree'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/htree-template'
+
+module HTree
+  module Container
+    def split_name_num(name)
+      name = name.sub(%r|(^//)|, '')
+
+      if /^(\w+)\[(\d+)\]$/ =~ name
+	return [$1, $2.to_i]
+      end
+
+      return [name, 1]
+    end
+
+    def find_nth_element(num=1, *names)
+      i = 1
+      traverse_element(*names) {|e|
+	return e if i == num
+	i += 1
+      }
+      return nil
+    end
+
+    def get_tag(tag)
+      tag, num = split_name_num(tag)
+      names = html_tags(tag)
+      return find_nth_element(num, *names)
+    end
+
+    def each_in_class(klass)
+      klass, knum = split_name_num(klass)
+      k = 1
+      klass_path = nil
+      make_loc.traverse_element {|l|
+	if klass_path.nil?
+	  if l.to_node.get_attr('class') == klass
+	    if k == knum
+	      klass_path = l.path
+	    else
+	      k += 1
+	    end
+	  end
+	elsif l.path.include?(klass_path)
+	  yield l
+	end
+      }
+      return nil
+    end
+
+    def get_class_tag(klass, tag)
+      tag, num = split_name_num(tag)
+      i = 1
+      each_in_class(klass) {|l|
+	ar = l.path.split('/')
+	e = ar.last
+	if e == tag
+	  return l.to_node if i == num
+	  i += 1
+	end
+      }
+      return nil
+    end
+
+    def each_class(klass) # obsolete
+      return each_has_attr('class', klass, &b)
+    end
+
+    def get_class(klass) # obsolete
+      return get_has_attr('class', klass)
+    end
+
+    def each_has_attr(attr, value)
+      make_loc.traverse_element {|l|
+	if l.to_node.get_attr(attr) == value
+	  yield(l.to_node)
+	end
+      }
+    end
+
+    def get_has_attr(attr, value)
+      each_has_attr(attr, value) {|l|
+	return l.to_node
+      }
+      return nil
+    end
+
+    def get_a_path(path)
+      if /\A(.*)\[(.+)\]\z/ =~ path
+	tag = $1
+	select = $2
+	if /\A@([a-z]+)='([a-z]+)'\z/ =~ select
+	  attr = $1
+	  value = $2
+#	  if attr == 'class'
+#	    return get_class(cont)
+#	  end
+	  return get_has_attr(attr, value)
+	end
+      end
+
+      return get_tag(path)
+    end
+
+    def get_path(path)
+      xml = self
+      path.split('/').each {|pa|
+	if 0 < pa.length
+	  return nil if xml.nil?
+	  xml = xml.get_a_path(pa)
+	end
+      }
+      return xml
+    end
+  end
+
+  class Elem
+    def attributes_str
+      return hash_to_str(attributes)
+    end
+
+    def hash_to_str(src)
+      h = {}
+      src.each {|k, v| h[k.to_s] = v.to_s }
+      return h
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/htree-format-xml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestHTreeGet < Test::Unit::TestCase
+    def ok(e, s)
+      return '' if s.nil?
+      ok_eq(e, s.format_xml)
+    end
+
+    def test_all
+      # test_get_tag
+      e = HTree::Elem.new('e')
+
+      # test_split_name_num
+      ok_eq(['sidebar', 1], e.split_name_num('sidebar'))
+      ok_eq(['sidebar', 1], e.split_name_num("sidebar[1]"))
+      ok_eq(['sidebar', 2], e.split_name_num("sidebar[2]"))
+
+      # test_get_tag
+      h = HTree("<a><b><c>")
+      ok("<c/>", h.get_tag('c'))
+      ok("<b><c/></b>", h.get_tag('b'))
+
+      # test_each_in_class
+      h = HTree("<p class='a'><ta/></p><p class='b'><tb/></p><p class='b'><tb2/></p>")
+      h.each_in_class('a') {|l|
+	ok_eq("doc()/p[1]/ta", l.path)
+	ok("<ta/>", l.to_node)
+      }
+      h.each_in_class('b') {|l|
+	ok_eq("doc()/p[2]/tb", l.path)
+	ok("<tb/>", l.to_node)
+      }
+      h.each_in_class("b[2]") {|l|
+	ok_eq("doc()/p[3]/tb2", l.path)
+	ok("<tb2/>", l.to_node)
+      }
+
+      ok("<ta/>", h.get_class_tag('a', 'ta'))
+      ok("<tb/>", h.get_class_tag('b', 'tb'))
+      ok("<tb2/>", h.get_class_tag("b[2]", 'tb2'))
+
+      str = <<'EOS'    
+<html><div class='main'>
+<div class='day'><h2>bh2</h2></div>
+<div class='sidebar'><h2>sh2</h2></div>
+</div></html>
+EOS
+      h = HTree(str)
+      ok("<html><div class=\"main\">\n<div class=\"day\"><h2>bh2</h2></div>\n<div class=\"sidebar\"><h2>sh2</h2></div>\n</div></html>\n", h)
+      ok("<h2>bh2</h2>", h.get_tag('h2'))
+      ok("<h2>sh2</h2>", h.get_tag("h2[2]"))
+      ok("<h2>bh2</h2>", h.get_class_tag('day', 'h2'))
+      ok("<h2>sh2</h2>", h.get_class_tag('sidebar', 'h2'))
+
+      # test_get_tag2
+      h = HTree("<a><b>tb</b><b>tb2</b><c>")
+      ok("<b>tb</b>", h.get_tag('b'))
+      ok_eq(nil, h.get_tag('nosuchtag'))
+      ok("<b>tb</b>", h.get_tag("b[1]"))
+      ok("<b>tb2</b>", h.get_tag("b[2]"))
+      ok("<b>tb</b>", h.get_tag("//b"))
+
+      # test_xpath
+      str = <<'EOS'
+<html><div class='main'>
+<div class='day'><h2>bh2</h2></div>
+<div class='sidebar'><h2>sh2<b>a</b>sh2a</h2></div>
+</div></html>
+EOS
+      h = HTree(str)
+      #ok("<html><div class=\"main\">\n<div class=\"day\"><h2>bh2</h2></div>\n<div class=\"sidebar\"><h2>sh2</h2></div>\n</div></html>\n", h)
+      #ok("<h2>sh2</h2>", h.get_class_tag('sidebar', 'h2'))
+      #ok("<h2>sh2<b>a</b>sh2a</h2>", h.get_class('sidebar'))
+      ok("<div class=\"sidebar\"><h2>sh2<b>a</b>sh2a</h2></div>",
+	 h.get_class('sidebar'))
+      ok_instance_of(HTree::Elem, h.get_class('sidebar'))
+      ok("<b>a</b>", h.get_class('sidebar').get_tag('b'))
+      ok("<div class=\"sidebar\"><h2>sh2<b>a</b>sh2a</h2></div>",
+	 h.get_a_path("div[@class='sidebar']"))
+      ok("<b>a</b>", h.get_a_path("div[@class='sidebar']").get_a_path('b'))
+      ok("<div class=\"sidebar\"><h2>sh2<b>a</b>sh2a</h2></div>",
+	 h.get_path("//div[@class='sidebar']"))
+      ok("<b>a</b>", h.get_path("//div[@class='sidebar']/b"))
+
+      str = <<'EOS'
+<a href='t1' alt='t2'>t3</a>
+EOS
+      h = HTree(str)
+      ok_instance_of(HTree::Doc, h)
+      e = h.get_tag('a')
+      ok_instance_of(HTree::Elem, e)
+      ok("<a href=\"t1\" alt=\"t2\">t3</a>", e)
+      #ok_eq({href=>{text 't1'}, alt=>{text 't2'}}, e.attributes)
+      ok_eq({'href'=>'t1', 'alt'=>'t2'}, e.attributes_str)
+
+      # test_xpath_attr
+      str = <<'EOS'
+<html><div class='main'>
+<div id='menu'><h2>menuh2</h2></div>
+</div></html>
+EOS
+      h = HTree(str)
+      ok("<div id=\"menu\"><h2>menuh2</h2></div>",
+	 h.get_has_attr('id', 'menu'))
+      ok_instance_of(HTree::Elem, h.get_has_attr('id', 'menu'))
+      ok("<div id=\"menu\"><h2>menuh2</h2></div>",
+	 h.get_path("//div[@id='menu']"))
+    end
+  end
+end

data/vendor/qwik/lib/qwik/htree-html-generator.rb

@@ -0,0 +1,179 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'
+require 'htree'
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/html-generator'
+require 'qwik/htree-generator'
+
+module HTree
+  module HtmlGeneratorModule
+    include GeneratorModule
+    include HtmlGeneratorUnit
+  end
+
+  class HtmlGenerator
+    include HtmlGeneratorModule
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/htree-format-xml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestHTreeHtmlGeneratorModule < Test::Unit::TestCase
+    include HTree::HtmlGeneratorModule
+
+    def test_html_generator_module
+      html = html {[
+	  head {[
+	      contenttype("text/html; charset=SHIFT_JIS"),
+	      title {"タイトル"},
+	      stylesheet('style.css')
+	    ]},
+	  body {[
+	      pre {[b {'world'},  'hello']},
+	      pre {['This is ', b{'bold'}, ' text.']},
+	      pre {['This is ', i{'italic'}, ' text.']},
+	      p {['This is ', a('hoge'){'anchor'}, ' text.']},
+	      p {['This is ', a(:href=>'hoge'){'anchor'}, ' text.']},
+	      img('new.gif', 'new')
+	    ]}
+        ]}
+      ok_eq("<html><head><meta content=\"text/html; charset=SHIFT_JIS\" http-equiv=\"Content-Type\"/><title>タイトル</title><link href=\"style.css\" rel=\"stylesheet\" type=\"text/css\"/></head><body><pre><b>world</b>hello</pre><pre>This is <b>bold</b> text.</pre><pre>This is <i>italic</i> text.</pre><p>This is <a href=\"hoge\">anchor</a> text.</p><p>This is <a href=\"hoge\">anchor</a> text.</p><img src=\"new.gif\" alt=\"new\"/></body></html>", html.format_xml)
+    end
+  end
+
+  class TestHTreeXmlGeneratorModule < Test::Unit::TestCase
+    include HTree::GeneratorModule
+
+    def ok(e, s)
+      ok_eq(e, s.format_xml)
+    end
+
+    def test_generator_module
+      ok("<b/>", b)
+      ok("<b/>", b{})
+      ok("<b>t</b>", b{'t'})
+      ok("<div><b>t</b></div>", div{b{'t'}})
+      ok("<p><b>b</b></p>", p{b{'b'}})
+      ok("<p>t<p>b</p>t</p>", p{['t', p{'b'}, 't']})
+      ok("<a href=\"u\">t</a>", a(:href=>'u'){'t'})
+    end
+  end
+
+  class TestHTreeHtmlGenerator < Test::Unit::TestCase
+    def ok(e, s)
+      ok_eq(e, s.format_xml)
+    end
+
+    def test_htree_html_generator
+      g = HTree::HtmlGenerator.new
+
+      ok("<p/>", g.p)
+      doc = HTree::Doc.new(g.p)
+      ok("<p/>", doc)
+      str = ''
+      doc.display_xml(str)
+      #ok_eq("<p xmlns=\"http://www.w3.org/1999/xhtml\"\n/>", str)
+
+      ok("<meta content=\"text/html\" http-equiv=\"Content-Type\"/>",
+	 g.contenttype('text/html'))
+      ok("<meta content=\"0; url=t\" http-equiv=\"Refresh\"/>",
+	 g.refresh(0, 't'))
+      ok("<link href=\"style1.css\" rel=\"stylesheet\" type=\"text/css\"/>",
+	 g.stylesheet('style1.css'))
+
+      ok("<a href=\"t\">s</a>", g.a('t'){'s'}) # test_link
+      ok("<a href=\"t?a\">s</a>", g.a("t?a"){'s'})
+      ok("<a href=\"t?a&amp;b\">s</a>", g.a("t?a&b"){'s'})
+      ok("<a href=\"t\">&lt;</a>", g.a('t'){"<"})
+
+      ok("<input name=\"n\" type=\"submit\" value=\"t\"/>",
+	 g.submit('t', 'n')) # test_form
+      ok("<textarea name=\"\">t</textarea>", g.textarea{'t'})
+      ok("<select name=\"n\"><option name=\"t1\">t1</option><option name=\"t2\">t2</option></select>", g.select('n', 't1', 't2'))
+
+      ok("<input type=\"hidden\" name=\"n\"/>", g.hidden('n'))
+      ok("<input type=\"hidden\" name=\"n\" value=\"v\"/>",
+	 g.hidden('n', 'v'))
+      ok("<input name=\"n\" id=\"i\" value=\"v\"/>",
+	 g.hidden({:name=>'n', :value=>'v', :id=>'i'}))
+      ok("<input name=\"n\" id=\"i\" value=\"v\"/>",
+	 g.hidden(:name=>'n', :value=>'v', :id=>'i'))
+
+      ok("<form>t</form>", g.form{'t'})
+      ok("<form method=\"POST\">t</form>", g.form('POST'){'t'})
+      ok("<form method=\"POST\" action=\"u\">t</form>",
+	 g.form('POST', 'u'){'t'})
+      ok("<form enctype=\"multipart/form-data\" method=\"POST\">t</form>",
+	 g.form(:method=>'POST', :enctype=>'multipart/form-data'){'t'})
+
+      # test_apos
+      ok("&lt;&amp;", HTree::Text.new("<&"))
+      ok("'", HTree::Text.new("'"))
+      xml = g.p(:title => "What's New"){'t'}
+      ok("<p title=\"What's New\">t</p>", xml)
+      xml = g.p{"What's New"}
+      ok("<p>What's New</p>", xml)
+
+      # test_html
+      html = g.html {[
+	  g.head {[
+	      g.contenttype("text/html; charset=SHIFT_JIS"),
+	      g.title {"タイトル"},
+	      g.stylesheet('style.css')
+	    ]},
+	  g.body {[
+	      g.pre {[g.b {'world'},  'hello']},
+	      g.pre {['This is ', g.b{'bold'}, ' text.']},
+	      g.pre {['This is ', g.i{'italic'}, ' text.']},
+	      g.p {['This is ', g.a('hoge'){'anchor'}, ' text.']},
+	      g.p {['This is ', g.a(:href=>'hoge'){'anchor'}, ' text.']},
+	      g.img('new.gif', 'new')
+	    ]}
+	]}
+      ok("<html><head><meta content=\"text/html; charset=SHIFT_JIS\" http-equiv=\"Content-Type\"/><title>タイトル</title><link href=\"style.css\" rel=\"stylesheet\" type=\"text/css\"/></head><body><pre><b>world</b>hello</pre><pre>This is <b>bold</b> text.</pre><pre>This is <i>italic</i> text.</pre><p>This is <a href=\"hoge\">anchor</a> text.</p><p>This is <a href=\"hoge\">anchor</a> text.</p><img src=\"new.gif\" alt=\"new\"/></body></html>", html)
+
+      ok_eq(<<'EOT'.chomp, html.format_xml(0))
+<html
+><head
+><meta content="text/html; charset=SHIFT_JIS" http-equiv="Content-Type"
+/><title
+>タイトル</title
+><link href="style.css" rel='stylesheet' type="text/css"
+/></head
+><body
+><pre
+><b
+>world</b
+>hello</pre
+><pre
+>This is <b
+>bold</b
+> text.</pre
+><pre
+>This is <i
+>italic</i
+> text.</pre
+><p
+>This is <a href='hoge'
+>anchor</a
+> text.</p
+><p
+>This is <a href='hoge'
+>anchor</a
+> text.</p
+><img src="new.gif" alt='new'
+/></body
+></html
+>
+EOT
+    end
+  end
+end

data/vendor/qwik/lib/qwik/htree-template.rb

@@ -0,0 +1,263 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'
+require 'htree'
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module HTree
+  class Attr < Hash
+    def initialize(h)
+      self.update(h)
+    end
+  end
+
+  module Container
+    def html_tags(*tags)
+      ar = []
+      tags.map {|tag|
+	ar << tag
+	ar << "{http://www.w3.org/1999/xhtml}#{tag}"
+      }
+      return ar
+    end
+
+    def replace(*otags, &block)
+      tags = html_tags(*otags)
+
+      subst = {}
+      each_child_with_index {|descendant, i|
+	if ! descendant.elem?
+	  subst[i] = descendant
+	  next
+	end
+
+	if tags.length == 0 || tags.include?(descendant.name)
+	  y = yield(descendant)
+	  if !(y === descendant)
+	    subst[i] = y
+	    next
+	  end
+	end
+
+	subst[i] = descendant.replace(*tags, &block)
+      }
+      return to_node.subst_subnode(subst)
+    end
+    alias each_tag replace
+
+    def apply(data)
+      replace {|e|
+	eid = e.get_attr('id')
+	next e if eid.nil?
+	eid = eid.intern
+	d = data[eid]
+	next nil if d.nil?
+	next e if d == true
+	if d.is_a? HTree::Attr
+	  next e.clone_with(d)
+	elsif d.is_a? Array
+	  next e.clone_with(d.flatten)
+	end
+	e.clone_with(d)
+      }
+    end
+  end
+
+  class Elem
+    include Enumerable
+    alias each each_child
+
+    def delete_spaces
+      ar = map {|e|
+	e.is_a?(HTree::Text) ? e.to_s.sub(/^\s+/, "").sub(/\s+$/, "") : e
+      }
+      clone_without_child.clone_with(ar)
+    end
+
+    def clone_without_child
+      name = self.name
+      org_attr = self.attributes
+      attr = symbol_to_str(org_attr)
+      return Elem.new(name, attr)
+    end
+
+    def clone_with(*ar)
+      name = self.name
+      org_attr = self.attributes
+      attr = symbol_to_str(org_attr)
+
+      nar = []
+      ar.flatten.each {|e|
+	if e.is_a?(Hash)
+	  data = symbol_to_str(e)
+	  attr.update(data)
+	elsif e.nil?
+	  # do nothing
+	else
+	  nar << e
+	end
+      }
+
+      return Elem.new(name, attr, @children, *nar)
+    end
+
+    private
+
+    def symbol_to_str(sdata)
+      data = {}
+      sdata.each {|k, v|
+	data[k.to_s] = v.to_s
+      }
+      return data
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/htree-format-xml'
+  require 'qwik/htree-generator'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestHTreeTemplate < Test::Unit::TestCase
+    def ok(e, s)
+      ok_eq(e, s.format_xml)
+    end
+
+    def test_all
+      g = HTree::Generator.new
+
+      # test_symbol_to_str
+      HTree::Elem.instance_eval {
+	public :symbol_to_str
+      }
+      ok_eq({'t'=>'s'}, g.a.symbol_to_str({:t => 's'}))
+
+      # test_apply
+      org = HTree("<p><div id='a'/><div id='b'/></p>")
+      data = {}
+      data[:a] = 'a'
+      data[:b] = g.b
+      h = org.apply(data)
+      ok("<p><div id=\"a\">a</div><div id=\"b\"><b/></div></p>", h)
+
+      data = {}
+      data[:a] = nil
+      data[:b] = HTree::Attr.new(:action => 'd.html')
+      h = org.apply(data)
+      ok("<p><div action=\"d.html\" id=\"b\"></div></p>", h)
+
+      data = {}
+      data[:a] = [['a', g.hr]] # OK.
+      data[:b] = nil
+      h = org.apply(data)
+      ok("<p><div id=\"a\">a<hr/></div></p>", h)
+
+      # test_each_tag
+      org = HTree("<a><b><c/><d/><c/></b></a>")
+      ok("<a><b><c/><d/><c/></b></a>", org)
+      xml = org.each_tag('c'){|e| nil }
+      ok("<a><b><d/></b></a>", xml)
+      xml = org.each_tag('c'){|e| e }
+      ok("<a><b><c/><d/><c/></b></a>", xml)
+      xml = org.each_tag('c'){|e| HTree::Elem.new('cc') }
+      ok("<a><b><cc/><d/><cc/></b></a>", xml)
+      xml = org.each_tag('c'){|e| g.dd }
+      ok("<a><b><dd/><d/><dd/></b></a>", xml)
+      xml = org.each_tag('c'){|e| e.clone_with('test1') }
+      ok("<a><b><c>test1</c><d/><c>test1</c></b></a>", xml)
+
+      # test_set_attr
+      e = g.a(:href => 't.html'){'t'}
+      ok("<a href=\"t.html\">t</a>", e)
+      e = e.clone_with('href' => 's.html')
+      ok("<a href=\"s.html\">t</a>", e)
+      e = e.clone_with('s')
+      ok("<a href=\"s.html\">ts</a>", e)
+
+      # test_textarea
+      org = HTree("<textarea></textarea>")
+      htree = org.replace('textarea'){|e|
+	e.clone_with('text')
+      }
+      ok("<textarea>text</textarea>", htree)
+      org = HTree("<textarea id='contents'></textarea>")
+      data = {}
+      data[:contents] = 'text'
+      htree = org.apply(data)
+      ok("<textarea id=\"contents\">text</textarea>", htree)
+
+      # test_html_tags
+      h = HTree("<a>")
+      ok_eq(['a', "{http://www.w3.org/1999/xhtml}a"], h.html_tags('a'))
+      ok_eq(['a', "{http://www.w3.org/1999/xhtml}a", 'b', "{http://www.w3.org/1999/xhtml}b"], h.html_tags('a', 'b'))
+
+      # test_clone
+      h = HTree("<a href='1.html'>t</a>")
+      e = h.children[0]
+      xml = e.clone_with('test1')
+      ok("<a href=\"1.html\">ttest1</a>", xml)
+      xml = e.clone_with('href'=>'n.html')
+      ok("<a href=\"n.html\">t</a>", xml)
+    end
+
+    def test_replace
+      g = HTree::Generator.new
+
+      h = HTree("<a><b/><c/></a>")
+
+      h2 = h.replace {|e| e.name == 'c' ? 'text' : e } # insert a text
+      ok("<a><b/>text</a>", h2)
+
+      h2 = h.replace('nosuch') {|e| nil } # no effect
+      ok("<a><b/><c/></a>", h2)
+
+      h2 = h.replace('b') {|e| e } # no effect
+      ok("<a><b/><c/></a>", h2)
+
+      h2 = h.replace('b') {|e| nil } # delete it
+      ok("<a><c/></a>", h2)
+
+      h2 = h.replace('b') {|e| 'text' } # insert a text
+      ok("<a>text<c/></a>", h2)
+
+      h2 = h.replace('b') {|e| g.d } # insert a element
+      ok("<a><d/><c/></a>", h2)
+
+      h2 = h.replace('b') {|e| g.d{'text'} } # insert a element with text
+      ok("<a><d>text</d><c/></a>", h2)
+
+      h = HTree("<p><span id='a'/><span id='b'/></p>")
+
+      h2 = h.replace('span'){|e| e.get_attr('id') } # insert the id as text
+      ok("<p>ab</p>", h2)
+
+      h2 = h.replace('span'){|e| e.get_attr('id') == 'b' ? e : nil }
+      ok('<p><span id='b'/></p>', h2)
+
+      h = HTree("<h2/><h3/><h4/><h5/><h6/>")
+
+      h2 = h.replace('h3', 'h4') {|e| g.make(e.name){ e.name } } # insert a text
+      ok("<h2/><h3>h3</h3><h4>h4</h4><h5/><h6/>", h2)
+
+      h2 = h.replace {|e| e.name == 'h5' ? 'text' : e } # insert a text
+      ok("<h2/><h3/><h4/>text<h6/>", h2)
+
+      h2 = h.replace('h4') {|e| [g.h3{'h'}, g.hr] } # 
+      ok("<h2/><h3/><h3>h</h3><hr/><h5/><h6/>", h2)
+
+      h = HTree("<span></span>")
+      h2 = h.each_tag('span'){|e| [g.h3{'h'}, g.hr] }
+      ok("<h3>h</h3><hr/>", h2)
+
+      h2 = h.each_tag('span'){|e|
+	[g.h3{'h3'}, g.ul{g.li{g.a('href'=>'1.html'){'1'}}}]
+      }
+      ok("<h3>h3</h3><ul><li><a href=\"1.html\">1</a></li></ul>", h2)
+    end
+  end
+end