| /f-stack/app/redis-5.0.5/tests/unit/ |
| H A D | pubsub.tcl | 8 assert_equal $type [lindex $msg 0] 71 assert_equal 1 [r publish chan1 hello] 72 assert_equal 1 [r publish chan2 world] 78 assert_equal 0 [r publish chan1 hello] 79 assert_equal 1 [r publish chan2 world] 84 assert_equal 0 [r publish chan1 hello] 85 assert_equal 0 [r publish chan2 world] 143 assert_equal 0 [r publish foo1 hello] 231 assert_equal {1} [psubscribe $rd1 *] 240 assert_equal {1} [psubscribe $rd1 *] [all …]
|
| H A D | slowlog.tcl | 9 assert_equal [r slowlog len] 0 11 assert_equal [r slowlog len] 1 37 assert_equal [llength $e] 6 38 assert_equal [lindex $e 0] 105 39 assert_equal [expr {[lindex $e 2] > 100000}] 1 40 assert_equal [lindex $e 3] {debug sleep 0.2} 41 assert_equal {foobar} [lindex $e 5] 64 assert_equal [r slowlog len] 0 68 assert_equal [r slowlog len] 1 87 assert_equal [r slowlog len] 1 [all …]
|
| H A D | sort.tcl | 49 assert_equal $result [r sort tosort BY weight_*] 69 assert_equal 16 [llength $res] 70 foreach item $res { assert_equal {} $item } 77 assert_equal $id1 $id2 78 assert_equal $w1 [r get weight_$id1] 79 assert_equal $w2 [r get weight_$id1] 85 assert_equal $result [r lrange sort-res 0 -1] 86 assert_equal 16 [r llen sort-res] 92 assert_equal $result [r lrange sort-res 0 -1] 93 assert_equal 16 [r llen sort-res] [all …]
|
| H A D | quit.tcl | 12 assert_equal OK [r quit] 21 assert_equal OK [r read] 25 assert_equal {} [r get foo] 33 assert_equal OK [r read] 37 assert_equal {} [r get foo]
|
| H A D | scan.tcl | 17 assert_equal 1000 [llength $keys] 35 assert_equal 1000 [llength $keys] 53 assert_equal 100 [llength $keys] 86 assert_equal 100 [llength $keys] 126 assert_equal $count [llength $keys2] 166 assert_equal $count [llength $keys2] 196 assert_equal 100 [llength $keys2] 204 assert_equal [lsort -unique [lindex $res 1]] {a} 206 assert_equal [lsort -unique [lindex $res 1]] {1}
|
| H A D | introspection.tcl | 38 assert_equal [r client setname myname] {OK} 43 assert_equal [r client setname someothername] {OK} 50 assert_equal [$rd read] "OK"
|
| H A D | aofrw.tcl | 95 assert_equal [r object encoding key] $e 122 assert_equal [r object encoding key] $e 149 assert_equal [r object encoding key] $e 175 assert_equal [r object encoding key] $e
|
| H A D | protocol.tcl | 6 assert_equal "PONG" [r ping] 13 assert_equal PONG [r ping]
|
| H A D | bitops.tcl | 89 assert_equal [r bitcount s 0 -1] [count_bits "foobar"] 90 assert_equal [r bitcount s 1 -2] [count_bits "ooba"] 91 assert_equal [r bitcount s -2 1] [count_bits ""] 92 assert_equal [r bitcount s 0 1000] [count_bits "foobar"] 180 assert_equal [r get target] [simulate_bit_op $op {*}$vec] 191 assert_equal [r get target] [simulate_bit_op not $str]
|
| /f-stack/app/redis-5.0.5/tests/unit/type/ |
| H A D | list.tcl | 11 assert_equal 1 [r lpush myziplist1 aa] 14 assert_equal 3 [r llen myziplist1] 19 assert_equal cc [r rpop myziplist1] 43 assert_equal 3 [r llen mylist1] 48 assert_equal c [r rpop mylist1] 56 assert_equal 3 [r llen mylist2] 62 assert_equal c [r lpop mylist2] 77 assert_equal 1 [r del mylist2] 144 assert_equal d [$rd read] 231 assert_equal foo [$rd read] [all …]
|
| H A D | zset.tcl | 160 assert_equal 3 [r zcard ztmp] 714 assert_equal 1 [r zcard z1] 715 assert_equal 3 [r zcard z2] 721 assert_equal 1 [r zcard z1] 722 assert_equal 1 [r zcard z2] 733 assert_equal 0 [r zcard z1] 734 assert_equal 1 [r zcard z2] 879 assert_equal 0 $delta 961 assert_equal {} $err 1084 assert_equal 0 $diff [all …]
|
| H A D | string.tcl | 77 assert_equal 0 [r setnx x 20] 78 assert_equal 10 [r get x] 101 assert_equal 1 [r setnx x 20] 102 assert_equal 20 [r get x] 151 assert_equal 0 [r strlen notakey] 269 assert_equal "foo" [r get mykey] 273 assert_equal 0 [r exists mykey] 283 assert_equal "boo" [r get mykey] 303 assert_equal 2234 [r get mykey] 310 assert_equal 1234 [r get mykey] [all …]
|
| H A D | set.tcl | 15 assert_equal 1 [r sadd myset bar] 16 assert_equal 0 [r sadd myset bar] 17 assert_equal 2 [r scard myset] 27 assert_equal 1 [r sadd myset 16] 28 assert_equal 0 [r sadd myset 16] 29 assert_equal 2 [r scard myset] 44 assert_equal 1 [r sadd myset a] 58 assert_equal 1 [r sadd myset 512] 95 assert_equal 0 [r srem myset 6] 96 assert_equal 1 [r srem myset 4] [all …]
|
| H A D | list-3.tcl | 12 assert_equal [r lindex l 0] [lindex $mylist 0] 13 assert_equal [r lindex l 1] [lindex $mylist 1] 88 assert_equal [llength $l] [r llen l] 92 assert_equal [lindex $l $i] [r lindex l $i] 113 assert_equal [llength $l] [r llen l] 116 assert_equal [lindex $l $i] [r lindex l $i]
|
| H A D | list-2.tcl | 34 assert_equal $mylist [r lrange mylist 0 -1] "failed trim" 41 assert_equal $mylist [r lrange mylist 0 -1] "failed append match"
|
| H A D | hash.tcl | 233 assert_equal 0 [r hdel myhash x y] 234 assert_equal 2 [r hdel myhash a c f] 241 assert_equal 3 [r hdel myhash a b c d e] 242 assert_equal 0 [r exists myhash] 464 assert_equal $v [r hget hash $k] 466 assert_equal [array size hash] [r hlen hash] 501 assert_equal $v [r hget hash $k] 503 assert_equal [array size hash] [r hlen hash]
|
| H A D | stream.tcl | 58 assert_equal 2 [r XLEN mystream] 60 assert_equal [lindex $items 0 1] {item 1 value a} 61 assert_equal [lindex $items 1 1] {item 2 value b} 315 …assert_equal [r xrevrange teststream 1234567891245 -] {{1234567891240-0 {key2 value2}} {1234567891… 317 …assert_equal [r xrevrange teststream2 1234567891245 -] {{1234567891240-0 {key1 value2}} {123456789…
|
| /f-stack/app/redis-5.0.5/tests/integration/ |
| H A D | redis-cli.tcl | 8 assert_equal "redis> " [read_cli $fd] 126 assert_equal "bar" [r get key] 128 assert_equal " bar " [r get key] 130 assert_equal "\"bar\"" [r get key] 132 assert_equal "\tbar\t" [r get key] 140 assert_equal "bar" [r get key] 145 assert_equal "bar" [r get key] 167 assert_equal "foo\n" [r get key] 173 assert_equal "from file" [r get key] 178 assert_equal "bar" [r get key] [all …]
|
| H A D | aof.tcl | 36 assert_equal 1 [is_alive $srv] 52 assert_equal 1 [is_alive $srv] 69 assert_equal 1 [is_alive $srv] 169 assert_equal 1 [is_alive $srv] 180 assert_equal "" [$client get bar] 193 assert_equal 1 [is_alive $srv] 203 assert_equal 1 [$client scard set] 217 assert_equal 1 [is_alive $srv] 227 assert_equal 1 [$client scard set] 240 assert_equal 1 [is_alive $srv] [all …]
|
| H A D | convert-zipmap-hash-on-load.tcl | 10 assert_equal 2 [r hlen hash] 21 assert_equal 2 [r hlen hash] 32 assert_equal 2 [r hlen hash]
|
| H A D | aof-race.tcl | 27 assert_equal 20000 [$client get foo] 33 assert_equal 20000 [$client get foo]
|
| H A D | block-repl.tcl | 55 assert_equal [r debug digest] [r -1 debug digest]
|
| H A D | replication-2.tcl | 87 assert_equal [r debug digest] [r -1 debug digest]
|
| /f-stack/app/redis-5.0.5/tests/unit/moduleapi/ |
| H A D | commandfilter.tcl | 59 assert_equal "{set mykey @log}" [r lrange log-key 0 -1] 74 assert_equal "{set mykey @log}" [r lrange log-key 0 -1] 78 assert_equal {} [r lrange log-key 0 -1] 81 assert_equal {} [r lrange log-key 0 -1]
|
| /f-stack/app/redis-5.0.5/tests/support/ |
| H A D | test.tcl | 24 proc assert_equal {expected value {detail ""}} { procedure 47 assert_equal $type [r type $key]
|