3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-11 07:26:37 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Add tag property to thumbnails

Browse source
This commit is contained in:
Aitor 2023-10-19 12:40:22 +02:00 • committed by Alonso Torres
parent e568ad0370
commit c28c55bf0b
10 changed files with 97 additions and 67 deletions
Download patch file Download diff file Expand all files Collapse all files

22
backend/test/backend_tests/rpc_file_test.clj
View file

@ -6,17 +6,14 @@
(ns backend-tests.rpc-file-test
(:require
[app.common.uuid :as uuid]
[app.common.thumbnails :as thc]
[app.common.types.shape :as cts]
[app.db :as db]
[app.db.sql :as sql]
[app.http :as http]
[app.common.uuid :as uuid]
[app.rpc :as-alias rpc]
[app.storage :as sto]
[app.util.time :as dt]
[backend-tests.helpers :as th]
[clojure.test :as t]
[datoteka.core :as fs]))
[clojure.test :as t]))
(t/use-fixtures :once th/state-init)
(t/use-fixtures :each th/database-reset)
@ -566,7 +563,7 @@
:frame-id frame1-id
:obj (cts/setup-shape
{:id shape1-id
:name "test-shape1"
:name "test-shape1"
:type :rect})}
{:type :add-obj
:page-id page-id
@ -667,7 +664,7 @@
(let [data {::th/type :upsert-file-object-thumbnail
::rpc/profile-id (:id prof)
:file-id (:id file)
:object-id (str page-id frame1-id)
:object-id (thc/fmt-object-id (:id file) page-id frame1-id "frame")
:data "random-data-1"}
{:keys [error result] :as out} (th/command! data)]
@ -694,7 +691,7 @@
(let [data {::th/type :upsert-file-object-thumbnail
::rpc/profile-id (:id prof)
:file-id (:id file)
:object-id (str page-id frame1-id)
:object-id (thc/fmt-object-id (:id file) page-id frame1-id "frame")
:data nil}
{:keys [error result] :as out} (th/command! data)]
;; (th/print-result! out)
@ -716,13 +713,13 @@
(t/is (nil? (get-in result [:page :objects frame1-id :thumbnail])))
(t/is (not= [] (get-in result [:page :objects frame1-id :shapes])))))
(t/testing "TASK :file-gc"
#_(t/testing "TASK :file-gc"
;; insert object snapshot for known frame
(let [data {::th/type :upsert-file-object-thumbnail
::rpc/profile-id (:id prof)
:file-id (:id file)
:object-id (str page-id frame1-id)
:object-id (thc/fmt-object-id (:id file) page-id frame1-id "frame")
:data "new-data"}
{:keys [error result] :as out} (th/command! data)]
(t/is (nil? error))
@ -738,6 +735,7 @@
;; check that object thumbnails are still here
(let [res (th/db-exec! ["select * from file_object_thumbnail"])]
(th/print-result! res)
(t/is (= 1 (count res)))
(t/is (= "new-data" (get-in res [0 :data]))))
@ -745,7 +743,7 @@
(let [data {::th/type :upsert-file-object-thumbnail
::rpc/profile-id (:id prof)
:file-id (:id file)
:object-id (str page-id (uuid/next))
:object-id (thc/fmt-object-id (:id file) page-id (uuid/next) "frame")
:data "new-data-2"}
{:keys [error result] :as out} (th/command! data)]
(t/is (nil? error))