rdtool 0.6.23

data/test.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/env ruby
+
+$VERBOSE = true
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), "test"))
+
+load 'test/test-block-parser.rb'
+load 'test/test-desclist-item.rb'
+load 'test/test-document-element.rb'
+load 'test/test-document-struct.rb'
+load 'test/test-element.rb'
+load 'test/test-headline.rb'
+load 'test/test-inline-parser.rb'
+load 'test/test-list-item.rb'
+load 'test/test-list.rb'
+load 'test/test-methodlist-item.rb'
+load 'test/test-nonterminal-element.rb'
+load 'test/test-nonterminal-inline.rb'
+load 'test/test-output-format-visitor.rb'
+load 'test/test-parser-util.rb'
+load 'test/test-rbl-file.rb'
+load 'test/test-rbl-suite.rb'
+load 'test/test-rd2html-lib.rb'
+load 'test/test-rdtree.rb'
+load 'test/test-rdvisitor.rb'
+load 'test/test-reference-resolver.rb'
+load 'test/test-reference.rb'
+load 'test/test-search-file.rb'
+load 'test/test-terminal-inline.rb'
+load 'test/test-textblock.rb'
+load 'test/test-tree.rb'
+load 'test/test-version.rb'
+load 'test/test-visitor.rb'

data/test/data/includee1.html

@@ -0,0 +1 @@
+includee1.html

data/test/data/includee2.html

@@ -0,0 +1 @@
+includee2.html

data/test/data/includee3.nothtml

@@ -0,0 +1 @@
+includee3.nothtml

data/test/data/label.rbl

@@ -0,0 +1,2 @@
+label1 => label:0
+label2 => label:1

data/test/data/label2.rbl

@@ -0,0 +1,2 @@
+label1 => Label-0
+label2 => Label-1

data/test/data/sub/includee2.html

@@ -0,0 +1 @@
+sub/includee2.html

data/test/dummy-observer.rb

@@ -0,0 +1,6 @@
+class DummyObserver
+  attr_reader :args
+  def update(*args)
+    @args = args
+  end
+end

data/test/dummy.rb

@@ -0,0 +1,33 @@
+require "rd/element"
+require "rd/document-struct"
+require "rd/visitor"
+
+module RD
+  class DummyElement < Element
+    attr_accessor :parent
+
+    def children
+      []
+    end
+    
+    def each_element
+      yield(self)
+    end
+
+    def accept(visitor)
+      "dummy"
+    end
+    
+    def to_label
+      " label "
+    end
+  end
+  
+  DummyStruct = DocumentStructure.new
+end
+
+class DummyVisitor < RD::Visitor
+  def method_missing(method, *args)
+    [method.to_s, args]
+  end
+end

data/test/temp-dir.rb

@@ -0,0 +1,19 @@
+
+def in_temp_dir
+  tmpdir = "test-tmp.#$$"
+  pwd = Dir.pwd
+  Dir.mkdir(tmpdir)
+  Dir.chdir(tmpdir)
+  begin
+    yield
+  ensure
+    Dir.chdir(pwd)
+    Dir.rmdir(tmpdir)
+  end
+end
+
+def remove_file(file)
+  if File.exist? file
+    File.unlink(file)
+  end
+end

data/test/test-block-parser.rb

@@ -0,0 +1,46 @@
+require 'test/unit'
+
+require 'rd/rdblockparser.tab'
+require 'rd/rd-struct'
+
+include RD
+
+class TestBlockParser < Test::Unit::TestCase
+  def setup
+    @p = RDParser.new
+    @p.class.module_eval {
+      public :cut_off,:set_term_to_element
+    }
+    @p.instance_eval do
+      @tree = Tree.new_with_document_struct(DocumentStructure::RD)
+    end
+  end
+  
+  def test_cut_off
+    assert_equal(["aaaa"], @p.cut_off(["aaaa"]))
+    assert_equal(["aaaa\n"], @p.cut_off(["aaaa\n"]))
+    assert_equal(["aaaa\n"], @p.cut_off(["  aaaa\n"]))
+    assert_equal(["aaaa\n", "bbbb\n"], @p.cut_off(["  aaaa\n", "  bbbb\n"]))
+    assert_equal(["aaaa\n", "  bbbb\n"], @p.cut_off(["aaaa\n", "  bbbb\n"]))
+    assert_equal(["aaaa\n", "  bbbb\n"], @p.cut_off([" aaaa\n", "   bbbb\n"]))
+    assert_equal(["aaaa\n", "  bbbb\n", "    cccc\n"],
+                 @p.cut_off([" aaaa\n", "   bbbb\n", "     cccc\n"]))
+    assert_equal(["aaaa\n", "    bbbb\n", "  cccc\n"],
+                 @p.cut_off([" aaaa\n", "     bbbb\n", "   cccc\n"]))
+    assert_raises(RuntimeError) do
+      @p.cut_off(["  aaaa\n", "bbbb\n"])
+    end
+  end
+
+  def test_set_term_to_element
+    desclist = DescListItem.new
+    term = DescListItem::Term.new
+    @p.set_term_to_element(desclist, term)
+    assert_equal(term, desclist.term)
+
+    methodlist = MethodListItem.new
+    term = MethodListItem::Term.new "string"
+    @p.set_term_to_element(methodlist, term)
+    assert_equal(term, methodlist.term)
+  end
+end

data/test/test-desclist-item.rb

@@ -0,0 +1,219 @@
+require 'test/unit'
+
+require 'rd/desclist'
+require 'rd/rd-struct'
+
+include RD
+
+class TestDescListItem < Test::Unit::TestCase
+  def setup
+    @flat = DescListItem.new
+    @t1 = DescListItem::Term.new
+    @flat.set_term_under_document_struct(@t1, DocumentStructure::RD)
+    @c1 = TextBlock.new
+    @c2 = ItemList.new
+    @flat.add_children_under_document_struct([@c1, @c2],
+                                             DocumentStructure::RD)
+
+    @nest = DescListItem.new
+    @t2 = DescListItem::Term.new
+    @t21 = StringElement.new ""
+    @t2.add_child_under_document_struct(@t21, DocumentStructure::RD)
+    @nest.set_term_under_document_struct(@t2, DocumentStructure::RD)
+    @d1 = TextBlock.new
+    @d11 = StringElement.new ""
+    @d1.add_child_under_document_struct(@d11, DocumentStructure::RD)
+    @nest.add_children_under_document_struct([@d1],
+                                             DocumentStructure::RD)
+  end
+
+  def test_set_term_under_docment_struct
+    t = DescListItem::Term.new
+    i = DescListItem.new
+    i.set_term_under_document_struct(t, DocumentStructure::RD)
+    assert_equal(t, i.term)
+    assert_equal(i, t.parent)
+    
+    assert_raises(ArgumentError) do
+      t = StringElement.new ""
+      DescListItem.new.set_term_under_document_struct(t, DocumentStructure::RD)
+    end
+  end
+
+  def test_assign_term
+    desclist = DescListItem.new
+    term = DescListItem::Term.new
+    desclist.assign_term(term)
+    assert_equal(term, desclist.term)
+    assert_equal(desclist, term.parent)
+  end
+
+  def test_set_term_without_document_strcut
+    desclist = DescListItem.new
+    term = DescListItem::Term.new
+    desclist.set_term_without_document_struct(term)
+    assert_equal(term, desclist.term)
+    assert_equal(desclist, term.parent)
+
+    not_term = StringElement.new "not term"
+    desclist.set_term_without_document_struct(not_term)
+    assert_equal(not_term, desclist.term)
+    assert_equal(desclist, not_term.parent)
+  end
+
+  def test_each_block_in_description
+    exp = [@c1, @c2]
+    i = 0
+    @flat.each_block_in_description do |b|
+      assert_equal(exp[i], b)
+      i += 1
+    end
+
+    exp = [@d1]
+    i = 0
+    @nest.each_block_in_description do |b|
+      assert_equal(exp[i], b)
+      i += 1
+    end
+  end
+
+  def test_each_element
+    exp = [@flat, @t1, @c1, @c2]
+    i = 0
+    @flat.each_element do |b|
+      assert_equal(exp[i], b)
+      i += 1
+    end
+
+    exp = [@nest, @t2, @t21, @d1, @d11]
+    i = 0
+    @nest.each_element do |b|
+      assert_equal(exp[i], b)
+      i += 1
+    end
+  end
+
+  def test_make_term
+    tr = Tree.new_with_document_struct(DocumentStructure::RD)
+    de = DocumentElement.new
+    tr.root = de
+    di, dt = nil
+    de.build do
+      new DescList do
+        di = new DescListItem do
+          dt = make_term do
+            new StringElement, "string"
+          end
+        end
+      end
+    end
+    assert_equal("<RD::DescListItem>\n  <RD::DescListItem::Term>\n" +
+                 "    <RD::StringElement>", di.inspect)
+    assert_equal(di.term, dt)
+
+    tr = Tree.new_with_document_struct(DocumentStructure::RD)
+    de = DocumentElement.new
+    tr.root = de
+    di, dt = nil
+    de.build do
+      new DescList do
+        di = new DescListItem do
+          dt = make_term
+        end
+      end
+    end
+    assert_equal(di.term, dt)    
+  end
+
+  def test_inspect
+    di = DescListItem.new
+    dt = DescListItem::Term.new
+    se = StringElement.new "string"
+    tb = TextBlock.new
+    di.set_term_under_document_struct(dt, DocumentStructure::RD)
+    di.add_child_under_document_struct(tb, DocumentStructure::RD)
+    dt.add_child_under_document_struct(se, DocumentStructure::RD)
+    assert_equal("<RD::DescListItem>\n  <RD::DescListItem::Term>\n" +
+                 "    <RD::StringElement>\n  <RD::TextBlock>", di.inspect)
+    
+    di_no_desc = DescListItem.new
+    dt_no_desc = DescListItem::Term.new
+    di_no_desc.set_term_under_document_struct(dt_no_desc,
+                                              DocumentStructure::RD)
+    assert_equal("<RD::DescListItem>\n  <RD::DescListItem::Term>",
+                 di_no_desc.inspect)
+
+    di_no_term = DescListItem.new
+    di_no_term.add_child_under_document_struct(TextBlock.new,
+                                               DocumentStructure::RD)
+    assert_equal("<RD::DescListItem>\n  <RD::TextBlock>",
+                 di_no_term.inspect)
+    assert_equal("<RD::DescListItem>", DescListItem.new.inspect)
+  end
+end
+
+class TestDescListItemTerm < Test::Unit::TestCase
+  def setup
+    @flat = DescListItem::Term.new
+    @c1 = StringElement.new "aaa"
+    @c2 = Emphasis.new
+    @c3 = StringElement.new " bbb"
+    @flat.add_children_under_document_struct([@c1, @c2, @c3],
+                                             DocumentStructure::RD)
+
+    @nest = DescListItem::Term.new
+    @d1 = StringElement.new "aaa"
+    @d2 = Emphasis.new
+    @d21 = StringElement.new " bbb"
+    @d2.add_child_under_document_struct(@d21, DocumentStructure::RD)
+    @nest.add_children_under_document_struct([@d1, @d2],
+                                             DocumentStructure::RD)
+    @empty = DescListItem::Term.new
+  end
+  
+  def test_each_child
+    exp = [@c1, @c2, @c3]
+    i = 0
+    @flat.each_child do |b|
+      assert_equal(exp[i], b)
+      i += 1
+    end
+
+    exp = [@d1, @d2]
+    i = 0
+    @nest.each_child do |b|
+      assert_equal(exp[i], b)
+      i += 1
+    end
+  end
+
+  def test_each_element
+    exp = [@flat, @c1, @c2, @c3]
+    i = 0
+    @flat.each_element do |b|
+      assert_equal(exp[i], b)
+      i += 1
+    end
+
+    exp = [@nest, @d1, @d2, @d21]
+    i = 0
+    @nest.each_element do |b|
+      assert_equal(exp[i], b)
+      i += 1
+    end
+
+    exp = [@empty]
+    i = 0
+    @empty.each_element do |b|
+      assert_equal(exp[i], b)
+      i += 1
+    end
+  end
+
+  def test_to_label
+    assert_equal("aaa bbb", @flat.to_label)
+    assert_equal("aaabbb", @nest.to_label)
+    assert_equal("", @empty.to_label)
+  end
+end
+

