Lines Matching refs:r
43 r bitcount no-key
47 r set str "xxxx"
48 r bitcount str 4 10
52 r set str "xxxx"
53 r bitcount str -6 -7
60 r set str $vec
61 assert {[r bitcount str] == [count_bits $vec]}
68 r set str $str
69 assert {[r bitcount str] == [count_bits $str]}
76 r set str $str
83 assert {[r bitcount str $start $end] == [count_bits [string range $str $start $end]]}
88 r set s "foobar"
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"]
96 catch {r bitcount s 0} e
101 r del foo
102 r setbit foo 0 1
103 if {[catch {r bitcount foo 0 4294967296} e]} {
112 r del str
113 r set str ab
114 r bitcount str 1 -1
118 r del str
119 r set str __PPxxxxxxxxxxxxxxxxRR__
120 r bitcount str 2 -3
124 r set s ""
125 r bitop not dest s
126 r get dest
130 r set s "\xaa\x00\xff\x55"
131 r bitop not dest s
132 r get dest
136 r set s "\xaa\x00\xff\x55"
137 r bitop not s s
138 r get s
142 r set a "\x01\x02\xff"
143 r bitop and res1 a
144 r bitop or res2 a
145 r bitop xor res3 a
146 list [r get res1] [r get res2] [r get res3]
150 r set a "\x01\x02\xff"
151 r bitop and res1 no-suck-key a
152 r bitop or res2 no-suck-key a no-such-key
153 r bitop xor res3 no-such-key a
154 list [r get res1] [r get res2] [r get res3]
158 r set a "\x01\x02\xff\xff"
159 r set b "\x01\x02\xff"
160 r bitop and res1 a b
161 r bitop or res2 a b
162 r bitop xor res3 a b
163 list [r get res1] [r get res2] [r get res3]
169 r flushall
177 r set vector_$j $str
179 r bitop $op target {*}$veckeys
180 assert_equal [r get target] [simulate_bit_op $op {*}$vec]
187 r flushall
189 r set str $str
190 r bitop not target str
191 assert_equal [r get target] [simulate_bit_op not $str]
196 r set a 1
197 r set b 2
198 r bitop xor dest a b a
199 r get dest
203 r del c
204 r set a 1
205 r set b 2
206 r lpush c foo
207 catch {r bitop xor dest a b c d} e
212 r flushdb
213 …r set a "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\…
214 r bitop or x a b
218 r del str
219 r bitpos str 0
223 r del str
224 r bitpos str 1
228 r set str "\xff\xf0\x00"
229 r bitpos str 0
233 r set str "\x00\x0f\x00"
234 r bitpos str 1
238 r set str "\xff\xf0\x00"
239 r bitpos str 0 1
243 r set str "\x00\x0f\xff"
244 r bitpos str 1 1
248 r del str
249 r set str "\xff\xff\xff" ; # Prefix
251 r append str "\xff\xff\xff\xff\xff\xff\xff\xff"
252 r append str "\xff\xff\xff\xff\xff\xff\xff\xff"
253 r append str "\xff\xff\xff\xff\xff\xff\xff\xff"
255 r append str "\x0f"
256 assert {[r bitpos str 0] == 216}
257 assert {[r bitpos str 0 1] == 216}
258 assert {[r bitpos str 0 2] == 216}
259 assert {[r bitpos str 0 3] == 216}
260 assert {[r bitpos str 0 4] == 216}
261 assert {[r bitpos str 0 5] == 216}
262 assert {[r bitpos str 0 6] == 216}
263 assert {[r bitpos str 0 7] == 216}
264 assert {[r bitpos str 0 8] == 216}
268 r del str
269 r set str "\x00\x00\x00" ; # Prefix
271 r append str "\x00\x00\x00\x00\x00\x00\x00\x00"
272 r append str "\x00\x00\x00\x00\x00\x00\x00\x00"
273 r append str "\x00\x00\x00\x00\x00\x00\x00\x00"
275 r append str "\xf0"
276 assert {[r bitpos str 1] == 216}
277 assert {[r bitpos str 1 1] == 216}
278 assert {[r bitpos str 1 2] == 216}
279 assert {[r bitpos str 1 3] == 216}
280 assert {[r bitpos str 1 4] == 216}
281 assert {[r bitpos str 1 5] == 216}
282 assert {[r bitpos str 1 6] == 216}
283 assert {[r bitpos str 1 7] == 216}
284 assert {[r bitpos str 1 8] == 216}
288 r set str ""
290 assert {[r bitpos str 1] == -1}
291 r append str "\x00"
296 r set str "\x00\xff\x00"
297 assert {[r bitpos str 0 0 -1] == 0}
298 assert {[r bitpos str 0 1 -1] == 16}
299 assert {[r bitpos str 0 2 -1] == 16}
300 assert {[r bitpos str 0 2 200] == 16}
301 assert {[r bitpos str 0 1 1] == -1}
305 r set str "\x00\xff\x00"
306 assert {[r bitpos str 1 0 -1] == 8}
307 assert {[r bitpos str 1 1 -1] == 8}
308 assert {[r bitpos str 1 2 -1] == -1}
309 assert {[r bitpos str 1 2 200] == -1}
310 assert {[r bitpos str 1 1 1] == 8}
314 r set str "\xff\xff\xff"
315 assert {[r bitpos str 0] == 24}
316 assert {[r bitpos str 0 0] == 24}
317 assert {[r bitpos str 0 0 -1] == -1}
321 r del str
325 assert {[r bitpos str 1] == $first_one_pos}
327 r setbit str $pos 1
339 r set str [string repeat "\xff" [expr $max/8]]
341 assert {[r bitpos str 0] == $first_zero_pos}
343 r setbit str $pos 0