langhelp 0.9.8

data/test/test-command.rb

@@ -0,0 +1,92 @@
+#!/usr/bin/env ruby
+require 'tmpdir'
+require 'test/unit'
+require 'langhelp/langhelp-sub'
+require 'fileutils'
+
+class TestParseInfo < Test::Unit::TestCase
+
+  def tmpdir
+    Dir.tmpdir
+  end
+
+  def null
+    "> /dev/null 2>&1"
+    #""
+  end
+
+  def _test_lang(lang)
+    begin
+      new_e = "#{lang}.e"
+      old_e = "#{lang}.old.e"
+      new_sorted_e = "#{lang}.sorted.e"
+      old_sorted_e = "#{lang}.old.sorted.e"
+      # TODO: --suffix, refactoring
+      system "mklanghelp --suffix=.old.e --home=#{tmpdir} #{lang} #{null}"
+      system "ruby -Ilib bin/mklanghelp --home=#{tmpdir} #{lang} #{null}"
+      system "cd #{tmpdir}; sort #{old_e} > #{old_sorted_e}; sort #{new_e} > #{new_sorted_e}"
+      yield(File.read(File.join(tmpdir,new_sorted_e))) if block_given?
+      assert_file(:expected=>old_sorted_e, :actual=>new_sorted_e, :basedir=>tmpdir)
+    ensure
+      FileUtils.chdir(tmpdir) { 
+        FileUtils.rm_f [new_e, old_e, new_sorted_e, old_sorted_e, *Dir['*.yaml']]
+      }
+    end
+  end
+
+  def test_c()
+    _test_lang "c" do |s|
+      assert( s =~ /"3 zlib"/ )
+    end
+  end
+
+  def test_perl()
+    _test_lang "perl" do |s|
+      assert( s =~ /perlfunc/ )
+      assert( s =~ /perlfaq/ )
+      assert( s =~ /alarm/ )
+      assert( s =~ /CGI/ )
+    end
+  end
+
+  def test_octave()
+    _test_lang "octave" do |s|
+      assert( s =~ / -- :  ODE_options \(void\)/ )
+    end
+  end
+
+  def test_ruby()
+    _test_lang "ruby" do |s|
+      assert( s =~ /BTIME.+proctable.+VERSION/m )
+    end
+  end
+
+  def test_python() _test_lang "python" end
+
+  def test_gauche() _test_lang "scheme" end
+
+  def test_ratpoisonrc() _test_lang "ratpoisonrc" end
+
+  def _test_init_file(lang)
+    begin
+      init_script = File.join(tmpdir, "0init.rb")
+      flag_file = File.join(tmpdir, "flag")
+      "open('#{flag_file}','w'){}".writef init_script
+
+      FileUtils.rm_f flag_file
+      system "ruby -Ilib bin/mklanghelp --init-script=#{init_script} --home=#{tmpdir} #{lang} #{null}"
+      assert_equal true, File.file?(flag_file)
+      
+      FileUtils.rm_f flag_file
+      system "ruby -Ilib bin/mklanghelp --init-script=#{init_script} -f --home=#{tmpdir} #{lang} #{null}"
+      assert_equal false, File.file?(flag_file)
+      
+      
+    ensure
+      FileUtils.rm_f [init_script, flag_file]
+    end
+  end
+
+  def test_init_file() _test_init_file "ratpoisonrc"  end
+
+end

data/test/test-parse-info.rb

