Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
ab37269c
Commit
ab37269c
authored
Jun 13, 2010
by
Pieter Noordhuis
Browse files
use max number of intset entries in tests and make SUNION/SINTER/SDIFF tests use less entries
parent
70ff3511
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/unit/type/set.tcl
View file @
ab37269c
start_server
{
tags
{
"set"
}}
{
start_server
{
tags
{
"set"
}
overrides
{
"set-max-intset-entries"
512
}
}
{
proc create_set
{
key entries
}
{
proc create_set
{
key entries
}
{
r del $key
r del $key
foreach entry $entries
{
r sadd $key $entry
}
foreach entry $entries
{
r sadd $key $entry
}
...
@@ -33,6 +38,21 @@ start_server {tags {"set"}} {
...
@@ -33,6 +38,21 @@ start_server {tags {"set"}} {
assert_error ERR*kind*
{
r sadd mylist bar
}
assert_error ERR*kind*
{
r sadd mylist bar
}
}
}
test
"SADD a non-integer against an intset"
{
create_set myset
{
1 2 3
}
assert_encoding intset myset
assert_equal 1
[
r sadd myset a
]
assert_encoding hashtable myset
}
test
"SADD overflows the maximum allowed integers in an intset"
{
r del myset
for
{
set i 0
}
{
$i
< 512
}
{
incr i
}
{
r sadd myset $i
}
assert_encoding intset myset
assert_equal 1
[
r sadd myset 512
]
assert_encoding hashtable myset
}
test
{
SREM basics - regular set
}
{
test
{
SREM basics - regular set
}
{
create_set myset
{
foo bar ciao
}
create_set myset
{
foo bar ciao
}
assert_encoding hashtable myset
assert_encoding hashtable myset
...
@@ -53,14 +73,14 @@ start_server {tags {"set"}} {
...
@@ -53,14 +73,14 @@ start_server {tags {"set"}} {
for
{
set i 1
}
{
$i
<= 5
}
{
incr i
}
{
for
{
set i 1
}
{
$i
<= 5
}
{
incr i
}
{
r del
[
format
"set%d"
$i
]
r del
[
format
"set%d"
$i
]
}
}
for
{
set i 0
}
{
$i
<
10
00
}
{
incr i
}
{
for
{
set i 0
}
{
$i
<
2
00
}
{
incr i
}
{
r sadd set1 $i
r sadd set1 $i
r sadd set2
[
expr $i+
9
95
]
r sadd set2
[
expr $i+
1
95
]
}
}
foreach i
{
9
99
9
95 1000 2000
}
{
foreach i
{
1
99
1
95 1000 2000
}
{
r sadd set3 $i
r sadd set3 $i
}
}
for
{
set i 5
}
{
$i
<
10
00
}
{
incr i
}
{
for
{
set i 5
}
{
$i
<
2
00
}
{
incr i
}
{
r sadd set4 $i
r sadd set4 $i
}
}
r sadd set5 0
r sadd set5 0
...
@@ -82,20 +102,20 @@ start_server {tags {"set"}} {
...
@@ -82,20 +102,20 @@ start_server {tags {"set"}} {
}
}
test
"SINTER with two sets -
$type
"
{
test
"SINTER with two sets -
$type
"
{
assert_equal
{
9
95
9
96
9
97
9
98
9
99
}
[
lsort
[
r sinter set1 set2
]]
assert_equal
{
1
95
1
96
1
97
1
98
1
99
}
[
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 intset setres
assert_equal
{
9
95
9
96
9
97
9
98
9
99
}
[
lsort
[
r smembers setres
]]
assert_equal
{
1
95
1
96
1
97
1
98
1
99
}
[
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 intset setres
assert_equal
{
9
95
9
96
9
97
9
98
9
99
}
[
lsort
[
r smembers setres
]]
assert_equal
{
1
95
1
96
1
97
1
98
1
99
}
[
lsort
[
r smembers setres
]]
}
}
test
"SUNION with two sets -
$type
"
{
test
"SUNION with two sets -
$type
"
{
...
@@ -111,12 +131,12 @@ start_server {tags {"set"}} {
...
@@ -111,12 +131,12 @@ start_server {tags {"set"}} {
}
}
test
"SINTER against three sets -
$type
"
{
test
"SINTER against three sets -
$type
"
{
assert_equal
{
9
95
9
99
}
[
lsort
[
r sinter set1 set2 set3
]]
assert_equal
{
1
95
1
99
}
[
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
{
9
95
9
99
}
[
r smembers setres
]
assert_equal
{
1
95
1
99
}
[
r smembers setres
]
}
}
test
"SUNION with non existing keys -
$type
"
{
test
"SUNION with non existing keys -
$type
"
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment