test/ruby/test_enum.rb

   1 require 'test/unit'
   2 require 'continuation'
   3
   4 class TestEnumerable < Test::Unit::TestCase
   5   def setup
   6     @obj = Object.new
   7     class << @obj
   8       include Enumerable
   9       def each
  10         yield 1
  11         yield 2
  12         yield 3
  13         yield 1
  14         yield 2
  15       end
  16     end
  17     @verbose = $VERBOSE
  18     $VERBOSE = nil
  19   end
  20
  21   def teardown
  22     $VERBOSE = @verbose
  23   end
  24
  25   def test_grep
  26     assert_equal([1, 2, 1, 2], @obj.grep(1..2))
  27     a = []
  28     @obj.grep(2) {|x| a << x }
  29     assert_equal([2, 2], a)
  30   end
  31
  32   def test_count
  33     assert_equal(5, @obj.count)
  34     assert_equal(2, @obj.count(1))
  35     assert_equal(3, @obj.count {|x| x % 2 == 1 })
  36     assert_equal(2, @obj.count(1) {|x| x % 2 == 1 })
  37     assert_raise(ArgumentError) { @obj.count(0, 1) }
  38   end
  39
  40   def test_find
  41     assert_equal(2, @obj.find {|x| x % 2 == 0 })
  42     assert_equal(nil, @obj.find {|x| false })
  43     assert_equal(:foo, @obj.find(proc { :foo }) {|x| false })
  44   end
  45
  46   def test_find_index
  47     assert_equal(1, @obj.find_index(2))
  48     assert_equal(1, @obj.find_index {|x| x % 2 == 0 })
  49     assert_equal(nil, @obj.find_index {|x| false })
  50     assert_raise(ArgumentError) { @obj.find_index(0, 1) }
  51   end
  52
  53   def test_find_all
  54     assert_equal([1, 3, 1], @obj.find_all {|x| x % 2 == 1 })
  55   end
  56
  57   def test_reject
  58     assert_equal([2, 3, 2], @obj.reject {|x| x < 2 })
  59   end
  60
  61   def test_to_a
  62     assert_equal([1, 2, 3, 1, 2], @obj.to_a)
  63   end
  64
  65   def test_inject
  66     assert_equal(12, @obj.inject {|z, x| z * x })
  67     assert_equal(48, @obj.inject {|z, x| z * 2 + x })
  68     assert_equal(12, @obj.inject(:*))
  69     assert_equal(24, @obj.inject(2) {|z, x| z * x })
  70     assert_equal(24, @obj.inject(2, :*) {|z, x| z * x })
  71   end
  72
  73   def test_partition
  74     assert_equal([[1, 3, 1], [2, 2]], @obj.partition {|x| x % 2 == 1 })
  75   end
  76
  77   def test_group_by
  78     h = { 1 => [1, 1], 2 => [2, 2], 3 => [3] }
  79     assert_equal(h, @obj.group_by {|x| x })
  80   end
  81
  82   def test_first
  83     assert_equal(1, @obj.first)
  84     assert_equal([1, 2, 3], @obj.first(3))
  85   end
  86
  87   def test_sort
  88     assert_equal([1, 1, 2, 2, 3], @obj.sort)
  89   end
  90
  91   def test_sort_by
  92     assert_equal([3, 2, 2, 1, 1], @obj.sort_by {|x| -x })
  93   end
  94
  95   def test_all
  96     assert_equal(true, @obj.all? {|x| x <= 3 })
  97     assert_equal(false, @obj.all? {|x| x < 3 })
  98     assert_equal(true, @obj.all?)
  99     assert_equal(false, [true, true, false].all?)
 100   end
 101
 102   def test_any
 103     assert_equal(true, @obj.any? {|x| x >= 3 })
 104     assert_equal(false, @obj.any? {|x| x > 3 })
 105     assert_equal(true, @obj.any?)
 106     assert_equal(false, [false, false, false].any?)
 107   end
 108
 109   def test_one
 110     assert(@obj.one? {|x| x == 3 })
 111     assert(!(@obj.one? {|x| x == 1 }))
 112     assert(!(@obj.one? {|x| x == 4 }))
 113     assert(%w{ant bear cat}.one? {|word| word.length == 4})
 114     assert(!(%w{ant bear cat}.one? {|word| word.length > 4}))
 115     assert(!(%w{ant bear cat}.one? {|word| word.length < 4}))
 116     assert(!([ nil, true, 99 ].one?))
 117     assert([ nil, true, false ].one?)
 118   end
 119
 120   def test_none
 121     assert(@obj.none? {|x| x == 4 })
 122     assert(!(@obj.none? {|x| x == 1 }))
 123     assert(!(@obj.none? {|x| x == 3 }))
 124     assert(%w{ant bear cat}.none? {|word| word.length == 5})
 125     assert(!(%w{ant bear cat}.none? {|word| word.length >= 4}))
 126     assert([].none?)
 127     assert([nil].none?)
 128     assert([nil,false].none?)
 129   end
 130
 131   def test_min
 132     assert_equal(1, @obj.min)
 133     assert_equal(3, @obj.min {|a,b| b <=> a })
 134     a = %w(albatross dog horse)
 135     assert_equal("albatross", a.min)
 136     assert_equal("dog", a.min {|a,b| a.length <=> b.length })
 137     assert_equal(1, [3,2,1].min)
 138   end
 139
 140   def test_max
 141     assert_equal(3, @obj.max)
 142     assert_equal(1, @obj.max {|a,b| b <=> a })
 143     a = %w(albatross dog horse)
 144     assert_equal("horse", a.max)
 145     assert_equal("albatross", a.max {|a,b| a.length <=> b.length })
 146     assert_equal(1, [3,2,1].max{|a,b| b <=> a })
 147   end
 148
 149   def test_minmax
 150     assert_equal([1, 3], @obj.minmax)
 151     assert_equal([3, 1], @obj.minmax {|a,b| b <=> a })
 152     a = %w(albatross dog horse)
 153     assert_equal(["albatross", "horse"], a.minmax)
 154     assert_equal(["dog", "albatross"], a.minmax {|a,b| a.length <=> b.length })
 155     assert_equal([1, 3], [2,3,1].minmax)
 156     assert_equal([3, 1], [2,3,1].minmax {|a,b| b <=> a })
 157   end
 158
 159   def test_min_by
 160     assert_equal(3, @obj.min_by {|x| -x })
 161     a = %w(albatross dog horse)
 162     assert_equal("dog", a.min_by {|x| x.length })
 163     assert_equal(3, [2,3,1].min_by {|x| -x })
 164   end
 165
 166   def test_max_by
 167     assert_equal(1, @obj.max_by {|x| -x })
 168     a = %w(albatross dog horse)
 169     assert_equal("albatross", a.max_by {|x| x.length })
 170     assert_equal(1, [2,3,1].max_by {|x| -x })
 171   end
 172
 173   def test_minmax_by
 174     assert_equal([3, 1], @obj.minmax_by {|x| -x })
 175     a = %w(albatross dog horse)
 176     assert_equal(["dog", "albatross"], a.minmax_by {|x| x.length })
 177     assert_equal([3, 1], [2,3,1].minmax_by {|x| -x })
 178   end
 179
 180   def test_member
 181     assert(@obj.member?(1))
 182     assert(!(@obj.member?(4)))
 183     assert([1,2,3].member?(1))
 184     assert(!([1,2,3].member?(4)))
 185   end
 186
 187   def test_each_with_index
 188     a = []
 189     @obj.each_with_index {|x, i| a << [x, i] }
 190     assert_equal([[1,0],[2,1],[3,2],[1,3],[2,4]], a)
 191
 192     hash = Hash.new
 193     %w(cat dog wombat).each_with_index do |item, index|
 194       hash[item] = index
 195     end
 196     assert_equal({"cat"=>0, "wombat"=>2, "dog"=>1}, hash)
 197   end
 198
 199   def test_zip
 200     assert_equal([[1,1],[2,2],[3,3],[1,1],[2,2]], @obj.zip(@obj))
 201     a = []
 202     @obj.zip([:a, :b, :c]) {|x,y| a << [x, y] }
 203     assert_equal([[1,:a],[2,:b],[3,:c],[1,nil],[2,nil]], a)
 204   end
 205
 206   def test_take
 207     assert_equal([1,2,3], @obj.take(3))
 208   end
 209
 210   def test_take_while
 211     assert_equal([1,2], @obj.take_while {|x| x <= 2})
 212   end
 213
 214   def test_drop
 215     assert_equal([3,1,2], @obj.drop(2))
 216   end
 217
 218   def test_drop_while
 219     assert_equal([3,1,2], @obj.drop_while {|x| x <= 2})
 220   end
 221
 222   def test_cycle
 223     assert_equal([1,2,3,1,2,1,2,3,1,2], @obj.cycle.take(10))
 224   end
 225
 226   def test_callcc
 227     assert_raise(RuntimeError) do
 228       c = nil
 229       @obj.sort_by {|x| callcc {|c2| c ||= c2 }; x }
 230       c.call
 231     end
 232
 233     assert_raise(RuntimeError) do
 234       c = nil
 235       o = Object.new
 236       class << o; self; end.class_eval do
 237         define_method(:<=>) do |x|
 238           callcc {|c2| c ||= c2 }
 239           0
 240         end
 241       end
 242       [o, o].sort_by {|x| x }
 243       c.call
 244     end
 245
 246     assert_raise(RuntimeError) do
 247       c = nil
 248       o = Object.new
 249       class << o; self; end.class_eval do
 250         define_method(:<=>) do |x|
 251           callcc {|c2| c ||= c2 }
 252           0
 253         end
 254       end
 255       [o, o, o].sort_by {|x| x }
 256       c.call
 257     end
 258   end
 259 end