47 lines
1.4 KiB
Plaintext
47 lines
1.4 KiB
Plaintext
note
|
|
description: "Summary description for {TEST_RANDSTRUCT_MT}."
|
|
author: ""
|
|
date: "$Date: 2011-11-11 18:13:16 +0100 (ven., 11 nov. 2011) $"
|
|
revision: "$Revision: 87787 $"
|
|
|
|
class
|
|
TEST_RANDSTRUCT_MT
|
|
|
|
inherit
|
|
EQA_TEST_SET
|
|
|
|
feature
|
|
test_randget_1
|
|
local
|
|
one: MERSENNE_TWISTER_RNG
|
|
target: SPECIAL [NATURAL_32]
|
|
do
|
|
create one.make
|
|
create target.make_filled (0, 16)
|
|
one.randget (target, 0, 16 * 32)
|
|
assert ("test randget 1 1", target [0] = 0x39bca874 and target [1] = 0x58d2754b and target [2] = 0x82902d2f and target [3] = 0x7647f3c3)
|
|
assert ("test randget 1 2", target [4] = 0x680bbdc8 and target [5] = 0x14b9c0e1 and target [6] = 0xd84a873b and target [7] = 0x6580d17d)
|
|
assert ("test randget 1 3", target [8] = 0xbf767863 and target [9] = 0x1eff7e89 and target [10] = 0xaa3dc18b and target [11] = 0x3c0d9fcf)
|
|
assert ("test randget 1 4", target [12] = 0x7a337236 and target [13] = 0xf58174d5 and target [14] = 0x6846aeb6 and target [15] = 0x18f204fe)
|
|
end
|
|
|
|
test_randget_2
|
|
local
|
|
one: MERSENNE_TWISTER_RNG
|
|
target: SPECIAL [NATURAL_32]
|
|
i: INTEGER
|
|
do
|
|
create one.make
|
|
create target.make_filled (0, 4)
|
|
from
|
|
i := 0
|
|
until
|
|
i >= 1_000
|
|
loop
|
|
one.randget (target, 0, 4 * 32)
|
|
i := i + 1
|
|
end
|
|
assert ("test randget 2", target [0] = 0x620764dc and target [1] = 0xe1fff273 and target [2] = 0x6a24317d and target [3] = 0x65d87e21)
|
|
end
|
|
end
|