From c0a261334bf16266b19e34fb829b0b7233c1130f Mon Sep 17 00:00:00 2001 From: Adrian Cole Date: Mon, 4 Apr 2011 14:37:46 -0700 Subject: [PATCH] added large container list test in clj --- .../src/test/clojure/org/jclouds/blobstore_test.clj | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/blobstore/src/test/clojure/org/jclouds/blobstore_test.clj b/blobstore/src/test/clojure/org/jclouds/blobstore_test.clj index 1a347a7d1c..6c3d917b72 100644 --- a/blobstore/src/test/clojure/org/jclouds/blobstore_test.clj +++ b/blobstore/src/test/clojure/org/jclouds/blobstore_test.clj @@ -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"))