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

Run clojure blobstore tests inside with-blobstore.

This commit is contained in:
Jim 2010-03-09 16:16:43 -06:00
parent 1da7c5a6b6
commit 5311b05192
1 changed files with 26 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,9 +8,10 @@
(def stub-blobstore (.getBlobStore stub-context))
(defn clean-stub-fixture [f]
(doseq [container (containers)]
(delete-container (.getName container)))
(f))
(with-blobstore [stub-blobstore]
(doseq [container (containers)]
(delete-container (.getName container)))
(f)))
(use-fixtures :each clean-stub-fixture)
@ -34,19 +35,13 @@
(deftest create-existing-container-test
(is (not (container-exists? stub-blobstore "")))
(with-blobstore [stub-blobstore]
(is (not (container-exists? ""))))
(is (not (container-exists? "")))
(is (create-container stub-blobstore "fred"))
(is (container-exists? stub-blobstore "fred"))
(with-blobstore [stub-blobstore]
(is (container-exists? "fred"))))
(is (container-exists? stub-blobstore "fred")))
(deftest create-container-test
(is (create-container stub-blobstore "fred"))
(is (container-exists? stub-blobstore "fred"))
(with-blobstore [stub-blobstore]
(is (create-container "fred"))
(is (container-exists? "fred"))))
(is (container-exists? stub-blobstore "fred")))
(deftest containers-test
(is (empty? (containers stub-blobstore)))
@ -54,43 +49,27 @@
(is (= 1 (count (containers stub-blobstore)))))
(deftest list-container-test
(is (create-container stub-blobstore "container"))
(is (empty? (list-container stub-blobstore "container")))
(is (create-blob stub-blobstore "container" "blob1" "blob1"))
(is (create-blob stub-blobstore "container" "blob2" "blob2"))
(is (= 2 (count (list-container stub-blobstore "container"))))
(is (= 1 (count (list-container stub-blobstore "container" :max-results 1))))
(create-directory stub-blobstore "container" "dir")
(is (create-blob stub-blobstore "container" "dir/blob2" "blob2"))
(is (= 3 (count (list-container stub-blobstore "container"))))
(is (= 4 (count (list-container stub-blobstore "container" :recursive))))
(is (= 1 (count (list-container stub-blobstore "container"
:in-directory "dir")))))
(deftest list-container-with-blobstore-test
(with-blobstore [stub-blobstore]
(is (create-container "container"))
(is (empty? (list-container "container")))
(is (create-blob "container" "blob1" "blob1"))
(is (create-blob "container" "blob2" "blob2"))
(is (= 2 (count (list-container "container"))))
(is (= 1 (count (list-container "container" :max-results 1))))
(create-directory "container" "dir")
(is (create-blob "container" "dir/blob2" "blob2"))
(is (= 3 (count (list-container "container"))))
(is (= 4 (count (list-container "container" :recursive))))
(is (= 1 (count (list-container "container" :in-directory "dir"))))))
(is (create-container "container"))
(is (empty? (list-container "container")))
(is (create-blob "container" "blob1" "blob1"))
(is (create-blob "container" "blob2" "blob2"))
(is (= 2 (count (list-container "container"))))
(is (= 1 (count (list-container "container" :max-results 1))))
(create-directory "container" "dir")
(is (create-blob "container" "dir/blob2" "blob2"))
(is (= 3 (count (list-container "container"))))
(is (= 4 (count (list-container "container" :recursive))))
(is (= 1 (count (list-container "container" :in-directory "dir")))))
(deftest download-blob-test
(with-blobstore [stub-blobstore]
(let [name "test"
container-name "test-container"
data "test content"
baos (ByteArrayOutputStream.)]
(create-container container-name)
(create-blob container-name name data)
(download-blob container-name name baos)
(is (= data (.toString baos))))))
(let [name "test"
container-name "test-container"
data "test content"
baos (ByteArrayOutputStream.)]
(create-container container-name)
(create-blob container-name name data)
(download-blob container-name name baos)
(is (= data (.toString baos)))))
;; TODO: more tests involving blob-specific functions