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

Make :prefix a keyword argument of list-queues

Browse source
This commit is contained in:
Tim Chagnon 2013-11-26 10:21:16 -08:00
parent 960c5e4966
commit 382fd20418
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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

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

@ -60,7 +60,7 @@
(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 test-queue-name-prefix)) *test-queue-url*) (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"))) "Created queue not visible in result of list-queues with prefix")))
(defsqstest test-queue-attrs (defsqstest test-queue-attrs