@@ -0,0 +1,175 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'langhelp/parse-info'
+require 'test/common'
+require 'langhelp/langhelp-sub'
+
+class TestInfo < Test::Unit::TestCase
+  include CheckLink
+
+  def setup
+    @tmpdir=Dir.tmpdir
+    @info=File.join @tmpdir, "ratpoison.info"
+    @src = <<XXX
+File: ratpoison.info,  Node: Manipulating Windows,  Next: Unmanaged Windows,  Prev: Windows,  Up: Windows
+
+Manipulating Windows
+====================
+
+The following 
+
+ - Command: select N
+     This jumps
+
+hoge
+****
+
+ - Command: select WINDOW-NAME
+     Go to
+
+desclist
+     description list.
+
+XXX
+    open(@info,"w"){|f| f.write @src}
+  end
+
+  def teardown
+    FileUtils.rm_f @info
+  end
+  
+  def test_info__not_exist
+    @x = Info.new :Info=>"does_not_exist_____.info"
+    assert_raises(RuntimeError) { @x.to_e "" }
+  end
+
+  def test_info
+    @x = Info.new :Info=>@info
+
+    check_link <<XXX
+# Node: Manipulating Windows\t(lh-info nil\t"(ratpoison)Manipulating Windows")
+# (lh-info " - Command: select N"\t"(ratpoison)Manipulating Windows")
+# (lh-info "hoge"\t"(ratpoison)Manipulating Windows")
+# (lh-info " - Command: select WINDOW-NAME"\t"(ratpoison)Manipulating Windows")
+# (lh-info "desclist"\t"(ratpoison)Manipulating Windows")
+XXX
+  end
+
+  def test_info__node
+    @x = Info.new :Info=>@info, :extract=>[:node]
+
+    check_link <<XXX
+# Node: Manipulating Windows\t(lh-info nil\t"(ratpoison)Manipulating Windows")
+XXX
+  end
+
+  def test_info__node_regexp
+    @x = Info.new :Info=>@info, :extract=>[:node, :regexp]
+
+    check_link <<XXX
+# Node: Manipulating Windows\t(lh-info nil\t"(ratpoison)Manipulating Windows")
+# (lh-info " - Command: select N"\t"(ratpoison)Manipulating Windows")
+# (lh-info " - Command: select WINDOW-NAME"\t"(ratpoison)Manipulating Windows")
+XXX
+  end
+
+  def test_info__regexp
+    @x = Info.new :Info=>@info, :extract=>[:regexp]
+
+    check_link <<XXX
+# (lh-info " - Command: select N"\t"(ratpoison)Manipulating Windows")
+# (lh-info " - Command: select WINDOW-NAME"\t"(ratpoison)Manipulating Windows")
+XXX
+  end
+
+end
+
+
+class TestInfoSort < Test::Unit::TestCase
+  def test_sort_info_files__0
+    @x = Info.allocate
+
+    assert_equal [], @x.__funcall(:sort_info_files, [])
+
+    a = %w[/usr/share/info/a.info.gz]
+    sorted = a
+    assert_equal sorted, @x.__funcall(:sort_info_files, a)
+  end
+
+  def test_sort_info_files__1
+    @x = Info.allocate
+    a = %w[
+/usr/share/info/a.info-10.gz 
+/usr/share/info/a.info-1.gz 
+/usr/share/info/a.info-2.gz
+]
+
+    sorted = %w[
+/usr/share/info/a.info-1.gz 
+/usr/share/info/a.info-2.gz
+/usr/share/info/a.info-10.gz 
+]
+
+    assert_equal sorted, @x.__funcall(:sort_info_files, a)
+  end
+
+  def test_sort_info_files__2
+    @x = Info.allocate
+    a = %w[
+/usr/share/info/a.info-10
+/usr/share/info/a.info-1
+/usr/share/info/a.info-2
+]
+
+    sorted = %w[
+/usr/share/info/a.info-1
+/usr/share/info/a.info-2
+/usr/share/info/a.info-10
+]
+
+    assert_equal sorted, @x.__funcall(:sort_info_files, a)
+  end
+
+end
+
+
+class TestParseInfoResult < Test::Unit::TestCase
+
+  def setup
+    
+  end
+
+  def teardown
+
+  end
+
+#disabled
+  def test_0
+  end
+  def xtest_index
+    ary = YAML.load <<EOY
+--- 
+- !ruby/struct:Info::Result 
+  info: gauche-refe
+  node: Bitwise operations
+  line: " -- Function: copy-bit index n bit"
+- !ruby/struct:Info::Result 
+  info: gauche-refe
+  node: Arithmetics
+  line: " -- Function: `+' z ..."
+- !ruby/struct:Info::Result 
+  info: ratpoison
+  node: Manipulating Windows
+  line: " - Command: select WINDOW-NAME"
+EOY
+    copy_bit = ary[0]
+    assert_equal('copy-bit', copy_bit.index)
+
+    plus = ary[1]
+    assert_equal('+', plus.index)
+
+    rp = ary[2]
+    assert_equal('select', rp.index)
+    
+  end
+end

