qwikdoc 0.0.1

data/vendor/qwik/wabisabi-diff.rb

@@ -0,0 +1,130 @@
+# 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.
+
+require 'timeout'
+
+$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'
+begin
+  require 'diff'
+rescue LoadError
+  require 'algorithm/diff'
+end
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-string'
+
+class DiffGenerator
+  def self.gen_ary(s1, s2)
+    s1 = s1.gsub(/\r/, '')
+    s2 = s2.gsub(/\r/, '')
+    a1 = s1.split("\n").collect! {|s| "#{s}\n"}
+    a2 = s2.split("\n").collect! {|s| "#{s}\n"}
+    Diff.diff(a1, a2) 
+  end
+
+  MAX_TIME = 10		# 10 sec
+
+  # ref. http://moonrock.jp/%7Edon/wikimodoki/security.html
+  def self.generate(s1, s2, maxtime=MAX_TIME)
+    result = nil
+    begin
+      Timeout.timeout(maxtime) {
+	result = generate_internal(s1, s2)
+      }
+    rescue Timeout::Error
+      return ['timeout']
+    end
+    result
+  end
+
+  def self.generate_internal(s1, s2)
+    s1 = s1.gsub(/\r/, '')
+    s2 = s2.gsub(/\r/, '')
+
+    # why?
+    #src = s1.split("\n").collect {|s| "#{s.escapeHTML}" }
+    #src = s1
+    src = s1.split("\n").collect {|s| s }
+
+    si = 0
+    di = 0
+    e = []
+    self.gen_ary(s1, s2).each {|action, position, elements|
+      case action
+      when :-
+          while si < position
+	    e << src[si]
+	    e << [:br]
+            si += 1
+            di += 1
+          end
+	si += elements.length
+	elements.each {|l|
+	  e << [:del, l.chomp]
+	  e << [:br]
+	}
+      when :+
+          while di < position
+	    e << src[si]
+	    e << [:br]
+            si += 1
+            di += 1
+          end
+	di += elements.length
+	elements.each {|l|
+	  e << [:ins, l.chomp]
+	  e << [:br]
+	}
+      end
+    }
+    while si < src.length
+      e << src[si]
+      e << [:br]
+      si += 1
+    end
+    e
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestDiffGenerator < Test::Unit::TestCase
+    def test_all
+      # check_diff
+      is "[[:+, 1, \"t\"]]", Diff.diff('t', 'tt').inspect
+      is "[[:-, 1, \"t\"]]", Diff.diff('tt', 't').inspect
+
+      curstr = "a
+b
+c
+"
+      newstr = "a
+z
+c
+"
+
+      # test_gen_ary
+      is [[:-, 0, ["t\n"]], [:+, 0, ["tt\n"]]],
+	DiffGenerator.gen_ary('t', 'tt')
+      is [[:-, 1, ["z\n"]], [:+, 1, ["b\n"]]],
+	DiffGenerator.gen_ary(newstr, curstr)
+
+      # test_generate
+      is [[:del, 't'], [:br], [:ins, 'tt'], [:br]],
+	DiffGenerator.generate('t', 'tt')
+      is ['a', [:br], [:del, 'z'], [:br],
+	[:ins, 'b'], [:br], 'c', [:br]],
+	DiffGenerator.generate(newstr, curstr)
+
+      # test_vulnerability
+      curstr = "a\n \n" * 10000
+      newstr = "b\n \n" * 10000
+      is ["timeout"], DiffGenerator.generate(newstr, curstr, 1)
+    end
+  end
+end

data/vendor/qwik/wabisabi-format-xml.rb

