Test:Fix invalid cases in hash.tcl and dump.tcl (#4611)
This commit is contained in:
parent
fbed632f3a
commit
ddcbb628a1
@ -170,7 +170,7 @@ start_server {tags {"dump"}} {
|
|||||||
$second set list somevalue
|
$second set list somevalue
|
||||||
catch {r -1 migrate $second_host $second_port list 9 5000 copy} e
|
catch {r -1 migrate $second_host $second_port list 9 5000 copy} e
|
||||||
assert_match {ERR*} $e
|
assert_match {ERR*} $e
|
||||||
set res [r -1 migrate $second_host $second_port list 9 5000 copy replace]
|
set ret [r -1 migrate $second_host $second_port list 9 5000 copy replace]
|
||||||
assert {$ret eq {OK}}
|
assert {$ret eq {OK}}
|
||||||
assert {[$first exists list] == 1}
|
assert {[$first exists list] == 1}
|
||||||
assert {[$second exists list] == 1}
|
assert {[$second exists list] == 1}
|
||||||
|
@ -302,7 +302,7 @@ start_server {tags {"hash"}} {
|
|||||||
r hset smallhash str " 11"
|
r hset smallhash str " 11"
|
||||||
r hset bighash str " 11"
|
r hset bighash str " 11"
|
||||||
catch {r hincrby smallhash str 1} smallerr
|
catch {r hincrby smallhash str 1} smallerr
|
||||||
catch {r hincrby smallhash str 1} bigerr
|
catch {r hincrby bighash str 1} bigerr
|
||||||
set rv {}
|
set rv {}
|
||||||
lappend rv [string match "ERR*not an integer*" $smallerr]
|
lappend rv [string match "ERR*not an integer*" $smallerr]
|
||||||
lappend rv [string match "ERR*not an integer*" $bigerr]
|
lappend rv [string match "ERR*not an integer*" $bigerr]
|
||||||
@ -312,7 +312,7 @@ start_server {tags {"hash"}} {
|
|||||||
r hset smallhash str "11 "
|
r hset smallhash str "11 "
|
||||||
r hset bighash str "11 "
|
r hset bighash str "11 "
|
||||||
catch {r hincrby smallhash str 1} smallerr
|
catch {r hincrby smallhash str 1} smallerr
|
||||||
catch {r hincrby smallhash str 1} bigerr
|
catch {r hincrby bighash str 1} bigerr
|
||||||
set rv {}
|
set rv {}
|
||||||
lappend rv [string match "ERR*not an integer*" $smallerr]
|
lappend rv [string match "ERR*not an integer*" $smallerr]
|
||||||
lappend rv [string match "ERR*not an integer*" $bigerr]
|
lappend rv [string match "ERR*not an integer*" $bigerr]
|
||||||
@ -374,7 +374,7 @@ start_server {tags {"hash"}} {
|
|||||||
r hset smallhash str " 11"
|
r hset smallhash str " 11"
|
||||||
r hset bighash str " 11"
|
r hset bighash str " 11"
|
||||||
catch {r hincrbyfloat smallhash str 1} smallerr
|
catch {r hincrbyfloat smallhash str 1} smallerr
|
||||||
catch {r hincrbyfloat smallhash str 1} bigerr
|
catch {r hincrbyfloat bighash str 1} bigerr
|
||||||
set rv {}
|
set rv {}
|
||||||
lappend rv [string match "ERR*not*float*" $smallerr]
|
lappend rv [string match "ERR*not*float*" $smallerr]
|
||||||
lappend rv [string match "ERR*not*float*" $bigerr]
|
lappend rv [string match "ERR*not*float*" $bigerr]
|
||||||
@ -384,7 +384,7 @@ start_server {tags {"hash"}} {
|
|||||||
r hset smallhash str "11 "
|
r hset smallhash str "11 "
|
||||||
r hset bighash str "11 "
|
r hset bighash str "11 "
|
||||||
catch {r hincrbyfloat smallhash str 1} smallerr
|
catch {r hincrbyfloat smallhash str 1} smallerr
|
||||||
catch {r hincrbyfloat smallhash str 1} bigerr
|
catch {r hincrbyfloat bighash str 1} bigerr
|
||||||
set rv {}
|
set rv {}
|
||||||
lappend rv [string match "ERR*not*float*" $smallerr]
|
lappend rv [string match "ERR*not*float*" $smallerr]
|
||||||
lappend rv [string match "ERR*not*float*" $bigerr]
|
lappend rv [string match "ERR*not*float*" $bigerr]
|
||||||
|
Loading…
x
Reference in New Issue
Block a user