mirror of
https://github.com/penpot/penpot.git
synced 2026-10-29 14:00:37 +00:00
334f727e87
Port staging c74d415 (#12252) to main, adapted to this branch. The :export-shapes modal event carried the full :exports vector, each export embedding its shape, which could reach megabytes and wedge the audit archive queue past the proxy body limit. Build a compact body instead: totals, distinct shapes and per-type counts, plus the page name. Other modals keep their props. Move the modal :origin prop to ::ev/origin so make-proto-event records it as :event-origin; the UI still reads the plain prop. Bound exception messages at the source: get-hint clamps to max-message-length (1000 chars) and the CLJS format-throwable clamps the trace message line and honors :trace-length. The Context Hint header in generate-report prints get-hint instead of the raw hint. Also fix first-line on the JVM, where cuerdas/index-of returns nil and (pos? nil) throws. Adaptations to main: skip audit-log.md (absent here), skip the generate-report huge-message test (staging async helpers are absent), and fit the errors.cljs hunk to main's generate-report. AI-assisted-by: muse-spark-1.3-contributor
56 lines
2.0 KiB
Clojure
56 lines
2.0 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS SUBSIDIARY SL
|
|
|
|
(ns frontend-tests.data.modal-test
|
|
(:require
|
|
[app.common.uuid :as uuid]
|
|
[app.main.data.event :as ev]
|
|
[app.main.data.modal :as modal]
|
|
[cljs.test :as t :include-macros true]))
|
|
|
|
(t/deftest export-shapes-modal-event-carries-a-summary
|
|
(let [shape-a (uuid/next)
|
|
shape-b (uuid/next)
|
|
exports [{:object-id shape-a :type :png}
|
|
{:object-id shape-a :type :svg}
|
|
{:object-id shape-b :type :png}]
|
|
event (modal/show :export-shapes
|
|
{:exports exports
|
|
:origin "workspace:sidebar"
|
|
:name "Page 1"})
|
|
data (ev/-data event)]
|
|
|
|
(t/testing "the raw exports never leak into the event"
|
|
(t/is (not (contains? data :exports))))
|
|
|
|
(t/testing "the event carries counters instead"
|
|
(t/is (= 3 (:num-exports data)))
|
|
(t/is (= 2 (:num-shapes data)))
|
|
(t/is (= 2 (:png data)))
|
|
(t/is (= 1 (:svg data))))
|
|
|
|
(t/testing "the modal context is preserved"
|
|
(t/is (= "Page 1" (:page data)))
|
|
(t/is (= :export-shapes (:name data))))
|
|
|
|
(t/testing "origin is emitted as event metadata, not as a prop"
|
|
(t/is (= "workspace:sidebar" (::ev/origin data)))
|
|
(t/is (not (contains? data :origin))))))
|
|
|
|
(t/deftest other-modals-keep-their-props
|
|
(let [event (modal/show :some-modal {:foo "bar" :items [1 2 3]})
|
|
data (ev/-data event)]
|
|
(t/is (= "bar" (:foo data)))
|
|
(t/is (= [1 2 3] (:items data)))
|
|
(t/is (= :some-modal (:name data)))))
|
|
|
|
(t/deftest modal-origin-becomes-event-metadata
|
|
(let [event (modal/show :some-modal {:foo "bar" :origin "dashboard"})
|
|
data (ev/-data event)]
|
|
(t/is (= "dashboard" (::ev/origin data)))
|
|
(t/is (not (contains? data :origin)))
|
|
(t/is (= "bar" (:foo data)))))
|