3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-04 00:38:24 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Create add-file-image-from-url service

Browse source
This commit is contained in:
Andrés Moya 2020-06-24 13:11:42 +02:00 • committed by Andrey Antukh
parent 85bae6cf26
commit 72c36660b9
4 changed files with 69 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

32
backend/tests/uxbox/tests/test_services_files.clj
View file

@ -135,6 +135,30 @@
proj-id (:default-project-id prof)
file (th/create-file db/pool (:id prof) proj-id 1)]
(t/testing "create file image from url"
(let [url "https://raw.githubusercontent.com/uxbox/uxbox/develop/frontend/resources/images/penpot-login.jpg"
data {::sm/type :add-file-image-from-url
:profile-id (:id prof)
:file-id (:id file)
:name "testfile"
:url url}
out (th/try-on! (sm/handle data))]
;; (th/print-result! out)
(t/is (nil? (:error out)))
(let [result (:result out)]
(t/is (= (:id file) (:file-id result)))
(t/is (= (:name data) (:name result)))
(t/is (= 787 (:width result)))
(t/is (= 2000 (:height result)))
(t/is (= "image/jpeg" (:mtype result)))
(t/is (string? (:path result)))
(t/is (string? (:uri result)))
(t/is (string? (:thumb-path result)))
(t/is (string? (:thumb-uri result))))))
(t/testing "upload file image"
(let [content {:filename "sample.jpg"
:tempfile (th/tempfile "uxbox/tests/_files/sample.jpg")
@ -144,9 +168,7 @@
:profile-id (:id prof)
:file-id (:id file)
:name "testfile"
:content content
:width 800
:height 800}
:content content}
out (th/try-on! (sm/handle data))]
@ -156,8 +178,8 @@
(let [result (:result out)]
(t/is (= (:id file) (:file-id result)))
(t/is (= (:name data) (:name result)))
(t/is (= (:width data) (:width result)))
(t/is (= (:height data) (:height result)))
(t/is (= 800 (:width result)))
(t/is (= 800 (:height result)))
(t/is (= (:content-type content) (:mtype result)))
(t/is (string? (:path result)))