bitclust-core 0.5.0

data/test/test_methodsignature.rb

@@ -0,0 +1,14 @@
+require 'test/unit'
+require 'bitclust/methodsignature'
+
+class TestMethodSignature < Test::Unit::TestCase
+
+  def test_friendlyname
+    [
+      ["$_ -> String | nil", "--- $_ -> String | nil"],
+      ["`command` -> String", "--- `(command) -> String"],
+    ].each do |friendly_string, method_signature|
+      assert_equal friendly_string, BitClust::MethodSignature.parse(method_signature).friendly_string
+    end
+  end
+end

data/test/test_nameutils.rb

@@ -0,0 +1,324 @@
+require 'test/unit'
+require 'bitclust/nameutils'
+
+class TestNameUtils < Test::Unit::TestCase
+
+  include BitClust::NameUtils
+
+  def test_libname?
+    assert_equal true, libname?("_builtin")
+    assert_equal true, libname?("fileutils")
+    assert_equal true, libname?("socket")
+    assert_equal true, libname?("open-uri")
+    assert_equal true, libname?("net/http")
+    assert_equal true, libname?("racc/cparse")
+    assert_equal true, libname?("test/unit/testcase")
+    assert_equal false, libname?("")
+    assert_equal false, libname?("fileutils ")
+    assert_equal false, libname?(" fileutils")
+    assert_equal false, libname?("file utils")
+    assert_equal false, libname?("fileutils\n")
+    assert_equal false, libname?("fileutils\t")
+    assert_equal false, libname?("fileutils.rb")
+    assert_equal false, libname?("English.rb")
+    assert_equal false, libname?("socket.so")
+    assert_equal false, libname?("net/http.rb")
+    assert_equal false, libname?("racc/cparse.so")
+  end
+
+  def test_libname2id
+    assert_equal "_builtin", libname2id("_builtin")
+    assert_equal "fileutils", libname2id("fileutils")
+    assert_equal "socket", libname2id("socket")
+    assert_equal "English", libname2id("English")
+    assert_equal "open=2duri", libname2id("open-uri")
+    assert_equal "net.http", libname2id("net/http")
+    assert_equal "racc.cparse", libname2id("racc/cparse")
+    assert_equal "test.unit.testcase", libname2id("test/unit/testcase")
+  end
+
+  def test_libid2name
+    assert_equal "_builtin", libid2name("_builtin")
+    assert_equal "fileutils", libid2name("fileutils")
+    assert_equal "socket", libid2name("socket")
+    assert_equal "English", libid2name("English")
+    assert_equal "open-uri", libid2name("open=2duri")
+    assert_equal "net/http", libid2name("net.http")
+    assert_equal "racc/cparse", libid2name("racc.cparse")
+    assert_equal "test/unit/testcase", libid2name("test.unit.testcase")
+  end
+
+  def test_classname?
+    assert_equal true, classname?("fatal")
+    assert_equal true, classname?("Array")
+    assert_equal true, classname?("String")
+    assert_equal true, classname?("Net::HTTP")
+    assert_equal true, classname?("Test::Unit::TestCase")
+    assert_equal false, classname?("")
+    assert_equal false, classname?("Array ")
+    assert_equal false, classname?(" Array")
+    assert_equal false, classname?("Test Case")
+    assert_equal false, classname?("TestCase\n")
+    assert_equal false, classname?("\tTestCase")
+    assert_equal false, classname?("string")
+    assert_equal false, classname?("stringScanner")
+    assert_equal false, classname?("net/http")
+    assert_equal false, classname?("net.http")
+    assert_equal false, classname?("open-uri")
+  end
+
+  def test_classname2id
+    assert_equal "Array", classname2id("Array")
+    assert_equal "String", classname2id("String")
+    assert_equal "Net=HTTP", classname2id("Net::HTTP")
+    assert_equal "Test=Unit=TestCase", classname2id("Test::Unit::TestCase")
+  end
+
+  def test_classid2name
+    assert_equal "Array", classid2name("Array")
+    assert_equal "String", classid2name("String")
+    assert_equal "Net::HTTP", classid2name("Net=HTTP")
+    assert_equal "Test::Unit::TestCase", classid2name("Test=Unit=TestCase")
+  end
+
+  def test_method_spec?
+    assert_equal true, method_spec?("String#index")
+    assert_equal true, method_spec?("CGI#accept")
+    assert_equal true, method_spec?("Net::HTTP#ca_path")
+    assert_equal true, method_spec?("FileUtils.#cp")
+  end
+
+  def test_methodid2spec
+    assert_equal "String#index", methodid2specstring("String/i.index._builtin")
+    assert_equal "CGI#accept", methodid2specstring("CGI/i.accept.cgi")
+    assert_equal "Net::HTTP#ca_path", methodid2specstring("Net=HTTP/i.ca_path.net.http")
+    assert_equal "FileUtils.#cp", methodid2specstring("FileUtils/m.cp.fileutils")
+  end
+
+  def test_methodid2libid
+    assert_equal "_builtin",   methodid2libid("String/i.index._builtin")
+    assert_equal "cgi",        methodid2libid("CGI/i.accept.cgi")
+    assert_equal "net.http",   methodid2libid("Net=HTTP/i.ca_path.net.http")
+    assert_equal "open=2duri", methodid2libid("OpenURI/m.open.open=2duri")
+  end
+
+  def test_methodid2classid
+    assert_equal "String", methodid2classid("String/i.index._builtin")
+    assert_equal "CGI", methodid2classid("CGI/i.accept.cgi")
+    assert_equal "Net=HTTP", methodid2classid("Net=HTTP/i.ca_path.net.http")
+  end
+
+  def test_methodid2typename
+    assert_equal :instance_method, methodid2typename("String/i.index._builtin")
+    assert_equal :instance_method, methodid2typename("CGI/i.accept.cgi")
+    assert_equal :instance_method, methodid2typename("Net=HTTP/i.ca_path.net.http")
+    assert_equal :singleton_method, methodid2typename("String/s.new._builtin")
+  end
+
+  def test_methodid2mname
+    assert_equal "index", methodid2mname("String/i.index._builtin")
+    assert_equal "accept", methodid2mname("CGI/i.accept.cgi")
+    assert_equal "ca_path", methodid2mname("Net=HTTP/i.ca_path.net.http")
+  end
+
+  def test_methodname?
+    assert_equal true, methodname?("index")
+    assert_equal true, methodname?("accept")
+    assert_equal true, methodname?("get")
+    assert_equal true, methodname?("Array")
+    assert_equal true, methodname?("getIndex")
+    assert_equal true, methodname?("PROXY")
+    assert_equal true, methodname?("HTTP_PROXY")
+    assert_equal true, methodname?("gsub!")
+    assert_equal true, methodname?("empty?")
+    assert_equal true, methodname?("instance_eval")
+    assert_equal true, methodname?("__send")
+    assert_equal true, methodname?("__send__")
+    assert_equal true, methodname?("__send!")
+    assert_equal true, methodname?("+")
+    assert_equal true, methodname?("-")
+    assert_equal true, methodname?("*")
+    assert_equal true, methodname?("/")
+    assert_equal true, methodname?("&")
+    assert_equal true, methodname?("|")
+    assert_equal true, methodname?("^")
+    assert_equal true, methodname?("`")
+    assert_equal true, methodname?(">>")
+    assert_equal true, methodname?("<<")
+    assert_equal true, methodname?("+@")
+    assert_equal true, methodname?("-@")
+    assert_equal true, methodname?("!")
+    assert_equal true, methodname?("!@")
+    assert_equal true, methodname?("~")
+    assert_equal true, methodname?("**")
+    assert_equal true, methodname?("<")
+    assert_equal true, methodname?(">")
+    assert_equal true, methodname?("<=")
+    assert_equal true, methodname?(">=")
+    assert_equal true, methodname?("==")
+    assert_equal true, methodname?("===")
+    assert_equal true, methodname?("=~")
+    assert_equal true, methodname?("[]")
+    assert_equal true, methodname?("[]=")
+
+    assert_equal false, methodname?("")
+    assert_equal true,  methodname?("!=")
+    assert_equal false, methodname?("!~")
+    assert_equal false, methodname?("&&")
+    assert_equal false, methodname?("||")
+    assert_equal false, methodname?("++")
+    assert_equal false, methodname?(">>>")
+    assert_equal false, methodname?("***")
+    assert_equal false, methodname?("====")
+    assert_equal false, methodname?("#accept")
+    assert_equal false, methodname?(".new")
+    assert_equal false, methodname?(".#cp")
+    assert_equal false, methodname?("$gvar")
+    assert_equal false, methodname?("CGI#accept")
+    assert_equal false, methodname?("String.new")
+    assert_equal false, methodname?("Net::HTTP.get")
+    assert_equal false, methodname?("Net::HTTP.new")
+  end
+
+  def test_build_method_id
+    assert_equal "String/i.index._builtin",
+        build_method_id("_builtin", "String", :instance_method, "index")
+  end
+
+  # library private
+  #def test_split_method_id
+  #  assert_equal ["String", "i", "index", "_builtin"],
+  #               split_method_id("String/i.index._builtin")
+  #end
+
+  def test_typename?
+    assert_equal true, typename?(:instance_method)
+    assert_equal true, typename?(:singleton_method)
+    assert_equal true, typename?(:module_function)
+    assert_equal true, typename?(:constant)
+    assert_equal true, typename?(:special_variable)
+    assert_equal false, typename?(:instance_eval)
+    assert_equal false, typename?(:instance)
+    assert_equal false, typename?(:singleton)
+    assert_equal false, typename?("i")
+    assert_equal false, typename?("s")
+    assert_equal false, typename?(:i)
+    assert_equal false, typename?(:s)
+  end
+
+  def test_typemark?
+    assert_equal true, typemark?('.')
+    assert_equal true, typemark?('#')
+    assert_equal true, typemark?('.#')
+    assert_equal true, typemark?('$')
+    assert_equal true, typemark?('::')
+    #marks = (0..255).map {|a| (0..255).map {|b| a.chr + b.chr } }.flatten
+    marks = (0..127).map {|a| (0..127).map {|b| a.chr + b.chr } }.flatten
+    (marks - %w( . # .# $ :: )).each do |m|
+      assert_equal false, typemark?(m)
+    end
+  end
+
+  def test_typechar?
+    typechars = %w( i s m c v )
+    typechars.each do |c|
+      assert_equal true, typechar?(c)
+    end
+    ((0..255).map {|b| b.chr } - typechars).each do |c|
+      assert_equal false, typechar?(c)
+    end
+  end
+
+  def test_typename2char
+    assert_equal 's', typename2char(:singleton_method)
+    assert_equal 'i', typename2char(:instance_method)
+    assert_equal 'm', typename2char(:module_function)
+    assert_equal 'c', typename2char(:constant)
+    assert_equal 'v', typename2char(:special_variable)
+  end
+
+  def test_typechar2name
+    assert_equal :singleton_method, typechar2name('s')
+    assert_equal :instance_method,  typechar2name('i')
+    assert_equal :module_function,  typechar2name('m')
+    assert_equal :constant,         typechar2name('c')
+    assert_equal :special_variable, typechar2name('v')
+  end
+
+  def test_typemark2char
+    assert_equal 's',  typemark2char('.')
+    assert_equal 'i',  typemark2char('#')
+    assert_equal 'm',  typemark2char('.#')
+    assert_equal 'c',  typemark2char('::')
+    assert_equal 'v',  typemark2char('$')
+  end
+
+  def test_typechar2mark
+    assert_equal '.',   typechar2mark('s')
+    assert_equal '#',   typechar2mark('i')
+    assert_equal '.#',  typechar2mark('m')
+    assert_equal '::',  typechar2mark('c')
+    assert_equal '$',   typechar2mark('v')
+  end
+
+  def test_encodename_url
+    assert_equal "Array",      encodename_url("Array")
+    assert_equal "String",     encodename_url("String")
+    assert_equal "index",      encodename_url("index")
+    assert_equal "=2a",        encodename_url("*")
+    assert_equal "=2a=2a",     encodename_url("**")
+    assert_equal "open=2duri", encodename_url("open-uri")
+    assert_equal "net=2ehttp", encodename_url("net.http")
+  end
+
+  def test_decodename_url
+    assert_equal "Array",      decodename_url("Array")
+    assert_equal "String",     decodename_url("String")
+    assert_equal "index",      decodename_url("index")
+    assert_equal "*",          decodename_url("=2a")
+    assert_equal "**",         decodename_url("=2a=2a")
+    assert_equal "open-uri",   decodename_url("open=2duri")
+    assert_equal "net.http",   decodename_url("net=2ehttp")
+  end
+
+  def test_encodeid
+    assert_equal "-array",        encodeid("Array")
+    assert_equal "-string",       encodeid("String")
+    assert_equal "-c-g-i",        encodeid("CGI")
+    assert_equal "=2a",           encodeid("=2a")
+    assert_equal "=2a=2a",        encodeid("=2a=2a")
+    assert_equal "open=2duri",    encodeid("open=2duri")
+    assert_equal "-net=-h-t-t-p", encodeid("Net=HTTP")
+  end
+
+  def test_decodeid
+    assert_equal "Array",      decodeid("-array")
+    assert_equal "String",     decodeid("-string")
+    assert_equal "CGI",        decodeid("-c-g-i")
+    assert_equal "=2a",        decodeid("=2a")
+    assert_equal "=2a=2a",     decodeid("=2a=2a")
+    assert_equal "open=2duri", decodeid("open=2duri")
+    assert_equal "Net=HTTP",   decodeid("-net=-h-t-t-p")
+  end
+
+  def test_encodename_fs
+    assert_equal "-array",     encodename_fs("Array")
+    assert_equal "-string",    encodename_fs("String")
+    assert_equal "index",      encodename_fs("index")
+    assert_equal "=2a",        encodename_fs("*")
+    assert_equal "=2a=2a",     encodename_fs("**")
+    assert_equal "open=2duri", encodename_fs("open-uri")
+    assert_equal "net=2ehttp", encodename_fs("net.http")
+  end
+
+  def test_decodename_fs
+    assert_equal "Array",      decodename_fs("-array")
+    assert_equal "String",     decodename_fs("-string")
+    assert_equal "index",      decodename_fs("index")
+    assert_equal "*",          decodename_fs("=2a")
+    assert_equal "**",         decodename_fs("=2a=2a")
+    assert_equal "open-uri",   decodename_fs("open=2duri")
+    assert_equal "net.http",   decodename_fs("net=2ehttp")
+  end
+
+end

data/test/test_preprocessor.rb

@@ -0,0 +1,84 @@
+require 'test/unit'
+require 'bitclust/preprocessor'
+require 'stringio'
+
+class TestPreprocessor < Test::Unit::TestCase
+  include BitClust
+  def test_eval_cond
+    params = { 'version' => '1.8.7' }
+
+    [
+     ['#@if( version > "1.8.0")',  true ],
+     ['#@if( version < "1.8.0")',  false],
+     ['#@if( version <= "1.8.7")', true ],
+     ['#@if( version >= "1.9.1")', false],
+     ['#@if( version == "1.8.7")', true ],
+     ['#@if( version != "1.9.0")', true ],
+     ['#@if( "1.9.0" != version)', true ],
+
+     ['#@since 1.8.0', true ],
+     ['#@since 1.8.7', true ],
+     ['#@until 1.8.7', false],
+     ['#@until 1.9.0', true ],
+
+     ['#@if( version > "1.8.0" and version < "1.9.0")', true ],
+     ['#@if( version > "1.8.9" and version < "1.9.0")', false],
+     ['#@if( version > "1.8.9" or version < "1.9.0")',  true ],
+     ['#@if( version < "1.8.0" or version > "1.9.0")',  false],
+     ['#@if( version > "1.8.0" and version < "1.9.0" and version < "1.9.1")', true ],
+     ['#@if( version > "1.8.0" and version < "1.9.0" and version > "1.9.1")', false],
+     ['#@if( version < "1.8.0" and version > "1.9.0" or "1.9.1" != version)', true ],
+    ].each{|cond, expected_result|
+      s = <<HERE
+#{cond}
+a
+\#@else
+b
+\#@end
+HERE
+      ret = Preprocessor.wrap(StringIO.new(s), params).to_a
+      if expected_result
+        assert_equal(["a\n"], ret)
+      else
+        assert_equal(["b\n"], ret)
+      end
+    }
+  end
+
+  def test_todo
+    params = { 'version' => '1.8.7' }
+    src = <<HERE
+--- puts(str) -> String
+\#@todo
+description
+HERE
+    expected = <<HERE
+--- puts(str) -> String
+@todo
+description
+HERE
+    ret = Preprocessor.wrap(StringIO.new(src), params).to_a
+    assert_equal(expected, ret.join)
+  end
+
+  def test_todo_with_condition
+    params = { 'version' => '1.9.2' }
+    src = <<HERE
+--- puts(str) -> String
+\#@since 1.9.2
+\#@todo 1.9.2
+\#@else
+\#@todo old
+\#@end
+description
+HERE
+    expected = <<HERE
+--- puts(str) -> String
+@todo 1.9.2
+description
+HERE
+    ret = Preprocessor.wrap(StringIO.new(src), params).to_a
+    assert_equal(expected, ret.join)
+  end
+end
+

data/test/test_rdcompiler.rb

@@ -0,0 +1,534 @@
+require 'bitclust/rdcompiler'
+require 'bitclust/database'
+require 'bitclust/methoddatabase'
+require 'bitclust/screen'
+require 'test/unit'
+require 'timeout'
+
+class TestRDCompiler < Test::Unit::TestCase
+
+  def setup
+    @dummy = 'dummy'
+    @u = BitClust::URLMapper.new(Hash.new{@dummy})
+    @c = BitClust::RDCompiler.new(@u, 1, {:database => BitClust::MethodDatabase.dummy})
+  end
+
+  def compile_and_assert_equal(expected, src)
+    assert_equal expected, @c.compile(src)
+  end
+
+  def test_dlist
+    src = <<'HERE'
+: t1
+ c1
+: t2
+ c2-1
+ c2-2
+HERE
+    expected = <<'HERE'
+<dl>
+<dt>t1</dt>
+<dd>
+<p>
+c1
+</p>
+</dd>
+<dt>t2</dt>
+<dd>
+<p>
+c2-1
+c2-2
+</p>
+</dd>
+</dl>
+HERE
+    compile_and_assert_equal(expected, src)
+
+    src = <<HERE
+: t1
+ c1
+
+: t2
+ c2
+
+ c3
+HERE
+    expected = <<HERE
+<dl>
+<dt>t1</dt>
+<dd>
+<p>
+c1
+</p>
+</dd>
+<dt>t2</dt>
+<dd>
+<p>
+c2
+</p>
+<p>
+c3
+</p>
+</dd>
+</dl>
+HERE
+    compile_and_assert_equal(expected, src)
+
+    src = <<HERE
+: t1
+ c1
+//emlist{
+ hoge
+//}
+: t2
+ c2
+HERE
+    expected = <<'HERE'
+<dl>
+<dt>t1</dt>
+<dd>
+<p>
+c1
+</p>
+<pre>
+ hoge
+</pre>
+</dd>
+<dt>t2</dt>
+<dd>
+<p>
+c2
+</p>
+</dd>
+</dl>
+HERE
+    compile_and_assert_equal(expected, src)
+
+    src = <<HERE
+: t1
+ c1
+
+ c2
+
+text
+HERE
+    expected = <<'HERE'
+<dl>
+<dt>t1</dt>
+<dd>
+<p>
+c1
+</p>
+<p>
+c2
+</p>
+</dd>
+</dl>
+<p>
+text
+</p>
+HERE
+    compile_and_assert_equal(expected, src)
+  end
+
+  def test_pre
+    src = <<'HERE'
+ <
+ hoge
+
+ foo
+HERE
+    expected = <<'HERE'
+<pre>
+&lt;
+hoge
+
+foo
+</pre>
+HERE
+    compile_and_assert_equal(expected, src)
+
+    src = <<'HERE'
+ pretext
+
+ * hoge1
+HERE
+    expected = <<'HERE'
+<pre>
+pretext
+
+* hoge1
+</pre>
+HERE
+    compile_and_assert_equal(expected, src)
+  end
+
+  def test_method
+    src = <<'HERE'
+--- hoge
+foo
+bar
+ text
+HERE
+    expected = <<'HERE'
+<dt class="method-heading"><code>hoge</code></dt>
+<dd class="method-description">
+<p>
+foo
+bar
+</p>
+<pre>
+text
+</pre>
+</dd>
+HERE
+    compile_and_assert_equal(expected, src)
+
+    src = <<'HERE'
+--- <=>
+
+abs
+//emlist{
+text
+//}
+HERE
+    expected = <<'HERE'
+<dt class="method-heading"><code>self &lt;=&gt; </code></dt>
+<dd class="method-description">
+<p>
+abs
+</p>
+<pre>
+text
+</pre>
+</dd>
+HERE
+    compile_and_assert_equal(expected, src)
+
+    src = <<'HERE'
+--- method
+
+: word1
+  dsc
+HERE
+    expected = <<'HERE'
+<dt class="method-heading"><code>method</code></dt>
+<dd class="method-description">
+<dl>
+<dt>word1</dt>
+<dd>
+<p>
+dsc
+</p>
+</dd>
+</dl>
+</dd>
+HERE
+    compile_and_assert_equal(expected, src)
+
+    src = <<'HERE'
+--- method
+dsc
+
+@param hoge dsc
+@return dsc
+
+@raise hoge dsc
+@see hoge
+HERE
+    expected = <<'HERE'
+<dt class="method-heading"><code>method</code></dt>
+<dd class="method-description">
+<p>
+dsc
+</p>
+<dl>
+<dt class='method-param'>[PARAM] hoge:</dt>
+<dd>
+dsc
+</dd>
+<dt>[RETURN]</dt>
+<dd>
+dsc
+</dd>
+<dt>[EXCEPTION] hoge:</dt>
+<dd>
+dsc
+</dd>
+</dl>
+<p>
+[SEE_ALSO] hoge
+</p>
+</dd>
+HERE
+    compile_and_assert_equal(expected, src)
+
+    src = <<'HERE'
+--- method
+
+@param arg dsc1
+
+           dsc2
+           dsc3
+HERE
+    expected = <<'HERE'
+<dt class="method-heading"><code>method</code></dt>
+<dd class="method-description">
+<dl>
+<dt class='method-param'>[PARAM] arg:</dt>
+<dd>
+dsc1
+</dd>
+</dl>
+<pre>
+dsc2
+dsc3
+</pre>
+</dd>
+HERE
+    compile_and_assert_equal(expected, src)
+
+    src = <<'HERE'
+--- method
+
+@param arg dsc1
+//emlist{
+dsc2
+dsc3
+//}
+HERE
+    expected = <<'HERE'
+<dt class="method-heading"><code>method</code></dt>
+<dd class="method-description">
+<dl>
+<dt class='method-param'>[PARAM] arg:</dt>
+<dd>
+dsc1
+<pre>
+dsc2
+dsc3
+</pre>
+</dd>
+</dl>
+</dd>
+HERE
+    compile_and_assert_equal(expected, src)
+
+  end
+
+  def test_method2
+    @c = BitClust::RDCompiler.new(@u, 1, {:force => true})
+    src = <<'HERE'
+--- hoge1
+--- hoge2
+bar
+HERE
+    expected = <<'HERE'
+<dl>
+<dt class="method-heading"><code>hoge1</code></dt>
+<dt class="method-heading"><code>hoge2</code></dt>
+<dd class="method-description">
+<p>
+bar
+</p>
+</dd>
+</dl>
+HERE
+    compile_and_assert_equal(expected, src)
+  end
+
+  def test_ulist
+    src =  <<'HERE'
+ * hoge1
+ * hoge2
+HERE
+    expected = <<'HERE'
+<ul>
+<li>hoge1</li>
+<li>hoge2</li>
+</ul>
+HERE
+    compile_and_assert_equal(expected, src)
+
+    src = <<'HERE'
+ * hoge1
+
+ * hoge2
+HERE
+   expected = <<'HERE'
+<ul>
+<li>hoge1</li>
+</ul>
+<ul>
+<li>hoge2</li>
+</ul>
+HERE
+    compile_and_assert_equal(expected, src)
+
+    src = <<'HERE'
+ * hoge1
+   bar
+ * hoge2
+HERE
+   expected = <<'HERE'
+<ul>
+<li>hoge1
+bar</li>
+<li>hoge2</li>
+</ul>
+HERE
+    compile_and_assert_equal(expected, src)
+
+  end
+
+  def test_olist
+    src = <<'HERE'
+ (1) hoge1
+     bar
+ (2) hoge2
+HERE
+   expected = <<'HERE'
+<ol>
+<li>hoge1
+bar</li>
+<li>hoge2</li>
+</ol>
+HERE
+    compile_and_assert_equal(expected, src)
+  end
+
+
+  def test_invalid_case
+        src = <<HERE
+: t1
+ c1
+//e
+ hoge
+//}
+HERE
+    Timeout.timeout(10) do
+      assert @c.compile(src)
+    end
+  end
+
+  def test_bracket_link
+    [
+     ['[[c:String]]',      '<a href="dummy/class/String">String</a>'           ],
+     ['[[c:String ]]',     '[[c:String ]]'           ],
+     ['[[String]]',        '[[String]]'              ],
+     ['[[c:File::Stat]]',  '<a href="dummy/class/File=Stat">File::Stat</a>'    ],
+     ['[[m:String.new]]',  '<a href="dummy/method/String/s/new">String.new</a>'],
+     ['[[m:String#dump]]', '<a href="dummy/method/String/i/dump">String#dump</a>'],
+     ['[[m:String#[] ]]',  '<a href="dummy/method/String/i/=5b=5d">String#[]</a>'],
+     ['[[f:rb_ary_new3]]', '<a href="dummy/function/rb_ary_new3">rb_ary_new3</a>'],
+     ['[[f:/]]',           '<a href="dummy/function/">All C API</a>'],
+     ['[[f:_index]]',           '<a href="dummy/function/">All C API</a>'],
+     ['[[lib:jcode]]',     '<a href="dummy/library/jcode">jcode</a>'],
+     ['[[man:tr(1)]]',     '<a class="external" href="http://www.opengroup.org/onlinepubs/009695399/utilities/tr.html">tr(1)</a>'],
+     ['[[man:sys/socket.h(header)]]', '<a class="external" href="http://www.opengroup.org/onlinepubs/009695399/basedefs/sys/socket.h.html">sys/socket.h(header)</a>'],
+     ['[[man:fopen(3linux)]]', '<a class="external" href="http://man7.org/linux/man-pages/man3/fopen.3.html">fopen(3linux)</a>'],
+     ['[[RFC:2822]]',      '<a class="external" href="http://www.ietf.org/rfc/rfc2822.txt">[RFC2822]</a>'],
+     ['[[m:$~]]',          '<a href="dummy/method/Kernel/v/=7e">$~</a>'],
+     ['[[m:$,]]',          '<a href="dummy/method/Kernel/v/=2c">$,</a>'],
+     ['[[c:String]]]', '<a href="dummy/class/String">String</a>]'],
+     ['[[c:String]][[c:String]]',
+      '<a href="dummy/class/String">String</a><a href="dummy/class/String">String</a>'],
+     ['[[m:File::SEPARATOR]]',          '<a href="dummy/method/File/c/SEPARATOR">File::SEPARATOR</a>'],
+     ['[[url:http://i.loveruby.net]]', '<a class="external" href="http://i.loveruby.net">http://i.loveruby.net</a>'],
+     ['[[ruby-list:12345]]',
+      '<a class="external" href="http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/12345">[ruby-list:12345]</a>'],
+    ].each{|src, expected|
+      assert_equal expected, @c.send(:compile_text, src), src
+    }
+
+    [
+     ['[[d:hoge/bar]]',             '<a href="dummy/hoge/bar">.*</a>'],
+     ['[[ref:d:hoge/bar#frag]]',    '<a href="dummy/hoge/bar#frag">.*</a>'],
+     ['[[ref:c:Hoge#frag]]',        '<a href="dummy/class/Hoge#frag">.*</a>'],
+     ['[[ref:m:$~#frag]]',          '<a href="dummy/method/Kernel/v/=7e#frag">.*</a>'],
+     ['[[ref:lib:jcode#frag]]',     '<a href="dummy/library/jcode#frag">.*</a>'],
+
+     ['[[ref:c:Hoge]]',             'compileerror'],
+     ['[[ref:ref:hoge/bar#frag]]',  'compileerror'],
+    ].each{|src, expected|
+      assert_match /#{expected}/, @c.send(:compile_text, src), src
+    }
+  end
+
+  def test_array_join
+    src = <<'HERE'
+--- join(sep = $,)    -> String
+
+@see [[m:Array#*]], [[m:$,]]
+HERE
+    expected = <<'HERE'
+<dt class="method-heading"><code>join(sep = $,) -&gt; String</code></dt>
+<dd class="method-description">
+<p>
+[SEE_ALSO] <a href="dummy/method/Array/i/=2a">Array#*</a>, <a href="dummy/method/Kernel/v/=2c">$,</a>
+</p>
+</dd>
+HERE
+    compile_and_assert_equal(expected, src)
+  end
+
+  def test_todo
+    src = <<'HERE'
+--- puts(str)    -> String
+@todo
+
+description
+HERE
+    expected = <<'HERE'
+<dt class="method-heading"><code>puts(str) -&gt; String</code></dt>
+<dd class="method-description">
+<p class="todo">
+[TODO]
+</p>
+<p>
+description
+</p>
+</dd>
+HERE
+    compile_and_assert_equal(expected, src)
+  end
+
+  def test_todo_with_comment
+    src = <<'HERE'
+--- puts(str)    -> String
+@todo 1.9.2
+
+description
+HERE
+    expected = <<'HERE'
+<dt class="method-heading"><code>puts(str) -&gt; String</code></dt>
+<dd class="method-description">
+<p class="todo">
+[TODO] 1.9.2
+</p>
+<p>
+description
+</p>
+</dd>
+HERE
+    compile_and_assert_equal(expected, src)
+  end
+
+  
+  class BitClust::RDCompiler; public :man_url; end
+  
+  def test_man_url
+    assert_equal("http://www.opengroup.org/onlinepubs/009695399/utilities/tr.html",
+                 @c.man_url("1", "tr"))
+    assert_equal("http://www.opengroup.org/onlinepubs/009695399/functions/fopen.html",
+                 @c.man_url("3", "fopen"))
+    assert_equal("http://www.opengroup.org/onlinepubs/009695399/basedefs/sys/socket.h.html",
+                 @c.man_url("header", "sys/socket.h"))
+    assert_equal("http://man7.org/linux/man-pages/man3/fopen.3.html",
+                 @c.man_url("3linux", "fopen"))
+    assert_equal("http://www.freebsd.org/cgi/man.cgi?query=fopen&sektion=3&manpath=FreeBSD+9.0-RELEASE",
+                 @c.man_url("3freebsd", "fopen"))
+    assert_equal(nil, @c.man_url("foo", "tr"))
+    
+  end
+end