Apache
/
jclouds
mirror of https://github.com/apache/jclouds.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Issue 202: with-details option for blobstore list

This commit is contained in:
Adrian Cole 2010-04-06 19:33:26 -07:00
parent fab4a0fb4d
commit 45384de903
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
blobstore/src/main/clojure/org/jclouds/blobstore.clj
View File

@ -85,6 +85,7 @@ Options can also be specified for extension modules
{:after-marker #(.afterMarker %1 %2) {:after-marker #(.afterMarker %1 %2)
:in-directory #(.inDirectory %1 %2) :in-directory #(.inDirectory %1 %2)
:max-results #(.maxResults %1 %2) :max-results #(.maxResults %1 %2)
:with-details #(when %2 (.withDetails %1))
:recursive #(when %2 (.recursive %1))}) :recursive #(when %2 (.recursive %1))})
(defn list-container (defn list-container

1
blobstore/src/test/clojure/org/jclouds/blobstore_test.clj
View File

@ -48,6 +48,7 @@
(is (upload-blob "container" "dir/blob2" "blob2")) (is (upload-blob "container" "dir/blob2" "blob2"))
(is (= 3 (count (list-container "container")))) (is (= 3 (count (list-container "container"))))
(is (= 4 (count (list-container "container" :recursive true)))) (is (= 4 (count (list-container "container" :recursive true))))
(is (= 3 (count (list-container "container" :with-details true))))
(is (= 1 (count (list-container "container" :in-directory "dir"))))) (is (= 1 (count (list-container "container" :in-directory "dir")))))
(deftest download-blob-test (deftest download-blob-test