@@ -0,0 +1,310 @@
+# 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.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-string'
+
+$LOAD_PATH << '../../ext' unless $LOAD_PATH.include?('../../ext')
+begin
+  require 'xmlformatter.so'
+  $have_xmlformatter_so = true
+rescue LoadError
+  #p "No extention.  Use Ruby version."
+  $have_xmlformatter_so = false
+end
+
+module Qwik
+  class RB_XMLFormatter
+    # copied from gonzui-0.1
+    # Extend some functions by Kouichirou Eto
+
+    # To eliminate costs for object creation, the following
+    # strings are defined as constants. It makes format_xml
+    # 1.2 times faster.
+    SP = ' '
+    QT = '"'
+    EQ = '='
+    LT = '<'
+    GT = '>'
+    LF = "\n"
+    SL = '/'
+    NL = '' # null
+
+    # Meta element
+    XMLDECL = '?xml'
+    DOCTYPE = '!DOCTYPE'
+    COMMENT = '!--'
+    CDATA = '![CDATA['
+
+    def format(ar, indent=0, sindent=0)
+      n = (0 <= indent) ? LF : NL
+      sn = (0 <= sindent) ? LF : NL
+
+      if !ar[0].is_a?(Symbol)
+	out = ''
+	ar.each {|x|
+	  if x.is_a?(Array)
+	    out << format(x, indent, sindent) # recursive
+	  elsif x.is_a?(String)
+	    out << x.escapeHTML
+	  elsif x.is_a?(NilClass)
+	    # do nothing
+	  else
+	    p "what?", x
+	    out << x.to_s.escapeHTML
+	  end
+	}
+	return out
+      end
+
+      element = ar[0].to_s.escapeHTML
+
+      if element == XMLDECL # XML Declaration
+	attributes = ''
+	attributes += " version=\""+ar[1]+"\"" if ar[1]
+	attributes += " encoding=\""+ar[2]+"\"" if ar[2]
+	attributes += " standalone=\""+ar[3]+"\"" if ar[3]
+	return "<?xml"+attributes+"?>"
+
+      elsif element == DOCTYPE # doctype
+	return "<!DOCTYPE "+ar[1]+' '+ar[2]+
+	  " \""+ar[3]+"\" \""+ar[4]+"\">"
+
+      elsif element == COMMENT # comment
+	return "<!--"+ar[1]+"-->"
+
+      elsif element == CDATA # CDATA
+	return "<![CDATA["+ar[1]+"]]>"
+
+      end
+
+      offset = 1
+      attributes = ''
+      while ar[offset].is_a?(Hash)
+	attr = ar[offset]
+	offset += 1
+	attr.keys.sort{|a, b| a.to_s <=> b.to_s }.each {|k|
+	  v = attr[k]
+	  attributes << SP << k.to_s.escapeHTML << EQ << QT << v.to_s.escapeHTML << QT
+	}
+      end
+
+      if ar[offset].nil? && ar.length == offset
+	o = ''
+	o << LT << element << attributes << n << SL << GT
+	return o
+      end
+
+      out = ''
+      out << LT << element << attributes << sn << GT
+      (offset...ar.length).each {|i|
+	x = ar[i]
+	if x.is_a?(Array)
+	  out << format(x, indent, sindent) # recursive
+	elsif x.is_a?(String)
+	  out << x.escapeHTML
+	else
+	  out << x.to_s.escapeHTML
+	end
+      }
+      out << LT << SL << element << n << GT
+      out
+    end
+  end
+end
+
+class Array
+  def rb_format_xml(indent=0, sindent=0)
+    formatter = Qwik::RB_XMLFormatter.new
+    result = formatter.format(self, indent, sindent)
+    result
+  end
+
+  # You can not specify indent in c_formt_xml.
+  def c_format_xml
+    formatter = Gonzui::XMLFormatter.new
+    result = formatter.format(self)
+    result
+  end
+
+  def format_xml
+    return self.c_format_xml if $have_xmlformatter_so
+    return self.rb_format_xml
+  end
+end
+
+if $0 == __FILE__
+  if ARGV[0] == '-c'
+    $check = true
+  else
+    require 'qwik/testunit'
+    require 'pp'
+    $test = true
+  end
+end
+
+if defined?($test) && $test
+  class TestXMLFormatter < Test::Unit::TestCase
+    def ok(e, w)
+      ok_eq(e, w.rb_format_xml)
+      ok_eq(e, w.format_xml)	# assert twice
+    end
+
+    def ok_rb(e, w)
+      ok_eq(e, w.rb_format_xml)
+    end
+
+    def test_rb_format_xml
+      ok_eq("<a\n/>", [:a].rb_format_xml(0))
+      ok_eq("<a></a\n>", [:a, ""].rb_format_xml(0, -1))
+      ok_eq("<a\n></a\n>", [:a, ""].rb_format_xml)
+      ok_eq("<a><b></b></a>", [:a, [:b, '']].rb_format_xml(-1, -1))
+      ok_eq("<a><b></b\n></a\n>", [:a, [:b, ""]].rb_format_xml(0, -1))
+      ok_eq("<a\n><b\n></b\n></a\n>", [:a, [:b, ""]].rb_format_xml)
+    end
+
+    def test_all
+      # test_basic
+      ok("<a\n/>", [:a])
+      ok("<a\n>t</a\n>", [:a, 't'])
+      ok("<a\n><b\n></b\n></a\n>", [:a, [:b, '']])
+      ok("<a href=\"t\"\n>s</a\n>", [:a, {:href=>'t'}, 's'])
+
+      # test_escape
+      ok("<a\n>&lt;</a\n>", [:a, '<'])
+      ok("<a href=\"&lt;\"\n/>", [:a, {:href=>'<'}])
+      ok("<a &gt;=\"&lt;\"\n/>", [:a, {'>'=>'<'}])
+      ok("<a &lt;=\"&lt;\"\n/>", [:a, {'<'=>'<'}])
+      ok("<&lt;\n/>", [:'<'])
+      ok("<&lt; &amp;=\"&lt;\"\n/>", [:'<', {'&'=>'<'}])
+
+      # test_doctype
+      ok("<!DOCTYPE html PUBLIC \"-//W3C//DTD html 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">",
+	 [:"!DOCTYPE", 'html', 'PUBLIC',
+	   '-//W3C//DTD html 4.01 Transitional//EN',
+	   'http://www.w3.org/TR/html4/loose.dtd'])
+      ok("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">",
+	 [:"!DOCTYPE", 'html', 'PUBLIC',
+	   '-//W3C//DTD XHTML 1.0 Transitional//EN',
+	   'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'])
+
+      # test_comment
+      ok('<!--comment-->', [:'!--', 'comment'])
+      ok("<!--<-->", [:"!--", "<"])
+
+      # test_text
+      ok('', [])
+      ok('', [''])
+      ok('a', ['a'])
+      ok('ab', ['a', 'b'])
+      ok('abc', ['a', ['b'], 'c'])
+
+      # test_null
+      ok("<a\n></a\n>", [:a, ''])
+      ok("<a\n></a\n>", [:a, nil])
+      ok("<a\n></a\n>", [:a, []])
+      ok("<a\n>nil</a\n>", [:a, :nil])
+      ok("<p id=\"\"\n/>", [:p, {:id=>''}])
+      ok("<p id=\"\"\n/>", [:p, {:id=>nil}])
+      ok("<p id=\"\"\n/>", [:p, {:id=>[]}])
+      ok("<p\n>b</p\n>", [:p, [['b']]])
+      ok("<p\n>bc</p\n>", [:p, ['b'], 'c'])
+      ok("<p id=\"\"\n></p\n>", [:p, {:id=>''}, ''])
+
+      # test_non_destructive
+      w = [:a]
+      ok("<a\n/>", w)
+      ok("<a\n/>", w)
+
+      # test_bug
+      ok("<a\n/><b\n/>", [[:a], [:b]])
+
+      # test_format_xml # copied from gonzui-0.3
+      html = [:html]
+      head = [:head, [:title, 'foo']]
+      body = [:body, [:h1, [:a, {:href => 'foo<&">.html'}, 'foo<&">']]]
+      body.push([:p, 'hello'])
+      html.push(head)
+      html.push(body)
+      ok("<html\n><head\n><title\n>foo</title\n></head\n><body\n><h1\n><a href=\"foo&lt;&amp;&quot;&gt;.html\"\n>foo&lt;&amp;&quot;&gt;</a\n></h1\n><p\n>hello</p\n></body\n></html\n>", html)
+
+      # test_general
+      ok(
+"<html
+><head
+><title
+>hello</title
+></head
+><body
+><h1
+>hello, world!</h1
+><p
+>This is <a href=\"hello.html\"
+>hello, world</a
+>example.</p
+></body
+></html
+>",
+	 [:html,
+	   [:head,
+	     [:title, 'hello']],
+	   [:body,
+	     [:h1, 'hello, world!'],
+	     [:p, 'This is ',
+	       [:a, {:href=>'hello.html'}, 'hello, world'],
+	       'example.']]]
+	 )
+
+      # test_etc
+      ok_rb("<html lang=\"ja\" xml:lang=\"ja\" xmlns=\"http://www.w3.org/1999/xhtml\"\n></html\n>",
+	 [:html, {:xmlns=>'http://www.w3.org/1999/xhtml',
+	     :'xml:lang'=>'ja', :lang=>'ja'}, ''])
+      ok_rb("<meta content=\"text/html; charset=shift_jis\" http-equiv=\"Content-Type\"\n/>",
+	 [:meta, {:'http-equiv'=>'Content-Type',
+	     :content=>'text/html; charset=shift_jis'}])
+
+      # test_cdata
+      ok("<![CDATA[cdata]]>", [:'![CDATA[', 'cdata'])
+      ok("<![CDATA[<]]>", [:'![CDATA[', "<"])
+
+      # test_xmldecl
+      ok("<?xml?>", [:'?xml'])
+      ok("<?xml version=\"1.0\"?>", [:'?xml', '1.0'])
+      ok("<?xml version=\"1.0\" encoding=\"utf-8\"?>",
+	 [:'?xml', '1.0', 'utf-8'])
+      ok("<?xml version=\"1.0\" encoding=\"utf-8\" standalone=\"yes\"?>",
+	 [:'?xml', '1.0', 'utf-8', 'yes'])
+      ok("<?xml version=\"1.0\" encoding=\"utf-8\"?><a\n/>",
+	 [[:'?xml', '1.0', 'utf-8'], [:a]])
+
+      # check_wabisabi_output
+      html = [:html,
+	[:head,
+	  [:title, 'hello']],
+	[:body,
+	  [:h1, 'hello, world!'],
+	  [:p, 'This is a ',
+	    [:a, {:href=>'hello.html'}, 'hello, world'],
+	    ' example.']]]
+      #puts html.format_xml
+      ok("<html
+><head
+><title
+>hello</title
+></head
+><body
+><h1
+>hello, world!</h1
+><p
+>This is a <a href=\"hello.html\"
+>hello, world</a
+> example.</p
+></body
+></html
+>",
+	 html)
+    end
+  end
+end
+

