HTTP tests with nginx

Author: totakke

docker-compose.yml

@@ -1,4 +1,11 @@
 services:
+  http:
+    image: nginx:1.27.4
+    ports:
+    - "8080:80"
+    volumes:
+    - ./docker/http:/usr/share/nginx/html
+
   ftp:
     image: crazymax/pure-ftpd:1.0.50
     ports:

docker/http/test.png

@@ -6,25 +6,35 @@
 
 (defprofile test-prof
   {:resources [{:id :test-resource
-                :url "https://s3.amazonaws.com/cavia/test.png"
+                :url "http://localhost:8080/test.png"
                 :sha1 "07dba3bd9f227f58134d339b1609e0a913abe0de"}
                {:id :test-resource2
-                :url "https://s3.amazonaws.com/cavia/test.png"
+                :url "http://localhost:8080/test.png"
                 :sha1 "unverifiedsha1"}
                {:id :test-resource3
-                :url "https://s3.amazonaws.com/cavia/test.png"
+                :url "http://localhost:8080/test.png"
                 :md5 "0656b409231ee9bd8c5c9272647c69a1"}
                {:id :test-resource4
-                :url "https://s3.amazonaws.com/cavia/test.png"
+                :url "http://localhost:8080/test.png"
                 :sha256 "55902cd4056e2bd57ced9296c826e4df42f07457c96ce72afe8652d0d6dd89b3"}
                {:id :test-resource-gzip
-                :url "https://s3.amazonaws.com/cavia/test.png.gz"
+                :url "http://localhost:8080/test.png.gz"
                 :sha1 "07dba3bd9f227f58134d339b1609e0a913abe0de"
                 :packed :gzip}
                {:id :test-resource-bzip2
-                :url "https://s3.amazonaws.com/cavia/test.png.bz2"
+                :url "http://localhost:8080/test.png.bz2"
                 :sha1 "07dba3bd9f227f58134d339b1609e0a913abe0de"
-                :packed :bzip2}]})
+                :packed :bzip2}
+               {:id :test-resource-ftp
+                :url "ftp://localhost:2221/test.png"
+                :sha1 "07dba3bd9f227f58134d339b1609e0a913abe0de"
+                :auth {:user "user" :password "password"}}
+               {:id :test-resource-s3
+                :url "http://localhost:9000/cavia/test.png"
+                :sha1 "07dba3bd9f227f58134d339b1609e0a913abe0de"
+                :protocol :s3
+                :auth {:access-key-id "minioadmin"
+                       :secret-access-key "minioadmin"}}]})
 
 ;;;
 ;;; Setup and teardown
@@ -44,30 +54,35 @@
 ;;; Tests
 ;;;
 
-(deftest resource-test
+(deftest ^:integration resource-test
   (testing "returns the resource's path"
     (is (not (nil? (re-find #".*\.cavia/test-resource$" (cavia/resource :test-resource))))))
   (testing "return path is absolute"
     (is (.isAbsolute (io/file (cavia/resource :test-resource)))))
   (testing "returns nil when the id does not exist"
     (is (nil? (cavia/resource :notexist)))))
 
-(deftest exist?-test
+(deftest ^:integration exist?-test
   (testing "returns true if the file is already downloaded"
-    (is (cavia/exist? :test-resource)))
+    (are [k] (true? (cavia/exist? k))
+      :test-resource
+      :test-resource-ftp
+      :test-resource-s3))
   (testing "returns false if the file is not downloaded"
     (is (not (cavia/exist? :test-resource2)))))
 
-(deftest valid?-test
+(deftest ^:integration valid?-test
   (testing "returns true if the file's hash is valid"
-    (are [k] (cavia/valid? k)
+    (are [k] (true? (cavia/valid? k))
       :test-resource
       :test-resource3
-      :test-resource4))
+      :test-resource4
+      :test-resource-ftp
+      :test-resource-s3))
   (testing "returns false if the file's hash is invalid"
     (is (not (cavia/valid? :test-resource2)))))
 
-(deftest packed-test
+(deftest ^:integration packed-test
   (testing "gzip"
     (is (cavia/exist? :test-resource-gzip))
     (is (cavia/valid? :test-resource-gzip)))

docker/http/test.png.bz2

@@ -22,7 +22,7 @@
 ;;; defs
 ;;;
 
-(def http-test-url "https://s3.amazonaws.com/cavia/test.png")
+(def http-test-url "http://localhost:8080/test.png")
 (def http-test-hash "07dba3bd9f227f58134d339b1609e0a913abe0de")
 (def http-test-local (str temp-dir "/http-test-resource"))
 
@@ -44,7 +44,7 @@
 ;;; Tests
 ;;;
 
-(deftest http-download!-test
+(deftest ^:integration http-download!-test
   (testing "returns nil when finishing successfully "
     (is (nil? (dl/http-download! http-test-url http-test-local))))
   (testing "check the resource's hash"