blob: 469c9ba645d9e23ff9255748bf6b60fd09341692 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
(ns weepinbell.downloader-test
(:require [weepinbell.http.downloader :refer [download-file]]
[clojure.java.io :as io]
[weepinbell.http.client]
[org.httpkit.server :refer [run-server]]
[clojure.test :refer [deftest testing is]]))
(deftest downloader-test
(testing "Downloading a regular text file with parent dirs not available"
(let [handler (fn [& _] {:status 200
:body "file content"
:headers {"Content-Type" "text/plain; charset: utf-8"}})
server (run-server handler {:port 18888 :join? false})
file-dst (io/file "tmp/test.txt")]
(is (download-file "http://localhost:18888" file-dst))
(is (= "file content" (slurp file-dst)))
(io/delete-file file-dst)
(server)))
(testing "Downloading a regular text file"
(let [handler (fn [& _] {:status 200
:body "file content"
:headers {"Content-Type" "text/plain; charset: utf-8"}})
server (run-server handler {:port 18888 :join? false})
file-dst (io/file "tmp/test.txt")]
(io/make-parents file-dst)
(is (download-file "http://localhost:18888" file-dst))
(is (= "file content" (slurp file-dst)))
(io/delete-file file-dst)
(server)))
(testing "Downloading a non-existant file"
(let [file-dst (io/file "tmp/should-not-exist.txt")]
(is (not (download-file "https://localhost:18888" file-dst)))
(is (not (.exists file-dst)))))
(testing "Exception/Error thrown while downloading"
(with-redefs [weepinbell.http.client/get!
(fn [& _] (throw (.Error "Test error")))]
(is (false? (download-file "" "")))))
(testing "Deletes possibly corrupted file when failure is caught"
(with-redefs [weepinbell.http.client/get!
(fn [& _] (throw (.Error "Test error")))]
(let [dest "dest"]
(spit dest "CORRUPTED")
(is (false? (download-file "" dest)))
(is (not (.exists (io/file dest))))))))
|
