Commit 5498e7bc authored by antirez's avatar antirez
Browse files

Tests for scripting PRNG.

parent 5386f72d
...@@ -251,6 +251,26 @@ start_server {tags {"scripting"}} { ...@@ -251,6 +251,26 @@ start_server {tags {"scripting"}} {
lappend res [r eval $decr_if_gt 1 foo 2] lappend res [r eval $decr_if_gt 1 foo 2]
set res set res
} {4 3 2 2 2} } {4 3 2 2 2}
test {Scripting engine resets PRNG at every script execution} {
set rand1 [r eval {return tostring(math.random())} 0]
set rand2 [r eval {return tostring(math.random())} 0]
assert_equal $rand1 $rand2
}
test {Scripting engine PRNG can be seeded correctly} {
set rand1 [r eval {
math.randomseed(ARGV[1]); return tostring(math.random())
} 0 10]
set rand2 [r eval {
math.randomseed(ARGV[1]); return tostring(math.random())
} 0 10]
set rand3 [r eval {
math.randomseed(ARGV[1]); return tostring(math.random())
} 0 20]
assert_equal $rand1 $rand2
assert {$rand2 ne $rand3}
}
} }
start_server {tags {"scripting repl"}} { start_server {tags {"scripting repl"}} {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment