summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--test/ruby/test_array.rb17
2 files changed, 22 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index b70a774919..139d8b0fe5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri Oct 24 22:59:27 2008 Yusuke Endoh <mame@tsg.ne.jp>
+
+ * test/ruby/test_array.rb (test_sample): add tests for size of
+ returned array and randomness.
+
Fri Oct 24 21:50:21 2008 Nobuyoshi Nakada <nobu@ruby-lang.org>
* id.h, template/id.h.tmpl (enum ruby_method_ids): reordered.
diff --git a/test/ruby/test_array.rb b/test/ruby/test_array.rb
index 1b917ca77a..cfb36045e3 100644
--- a/test/ruby/test_array.rb
+++ b/test/ruby/test_array.rb
@@ -1545,6 +1545,23 @@ class TestArray < Test::Unit::TestCase
assert([0, 1, 2].include?(sample))
}
end
+
+ srand(0)
+ a = (1..18).to_a
+ (0..20).each do |n|
+ 10000.times do
+ b = a.sample(n)
+ assert_equal([n, 18].min, b.uniq.size)
+ assert_equal(a, (a | b).sort)
+ assert_equal(b.sort, (a & b).sort)
+ end
+
+ h = Hash.new(0)
+ 10000.times do
+ a.sample(n).each {|x| h[x] += 1 }
+ end
+ assert_operator(h.values.min * 2, :>=, h.values.max) if n != 0
+ end
end
def test_cycle