luciano/bandalore
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge 382fd20418 into b7d186125c

Browse source
This commit is contained in:
tchagnon 2013-11-26 10:21:21 -08:00
commit cde09080e1
2 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/main/clojure/cemerick/bandalore.clj
View file

@ -50,9 +50,10 @@
(.deleteQueue client (DeleteQueueRequest. queue-url))) (.deleteQueue client (DeleteQueueRequest. queue-url)))
(defn list-queues (defn list-queues
"Returns a seq of all queues' URL strings." "Returns a seq of all queues' URL strings. Takes an optional string prefix
[^AmazonSQSClient client] argument to only list queues with names that start with the prefix."
(->> (ListQueuesRequest.) [^AmazonSQSClient client & {:keys [prefix]}]
(->> (ListQueuesRequest. prefix)
(.listQueues client) (.listQueues client)
.getQueueUrls .getQueueUrls
seq)) seq))

4
src/test/clojure/cemerick/bandalore_test.clj
View file

@ -59,7 +59,9 @@
; sending a msg seems to "force" the queue's existence in listings ; sending a msg seems to "force" the queue's existence in listings
(send client *test-queue-url* msg) (send client *test-queue-url* msg)
(wait-for-condition #((set (list-queues client)) *test-queue-url*) (wait-for-condition #((set (list-queues client)) *test-queue-url*)
"Created queue not visible in result of list-queues"))) "Created queue not visible in result of list-queues")
(wait-for-condition #((set (list-queues client :prefix test-queue-name-prefix)) *test-queue-url*)
"Created queue not visible in result of list-queues with prefix")))
(defsqstest test-queue-attrs (defsqstest test-queue-attrs
(let [{:strs [MaximumMessageSize] :as base-attrs} (queue-attrs client *test-queue-url*) (let [{:strs [MaximumMessageSize] :as base-attrs} (queue-attrs client *test-queue-url*)