Files
mruby-mruby/mrbgems/mruby-random/test/random.rb
T
dearblue 80fe9838d2 Integrate Fixnum class into Integer class
* The `Fixnum` constant is now an alias for the `Integer` class.
* Remove `struct mrb_state::fixnum_class` member.
  If necessary, use `struct mrb_state::integer_class` instead.
2020-10-12 16:21:44 +09:00

123 lines
3.0 KiB
Ruby

##
# Random Test
assert("Random.new") do
r1 = Random.new(123)
r2 = Random.new(123)
r3 = Random.new(124)
assert_equal(r1.rand, r2.rand)
assert_not_equal(r1.rand, r3.rand)
end
assert("Kernel.srand") do
srand(234)
r1 = rand
srand(234)
r2 = rand
srand(235)
r3 = rand
assert_equal(r1, r2)
assert_not_equal(r1, r3)
end
assert("Random.srand") do
Random.srand(345)
r1 = rand
srand(345)
r2 = Random.rand
Random.srand(346)
r3 = rand
assert_equal(r1, r2)
assert_not_equal(r1, r3)
end
assert("return class of Kernel.rand") do
assert_kind_of(Integer, rand(3))
assert_kind_of(Integer, rand(1.5))
assert_kind_of(Float, rand)
assert_kind_of(Float, rand(0.5))
end
assert("Array#shuffle") do
orig = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
ary = orig.dup
shuffled = ary.shuffle
assert_equal(orig, ary)
assert_not_equal(ary, shuffled)
assert_equal(orig, shuffled.sort)
end
assert('Array#shuffle!') do
orig = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
ary = orig.dup
assert_same(ary, ary.shuffle!)
assert_not_equal(orig, ary)
assert_equal(orig, ary.sort)
end
assert("Array#shuffle(random)") do
assert_raise(TypeError) do
# this will cause an exception due to the wrong argument
[1, 2].shuffle "Not a Random instance"
end
# verify that the same seed causes the same results
ary = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
shuffled1 = ary.shuffle Random.new 345
shuffled2 = ary.shuffle Random.new 345
shuffled3 = ary.shuffle Random.new 346
assert_equal(shuffled1, shuffled2)
assert_not_equal(shuffled1, shuffled3)
end
assert('Array#shuffle!(random)') do
assert_raise(TypeError) do
# this will cause an exception due to the wrong argument
[1, 2].shuffle! "Not a Random instance"
end
# verify that the same seed causes the same results
ary1 = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
ary1.shuffle! Random.new 345
ary2 = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
ary2.shuffle! Random.new 345
ary3 = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
ary3.shuffle! Random.new 346
assert_equal(ary1, ary2)
assert_not_equal(ary1, ary3)
end
assert('Array#sample') do
100.times do
assert_include([0, 1, 2], [2, 1, 0].sample)
[2, 1, 0].sample(2).each { |sample| assert_include([0, 1, 2], sample) }
h = {}
(1..10).to_a.sample(7).each do |sample|
assert_not_include(h, sample)
h[sample] = true
end
end
assert_nil([].sample)
assert_equal([], [].sample(1))
assert_equal([], [2, 1].sample(0))
assert_raise(TypeError) { [2, 1].sample(true) }
assert_raise(ArgumentError) { [2, 1].sample(-1) }
end
assert('Array#sample(random)') do
assert_raise(TypeError) do
# this will cause an exception due to the wrong argument
[1, 2].sample(2, "Not a Random instance")
end
# verify that the same seed causes the same results
ary = (1..10).to_a
srand(15)
samples1 = ary.sample(4)
samples2 = ary.sample(4, Random.new(15))
samples3 = ary.sample(4, Random.new(16))
assert_equal(samples1, samples2)
assert_not_equal(samples1, samples3)
end