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

added large container list test in clj

This commit is contained in:
Adrian Cole 2011-04-04 14:37:46 -07:00
parent 99ac814d51
commit c0a261334b
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -77,6 +77,18 @@
(is (= 3 (count (list-container "container" :with-details true))))
(is (= 1 (count (list-container "container" :in-directory "dir")))))
(deftest large-container-list-test
(let [container-name "test"
total-blobs 10000]
;; create a container full of blobs
(create-container container-name)
(dotimes [i total-blobs] (upload-blob container-name (str i) (str i)))
;; verify
(is (= total-blobs (count-blobs container-name)))))
(deftest get-blob-test
(is (create-container "blob"))
(is (upload-blob "blob" "blob1" "blob1"))