home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ruby164.zip / rbemx164.zip / ruby / share / doc / rdtool-0.6.10 / test / test-list.rb < prev    next >
Text File  |  2001-03-15  |  1KB  |  59 lines
  1. require 'runit/testcase'
  2. require 'runit/cui/mytestrunner'
  3.  
  4. require 'rd/list.rb'
  5. require 'rd/rd-struct'
  6.  
  7. include RD
  8.  
  9. class TestList < RUNIT::TestCase
  10.   def setup
  11.     @a = ItemList.new
  12.     @c1 = ItemListItem.new
  13.     @c2 = ItemListItem.new
  14.     @a.add_children_under_document_struct([@c1, @c2], DocumentStructure::RD)
  15.  
  16.     @b = ItemList.new
  17.     @d1 = ItemListItem.new
  18.     @d11 = TextBlock.new
  19.     @d1.add_child_under_document_struct(@d11, DocumentStructure::RD)
  20.     @b.add_children_under_document_struct([@d1], DocumentStructure::RD)
  21.   end
  22.   
  23.   def test_each_item
  24.     exp = [@c1, @c2]
  25.     i = 0
  26.     @a.each_item do |b|
  27.       assert_equal(exp[i], b)
  28.       i += 1
  29.     end
  30.  
  31.     exp = [@d1]
  32.     i = 0
  33.     @b.each_item do |b|
  34.       assert_equal(exp[i], b)
  35.       i += 1
  36.     end
  37.   end
  38.  
  39.   def test_each_element
  40.     exp = [@a, @c1, @c2]
  41.     i = 0
  42.     @a.each_element do |b|
  43.       assert_equal(exp[i], b)
  44.       i += 1
  45.     end
  46.  
  47.     exp = [@b, @d1, @d11]
  48.     i = 0
  49.     @b.each_element do |b|
  50.       assert_equal(exp[i], b)
  51.       i += 1
  52.     end
  53.   end
  54. end
  55.  
  56. if $0 == __FILE__
  57.   RUNIT::CUI::MyTestRunner.run(TestList.suite)
  58. end
  59.