data/test/test-ruby.rb

@@ -0,0 +1,242 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'langhelp/lh_ruby'
+require 'fileutils'
+require 'test/common'
+
+class TestList < Test::Unit::TestCase
+  def setup
+    Dir.chdir "test"
+  end
+
+  def teardown
+    Dir.chdir ".."
+  end
+
+  def test_methods_from_anchor
+    x = List.methods_from_anchor("doc", "testdoc.rd")
+    assert_equal("doc", x.source)
+    assert_equal(%w[A.new A#a], x.methods)
+    assert_equal("testdoc.rd", x.arg)
+  end
+end
+
+    
+  
+
+class TestRubyIndex < Test::Unit::TestCase
+  def setup
+    Dir.chdir "test"
+  end
+
+  def teardown
+    Dir.chdir ".."
+  end
+
+  def test_contents_ab
+    @x = RubyIndex.new(:sources => ["a", "b"])
+
+    
+    expected = [
+      %w[lh-a A],
+      %w[lh-a A#foo],      
+      %w[lh-b B],
+      %w[lh-b B.bar],
+      %w[lh-b C],
+      %w[lh-b C#baz],
+    ]
+    assert_equal(expected, a = @x.contents)
+  end
+
+  def test_contents_cd
+    @x = RubyIndex.new(:sources => ["c", "d"])
+
+    expected = [
+      %w[lh-c A],
+      %w[lh-c A#foo],      
+      %w[lh-d B],
+      %w[lh-d B.bar],
+      %w[lh-d C],
+      %w[lh-d C#baz],
+    ]
+    assert_equal(expected, @x.contents)
+  end
+
+  def test_contents_new
+    args = [
+      List.new("a", %w[A.new A#meth]),
+      List.new("doc", %w[D.new], "test.rd"),
+      List.new("doc", %w[E.new], "test2.rd"),
+      List.new("ri", %w[F.new]),
+    ]
+    @x = RubyIndex.new(:lists=>args)
+    
+    expected = [
+      %w[lh-a A.new],
+      %w[lh-a A#meth],
+      %w[lh-doc D.new test.rd],
+      %w[lh-doc E.new test2.rd],
+      %w[lh-ri F.new],
+    ]
+    assert_equal(expected, @x.contents)
+  end
+end
+
+    
+class TestMoonWolfRubyDocConverter < Test::Unit::TestCase
+  def test_create_anchor
+    input = <<EOS
+#EmptyElementTag
+
+<h2><a name="EmptyElementTag">EmptyElementTag</a></h2>
+�����ǤΥ���
+<h3>���饹�᥽�å�</h3>
+<dl compact>
+  <dt>new(<var class="String">name</var>[,<var class="Hash">attr</var>])
+  <dd>���������֥������Ȥ��������롣 <var class="String">name</var>�ϥ�����̾�� <var c
+</dl>
+<h3>�᥽�å�</h3>
+<dl compact>
+  <dt class="String">name
+  <dd>����̾���֤���
+  <dt class="Hash">attr
+  <dd>°�����֤���
+  <dt class="String">to_s
+  <dd>HTML���֤���
+  <dt class="String">self[<var class="String">key</var>]
+  <dd>key�˴�Ϣ�Ť���줿°���ͤ��֤��ޤ���
+      �������륭������Ͽ����Ƥ��ʤ����ˤϡ�nil���֤��ޤ���
+  <dt class="String">self[<var class="String">key</var>]= <var class="String">value</var>
+  <dd><var class="String">key</var>���Ф���<var class="String">value</var>���Ϣ�Ť���
+      <var class="String">value</var>��nil�λ���<var class="String">key</var>���Ф���
+</dl>
+EOS
+
+    output = <<'EOS'
+#{{EmptyElementTag}}
+
+<h2><a name="EmptyElementTag">EmptyElementTag</a></h2>
+�����ǤΥ���
+<h3>���饹�᥽�å�</h3>
+<dl compact>
+  <dt>{{EmptyElementTag.new}}(<var class="String">name</var>[,<var class="Hash">attr</var>])
+  <dd>���������֥������Ȥ��������롣 <var class="String">name</var>�ϥ�����̾�� <var c
+</dl>
+<h3>�᥽�å�</h3>
+<dl compact>
+  <dt class="String">{{EmptyElementTag#name}}
+  <dd>����̾���֤���
+  <dt class="Hash">{{EmptyElementTag#attr}}
+  <dd>°�����֤���
+  <dt class="String">{{EmptyElementTag#to_s}}
+  <dd>HTML���֤���
+  <dt class="String">{{EmptyElementTag#[]}} self[<var class="String">key</var>]
+  <dd>key�˴�Ϣ�Ť���줿°���ͤ��֤��ޤ���
+      �������륭������Ͽ����Ƥ��ʤ����ˤϡ�nil���֤��ޤ���
+  <dt class="String">{{EmptyElementTag#[]=}} self[<var class="String">key</var>]= <var class="String">value</var>
+  <dd><var class="String">key</var>���Ф���<var class="String">value</var>���Ϣ�Ť���
+      <var class="String">value</var>��nil�λ���<var class="String">key</var>���Ф���
+</dl>
+EOS
+
+    assert_equal(output, MoonWolfRubyDocConverter.new(input).create_anchor)
+
+  end
+end
+
+    
+class TestRDConverter < Test::Unit::TestCase
+
+  def scenario
+    assert_equal(@output, RDConverter.new(@input).create_anchor)
+  end
+
+  def test_method_list__class_method
+    @input = <<EOS
+--- ProcTable.fields
+    Returns a list of fields available on the current OS.  May also take a
+    block.
+EOS
+    @output = <<EOS
+--- <<<ProcTable.fields>>>
+    Returns a list of fields available on the current OS.  May also take a
+    block.
+EOS
+    scenario
+
+    @input  = '--- ProcTable.ps(pid=nil)'
+    @output = '--- <<<ProcTable.ps>>>(pid=nil)'
+    scenario
+
+    @input  = '--- ProcTable.ps{ |s| ... }'
+    @output = '--- <<<ProcTable.ps>>>{ |s| ... }'
+    scenario
+
+    @input  = '--- ProcTable::ps{ |s| ... }'
+    @output = '--- <<<ProcTable::ps>>>{ |s| ... }'
+    scenario
+
+  end
+
+  def test_method_list__instance_method
+    @input  = '--- ProcTable#ps{ |s| ... }'
+    @output = '--- <<<ProcTable#ps>>>{ |s| ... }'
+    scenario
+  end
+end
+
+class TestRD < Test::Unit::TestCase
+  include CheckLink
+
+  def setup
+    @tmpdir=Dir.tmpdir
+    @rd=File.join @tmpdir, "index.rd"
+    @src = <<XXX
+=begin
+= Headline1
+a
+
+==Headline2
+b
+:Desclist1
+ c
+: Desclist2
+
+--- MethodList
+    d
+--- Foo#bar(arg="")
+    e
+=end
+XXX
+    open(@rd,"w"){|f| f.write @src}
+  end
+
+  def teardown
+    FileUtils.rm_f @rd
+  end
+  
+  def test_rd
+    @x = RD.new :RD=>@rd
+
+    check_link <<XXX
+# (lh-view "= Headline1"\t"#{@rd}")
+# (lh-view "==Headline2"\t"#{@rd}")
+# (lh-view ":Desclist1"\t"#{@rd}")
+# (lh-view ": Desclist2"\t"#{@rd}")
+# (lh-view "--- MethodList"\t"#{@rd}")
+# (lh-view "--- Foo#bar(arg=\\"\\")"\t"#{@rd}")
+XXX
+  end
+
+  def test_rd__exclude
+    @x = RD.new :RD=>@rd, :exclude=>/Desclist/
+
+    check_link <<XXX
+# (lh-view "= Headline1"\t"#{@rd}")
+# (lh-view "==Headline2"\t"#{@rd}")
+# (lh-view "--- MethodList"\t"#{@rd}")
+# (lh-view "--- Foo#bar(arg=\\"\\")"\t"#{@rd}")
+XXX
+  end
+
+end