data/vendor/qwik/wabisabi-generator.rb

@@ -0,0 +1,262 @@
+# 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.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/html-generator'
+
+module Qwik
+  module WabisabiGeneratorModule
+    def method_missing(symbol, *args, &block)
+      make(symbol, *args, &block)
+    end
+
+    def p(*args, &block)
+      make(:p, *args, &block)
+    end
+
+    def make(symbol, *args, &block)
+      symbol = symbol.intern if symbol.is_a?(String)
+      ar = make_ar(symbol, *args, &block)
+      ar
+    end
+
+    def make_ar(symbol, *args, &block)
+      ar = []
+
+      ar << symbol
+
+      if 0 < args.length
+	ar += args.flatten
+      end
+
+      if block
+	y = block.call
+	es = add_elems(y)
+	if 0 < es.length
+	  if es[0].is_a? Symbol
+	    ar << es
+	  else
+	    ar += es
+	  end
+	end
+      end
+
+      ar
+    end
+
+    def add_elems(args)
+      return [] if args.nil?
+      return [args] unless args.kind_of? Array
+      ar = []
+      args.each {|a|
+	a = '' if a.nil?
+	ar << a
+      }
+      ar
+    end
+  end
+
+  module WabisabiHtmlGeneratorModule
+    include WabisabiGeneratorModule
+    include HtmlGeneratorUnit
+  end
+
+  class WabisabiGenerator; include WabisabiGeneratorModule; end
+  class WabisabiHtmlGenerator; include WabisabiHtmlGeneratorModule; end
+
+  class Generator < WabisabiGenerator; end
+  class HtmlGenerator < WabisabiHtmlGenerator; end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/wabisabi-format-xml'
+  # $KCODE = 's'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestWabisabiGenerator < Test::Unit::TestCase
+    def ok(e, s)
+      assert_equal e, s
+    end
+
+    def test_all
+      g = Qwik::WabisabiGenerator.new
+
+      # test_htree_generator
+      ok([:p], g.p)
+      ok([:a], g.a)
+      ok([:b], g.b{})
+      ok([:b, ''], g.b{''})
+      ok([:img, {:src=>'u'}], g.img(:src=>'u'))
+      ok([:b, 't'], g.b{'t'})
+      ok([:p, [:b, 'b']], g.p{g.b{'b'}})
+      ok([:p, 't', [:p, 'b'], 't'], g.p{['t', g.p{'b'}, 't']})
+      ok([:a, {:href=>'u'}, 't'], g.a(:href=>'u'){'t'})
+      ok([:font, {:size=>'7'}, 't'], g.font(:size=>'7'){'t'})
+
+      # test_namespace
+      ok([:b, 't'], g.make('b'){'t'}) 
+      ok([:'n:b', 't'], g.make('n:b'){'t'})
+      ok([:a, {:href=>'u'}, 't'], g.make('a', :href=>'u'){'t'})
+      html = g.html {[
+	  g.head {[
+	      g.title {"�^�C�g��"},
+	    ]},
+	  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(:href=>'hoge'){'anchor'}, ' text.']},
+	    ]}
+	]}
+      ok([:html,
+	   [:head, [:title, "�^�C�g��"]],
+	   [:body,
+	     [:pre, [:b, 'world'], 'hello'],
+	     [:pre, 'this is ', [:b, 'bold'], ' text.'],
+	     [:pre, 'this is ', [:i, 'italic'], ' text.'],
+	     [:p, 'this is ', [:a, {:href=>'hoge'}, 'anchor'], ' text.']]],
+	 html)
+
+      # test_with_underbar
+      ok([:ab], g.ab)
+      ok([:'a-b'], g.make('a-b'))
+
+      # test_ordered_hash
+      ok([:a, {'b'=>'c'}], g.a({'b'=>'c'}))
+      ok([:a, {'b'=>'c'}], g.a([{'b'=>'c'}]))
+      ok([:a, {'b'=>'c'}, {'d'=>'e'}], g.a([{'b'=>'c'}, {'d'=>'e'}]))
+      ok([:a, {'b'=>'c'}, {'d'=>'e'}], g.a({'b'=>'c'}, {'d'=>'e'}))
+    end
+  end
+
+  class TestWabisabiHtmlGenerator < Test::Unit::TestCase
+    def ok(e, s)
+      assert_equal e, s
+    end
+
+    def test_htree_html_generator
+      g = Qwik::WabisabiHtmlGenerator.new
+      ok([:p], g.p)
+
+      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',
+	     :type=>'text/css', :rel=>'stylesheet'}],
+	 g.stylesheet('style1.css'))
+
+      # test_link
+      ok([:a, {:href=>'t'}, 's'], g.a('t'){'s'})
+      ok([:a, {:href=>"t?a"}, 's'], g.a("t?a"){'s'})
+      ok([:a, {:href=>"t?a&b"}, 's'], g.a("t?a&b"){'s'})
+      ok([:a, {:href=>'t'}, "<"], g.a('t'){"<"})
+
+      # test_form
+      ok([:input, {:name=>'n'}], g.text('n'))
+      ok([:input, {:value=>'t', :type=>'submit', :name=>'n'}],
+	 g.submit('t', 'n'))
+      ok([:textarea, {:name=>''}, 't'],
+	 g.textarea{'t'})
+      ok([:select,
+	   {:name=>'n'},
+	   [:option, {:name=>'t1'}, 't1'],
+	   [:option, {:name=>'t2'}, 't2']], 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, {:id=>'i', :value=>'v', :name=>'n'}],
+	 g.hidden({:name=>'n', :value=>'v', :id=>'i'}))
+      ok([:input, {:id=>'i', :value=>'v', :name=>'n'}],
+	 g.hidden(:name=>'n', :value=>'v', :id=>'i'))
+
+      ok([:form, 't'], g.form{'t'})
+      ok([:form, {:method=>'POST'}, 't'], g.form('POST'){'t'})
+      ok([:form, {:method=>'POST'}, {:action=>'u'}, 't'],
+	 g.form('POST', 'u'){'t'})
+      ok([:form, {:enctype=>'multipart/form-data', :method=>'POST'}, 't'],
+	 g.form(:method=>'POST', :enctype=>'multipart/form-data'){'t'})
+
+      # test_html
+      html = g.html {[
+	  g.head {[
+	      g.contenttype("text/html; charset=SHIFT_JIS"),
+	      g.title {"�^�C�g��"},
+	      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, "�^�C�g��"],
+	     [:link,
+	       {:href=>'style.css', :rel=>'stylesheet', :type=>'text/css'}]],
+	   [:body,
+	     [:pre, [:b, 'world'], 'hello'],
+	     [:pre, 'This is ', [:b, 'bold'], ' text.'],
+	     [:pre, 'This is ', [:i, 'italic'], ' text.'],
+	     [:p, 'This is ', [:a, {:href=>'hoge'}, 'anchor'], ' text.'],
+	     [:p, 'This is ', [:a, {:href=>'hoge'}, 'anchor'], ' text.'],
+	     [:img, {:alt=>'new', :src=>'new.gif'}]]], html)
+    end
+  end
+
+  class TestWabisabiXmlGeneratorModule < Test::Unit::TestCase
+    include Qwik::WabisabiGeneratorModule
+
+    def ok(e, s)
+      assert_equal e, s.rb_format_xml(-1, -1)
+    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 TestWabisabiHtmlGeneratorModule < Test::Unit::TestCase
+    include Qwik::WabisabiHtmlGeneratorModule
+
+    def ok(e, s)
+      assert_equal e, s.rb_format_xml(-1, -1)
+    end
+
+    def test_all
+      html = html {[
+	  head {[
+	      contenttype("text/html; charset=SHIFT_JIS"),
+	      title {"�^�C�g��"},
+	      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("<html><head><meta content=\"text/html; charset=SHIFT_JIS\" http-equiv=\"Content-Type\"/><title>�^�C�g��</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 alt=\"new\" src=\"new.gif\"/></body></html>", html)
+    end
+  end
+end