fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-04-22 17:12:13 +00:00
Code Issues Projects Releases Wiki Activity

Fix set tests to make sets have a deterministic encoding

Browse Source
This commit is contained in:
Pieter Noordhuis 2010-08-31 09:37:25 +02:00
parent fb92ecece7
commit 1eb13e4913
1 changed files with 21 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
tests/unit/type/set.tcl
View File

@ -106,14 +106,17 @@ start_server {
} }
r sadd set5 0 r sadd set5 0
# it is possible that a hashtable encoded only contains integers, # To make sure the sets are encoded as the type we are testing -- also
# because it is converted from an intset to a hashtable when a # when the VM is enabled and the values may be swapped in and out
# non-integer element is added and then removed. # while the tests are running -- an extra element is added to every
# set that determines its encoding.
set large 200
if {$type eq "hashtable"} { if {$type eq "hashtable"} {
for {set i 1} {$i <= 5} {incr i} { set large foo
r sadd [format "set%d" $i] foo
r srem [format "set%d" $i] foo
} }
for {set i 1} {$i <= 5} {incr i} {
r sadd [format "set%d" $i] $large
} }
test "Generated sets must be encoded as $type" { test "Generated sets must be encoded as $type" {
@ -123,20 +126,20 @@ start_server {
} }
test "SINTER with two sets - $type" { test "SINTER with two sets - $type" {
assert_equal {195 196 197 198 199} [lsort [r sinter set1 set2]] assert_equal [list 195 196 197 198 199 $large] [lsort [r sinter set1 set2]]
} }
test "SINTERSTORE with two sets - $type" { test "SINTERSTORE with two sets - $type" {
r sinterstore setres set1 set2 r sinterstore setres set1 set2
assert_encoding intset setres assert_encoding $type setres
assert_equal {195 196 197 198 199} [lsort [r smembers setres]] assert_equal [list 195 196 197 198 199 $large] [lsort [r smembers setres]]
} }
test "SINTERSTORE with two sets, after a DEBUG RELOAD - $type" { test "SINTERSTORE with two sets, after a DEBUG RELOAD - $type" {
r debug reload r debug reload
r sinterstore setres set1 set2 r sinterstore setres set1 set2
assert_encoding intset setres assert_encoding $type setres
assert_equal {195 196 197 198 199} [lsort [r smembers setres]] assert_equal [list 195 196 197 198 199 $large] [lsort [r smembers setres]]
} }
test "SUNION with two sets - $type" { test "SUNION with two sets - $type" {
@ -146,18 +149,18 @@ start_server {
test "SUNIONSTORE with two sets - $type" { test "SUNIONSTORE with two sets - $type" {
r sunionstore setres set1 set2 r sunionstore setres set1 set2
assert_encoding intset setres assert_encoding $type setres
set expected [lsort -uniq "[r smembers set1] [r smembers set2]"] set expected [lsort -uniq "[r smembers set1] [r smembers set2]"]
assert_equal $expected [lsort [r smembers setres]] assert_equal $expected [lsort [r smembers setres]]
} }
test "SINTER against three sets - $type" { test "SINTER against three sets - $type" {
assert_equal {195 199} [lsort [r sinter set1 set2 set3]] assert_equal [list 195 199 $large] [lsort [r sinter set1 set2 set3]]
} }
test "SINTERSTORE with three sets - $type" { test "SINTERSTORE with three sets - $type" {
r sinterstore setres set1 set2 set3 r sinterstore setres set1 set2 set3
assert_equal {195 199} [r smembers setres] assert_equal [list 195 199 $large] [lsort [r smembers setres]]
} }
test "SUNION with non existing keys - $type" { test "SUNION with non existing keys - $type" {
@ -175,7 +178,9 @@ start_server {
test "SDIFFSTORE with three sets - $type" { test "SDIFFSTORE with three sets - $type" {
r sdiffstore setres set1 set4 set5 r sdiffstore setres set1 set4 set5
assert_encoding intset setres # The type is determined by type of the first key to diff against.
# See the implementation for more information.
assert_encoding $type setres
assert_equal {1 2 3 4} [lsort [r smembers setres]] assert_equal {1 2 3 4} [lsort [r smembers setres]]
} }
} }