data/test/test-document-element.rb

@@ -0,0 +1,46 @@
+require 'test/unit'
+
+require 'rd/element'
+require 'rd/rd-struct'
+
+include RD
+
+class TestDocumentElement < Test::Unit::TestCase
+  def setup
+    @p = DocumentElement.new
+    @c1 = Headline.new(1)
+    @c2 = TextBlock.new
+    @c3 = ItemList.new
+    @c31 = ItemListItem.new
+    @c311 = TextBlock.new
+    @c31.add_child_under_document_struct(@c311, DocumentStructure::RD)
+    @c3.add_child_under_document_struct(@c31, DocumentStructure::RD)
+    @p.add_children_under_document_struct([@c1, @c2, @c3],
+                                            DocumentStructure::RD)
+  end
+  
+  def test_s_new
+    assert(DocumentElement.new)
+  end
+
+  def test_blocks
+    assert_equal([@c1, @c2, @c3], @p.blocks)
+  end
+
+  def test_each_block
+    i = 1
+    @p.each_block do |b|
+      assert_equal(eval("@c#{i}"), b)
+      i += 1
+    end
+  end
+
+  def test_each_element
+    exp = [@p, @c1, @c2, @c3, @c31, @c311]
+    i = 0
+    @p.each_element do |b|
+      assert_equal(exp[i], b)
+      i += 1
+    end
+  end
+end

data/test/test-document-struct.rb

@@ -0,0 +1,66 @@
+require 'test/unit'
+
+require 'rd/document-struct.rb'
+require 'rd/rdfmt'
+
+class TestDocumentStructure < Test::Unit::TestCase
+  include RD
+
+  def test_each_relationship
+    a = DocumentStructure.new
+    r1 = ElementRelationship.new(TextBlock, InlineElement)
+    r2 = ElementRelationship.new(DocumentElement, BlockElement)
+    r3 = ElementRelationship.new(ListItem, BlockElement)
+    r4 = ElementRelationship.new(ItemList, ItemListItem)
+    exp = [r1, r2, r3, r4]
+
+    a.add_relationships(*exp)
+
+    a.each_relationship do |i|
+      assert(exp.include?(i))
+      exp.delete(i)
+    end
+    assert_equal([], exp)
+  end
+
+  def test_is_valid?
+    a = DocumentStructure.new
+    r1 = ElementRelationship.new(TextBlock, InlineElement)
+    r2 = ElementRelationship.new(DocumentElement, BlockElement)
+    r3 = ElementRelationship.new(ListItem, BlockElement)
+    r4 = ElementRelationship.new(ItemList, ItemListItem)
+    a.add_relationships(r1, r2, r3, r4)
+
+    assert(a.is_valid?(TextBlock.new, Emphasis.new))
+    assert(a.is_valid?(DocumentElement.new, TextBlock.new))
+    assert(a.is_valid?(ItemList.new, ItemListItem.new))
+    assert_false(a.is_valid?(TextBlock.new, Headline.new(1)))
+    assert_false(a.is_valid?(ItemList.new, TextBlock.new))
+  end
+end
+
+class TestElementRelationship < Test::Unit::TestCase
+  include RD
+
+  def test_match?
+    a = ElementRelationship.new(TextBlock, InlineElement)
+    assert(a.match?(TextBlock.new, Emphasis.new))
+    assert_false(a.match?(TextBlock.new, Headline.new(1)))
+
+    a = ElementRelationship.new(InlineElement, InlineElement)
+    assert(a.match?(Emphasis.new, Code.new))
+    assert_false(a.match?(Emphasis.new, Headline.new(1)))
+    
+    a = ElementRelationship.new(DocumentElement, BlockElement)
+    assert(a.match?(DocumentElement.new, Headline.new(1)))
+    assert_false(a.match?(DocumentElement.new, Emphasis.new))
+
+    a = ElementRelationship.new(ItemList, ItemListItem)
+    assert(a.match?(ItemList.new, ItemListItem.new))
+    assert_false(a.match?(ItemList.new, TextBlock.new))
+  end
+end
+
+def assert_false(cond)
+  assert_equal(false, cond)
+end