File tree Expand file tree Collapse file tree 2 files changed +8
-19
lines changed Expand file tree Collapse file tree 2 files changed +8
-19
lines changed Original file line number Diff line number Diff line change 9898 :queue-name packed-queue-name
9999 :options {:direction direction :pattern pattern}
100100 :message message})
101- (edn/read-string message)))))
102-
101+ (edn/read-string message)))))
103102
104103(defn lindex
105104 " Return a element in a specified index
194193 redis.clients.jedis.args.ListPosition/BEFORE
195194 redis.clients.jedis.args.ListPosition/AFTER)
196195 return (.linsert @client packed-queue-name encoded-pos encoded-pivot encoded-message)]
197- (log/debug " inserted in queue"
198- {:client client
199- :queue-name queue-name
200- :msg encoded-message
201- :opts opts
202- :return return})
203- return))
204-
196+ (log/debug " inserted in queue"
197+ {:client client
198+ :queue-name queue-name
199+ :msg encoded-message
200+ :opts opts
201+ :return return})
202+ return))
205203
206204(defn lrange
207205 " Return an entire range given min and max indexes
223221 :result return})
224222 (mapv clojure.edn/read-string return)))
225223
226-
227224(defn ltrim
228225 " Trim a list to the specified range.
229226
246243 :result return})
247244 return)))
248245
249-
250-
251246(defn rpoplpush
252247 " Remove the last element in a list and append it to another list.
253248
270265 :result return})
271266 return))
272267
273-
274268(defn brpoplpush
275269 " Remove the last element in a list and append it to another list, blocking if necessary.
276270
295289 :result result})
296290 result))
297291
298-
299-
300292(defn lmove
301293 " Atomically return and remove the first/last element of the source list, and push the element as the first/last element of the destination list.
302294
Original file line number Diff line number Diff line change 6767 (rq-queue/pop! client queue-name :direction :l )
6868 (rq-queue/pop! client queue-name :direction :l ))
6969
70-
7170 (t/testing " lrange"
7271 (rq-queue/push! client queue-name message)
7372 (rq-queue/push! client queue-name another-message)
7675 (rq-queue/pop! client queue-name :direction :l )
7776 (rq-queue/pop! client queue-name :direction :l ))
7877
79-
8078 (t/testing " ltrim"
8179 (let [base-message {:test " hello" , :my/test2 " 123" , :foobar [" 321" ]}
8280 message (assoc base-message :uuid (java.util.UUID/randomUUID ))
9088 (rq-queue/pop! client queue-name :direction :l )
9189 (rq-queue/pop! client queue-name :direction :l ))
9290
93-
9491 (t/testing " rpoplpush"
9592 (rq-queue/push! client queue-name message)
9693 (rq-queue/rpoplpush client queue-name another-queue-name)
You can’t perform that action at this time.
0 commit comments