;; 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.plugins.text-test (:require [app.main.data.workspace.texts :as dwt] [app.main.store :as st] [app.plugins.fonts :as fonts] [app.plugins.format :as format] [app.plugins.register :as r] [app.plugins.shape :as shape] [app.plugins.text :as plugins.text] [app.plugins.utils :as u] [cljs.test :as t :include-macros true] [frontend-tests.helpers.mock :as mock])) (def ^:private plugin-id "00000000-0000-0000-0000-000000000000") ;; Regression coverage for issue #9780. ;; ;; `letterSpacing` accepts negative tracking in the product UI (-200..200, ;; see typography.cljs), but the plugin setter rejected any leading minus, ;; so negative values were refused. Pin the accept/reject contract of the ;; plugin setter here. (defn- apply-range-property "Sets `property` on a text range proxy and returns the attributes sent to the update event, or nil when the plugin rejected the value." [property value] (let [captured (atom nil) range (plugins.text/text-range-proxy plugin-id (random-uuid) (random-uuid) (random-uuid) 0 4)] (with-redefs [r/check-permission (constantly true) u/page-active? (constantly true) u/not-valid (fn [_ _ _] nil) dwt/update-text-range (fn [_ _ _ attrs] (reset! captured attrs) :update-text-range) st/emit! mock/noop] (unchecked-set range property value) @captured))) (defn- apply-letter-spacing [value] (apply-range-property "letterSpacing" value)) (t/deftest letter-spacing-accepts-negative-values (t/is (= {:letter-spacing "-0.56"} (apply-letter-spacing "-0.56"))) (t/is (= {:letter-spacing "-12"} (apply-letter-spacing "-12"))) (t/is (= {:letter-spacing "-200"} (apply-letter-spacing "-200")))) (t/deftest letter-spacing-accepts-non-negative-values (t/is (= {:letter-spacing "0"} (apply-letter-spacing "0"))) (t/is (= {:letter-spacing "12"} (apply-letter-spacing "12"))) (t/is (= {:letter-spacing "1.5"} (apply-letter-spacing "1.5")))) (t/deftest letter-spacing-rejects-non-numeric (t/is (nil? (apply-letter-spacing "abc"))) (t/is (nil? (apply-letter-spacing "1-2"))) (t/is (nil? (apply-letter-spacing "--1")))) (t/deftest japanese-range-properties-accept-only-supported-values (doseq [[property attr accepted rejected] [["fontFeatures" :font-features ["none" "palt" "vpal"] ["liga" "palt,vpal"]] ["annotationClearance" :annotation-clearance ["none" "auto"] ["always"]] ["rubySize" :ruby-size ["half" "third" "quarter"] ["full"]] ["rubyAlign" :ruby-align ["space-around" "center" "start" "space-between"] ["end"]] ["rubyOverhang" :ruby-overhang ["auto" "none"] ["always"]] ["rubySide" :ruby-side ["over" "under"] ["right"]] ["ruby" :ruby ["かんじ" nil] [42]]]] (doseq [value accepted] (t/is (= {attr value} (apply-range-property property value)) (str property " accepts " (pr-str value)))) (doseq [value rejected] (t/is (nil? (apply-range-property property value)) (str property " rejects " (pr-str value)))))) (t/deftest text-range-japanese-properties-read-span-values (let [file-id (random-uuid) page-id (random-uuid) shape-id (random-uuid) content {:type "root" :children [{:type "paragraph-set" :children [{:type "paragraph" :children [{:text "漢字" :text-combine-upright "digits2" :text-emphasis "filled-dot" :warichu "warichu" :font-features "vpal" :annotation-clearance "auto" :ruby "かんじ" :ruby-size "third" :ruby-align "center" :ruby-overhang "none" :ruby-side "under"}]}]}]} range (plugins.text/text-range-proxy plugin-id file-id page-id shape-id 0 2)] (with-redefs [u/proxy->shape (constantly {:content content})] (t/is (= "digits2" (.-textCombineUpright range))) (t/is (= "filled-dot" (.-textEmphasis range))) (t/is (= "warichu" (.-warichu range))) (t/is (= "vpal" (.-fontFeatures range))) (t/is (= "auto" (.-annotationClearance range))) (t/is (= "かんじ" (.-ruby range))) (t/is (= "third" (.-rubySize range))) (t/is (= "center" (.-rubyAlign range))) (t/is (= "none" (.-rubyOverhang range))) (t/is (= "under" (.-rubySide range)))))) (t/deftest text-range-japanese-properties-report-mixed-values (let [file-id (random-uuid) page-id (random-uuid) shape-id (random-uuid) content {:type "root" :children [{:type "paragraph-set" :children [{:type "paragraph" :children [{:text "日" :text-emphasis "filled-dot" :ruby "にち" :ruby-size "third"} {:text "本" :text-emphasis "none" :ruby nil :ruby-size "half"}]}]}]} range (plugins.text/text-range-proxy plugin-id file-id page-id shape-id 0 2)] (with-redefs [u/proxy->shape (constantly {:content content})] (t/is (= "mixed" (.-textEmphasis range))) (t/is (= "mixed" (.-ruby range))) (t/is (= "mixed" (.-rubySize range)))))) (t/deftest text-range-japanese-properties-update-the-selected-range (let [file-id (random-uuid) page-id (random-uuid) shape-id (random-uuid) range (plugins.text/text-range-proxy plugin-id file-id page-id shape-id 1 4) captured (atom [])] (with-redefs [r/check-permission (constantly true) u/page-active? (constantly true) dwt/update-text-range (fn [id start end attrs] (swap! captured conj {:id id :start start :end end :attrs attrs}) :update-text-range) st/emit! mock/noop] (set! (.-textCombineUpright range) "digits2") (set! (.-textEmphasis range) "filled-dot") (set! (.-warichu range) "warichu") (set! (.-fontFeatures range) "vpal") (set! (.-annotationClearance range) "auto") (set! (.-ruby range) "かんじ") (set! (.-rubySize range) "third") (set! (.-rubyAlign range) "center") (set! (.-rubyOverhang range) "none") (set! (.-rubySide range) "under") (t/is (= [{:id shape-id :start 1 :end 4 :attrs {:text-combine-upright "digits2"}} {:id shape-id :start 1 :end 4 :attrs {:text-emphasis "filled-dot"}} {:id shape-id :start 1 :end 4 :attrs {:warichu "warichu"}} {:id shape-id :start 1 :end 4 :attrs {:font-features "vpal"}} {:id shape-id :start 1 :end 4 :attrs {:annotation-clearance "auto"}} {:id shape-id :start 1 :end 4 :attrs {:ruby "かんじ"}} {:id shape-id :start 1 :end 4 :attrs {:ruby-size "third"}} {:id shape-id :start 1 :end 4 :attrs {:ruby-align "center"}} {:id shape-id :start 1 :end 4 :attrs {:ruby-overhang "none"}} {:id shape-id :start 1 :end 4 :attrs {:ruby-side "under"}}] @captured))))) (t/deftest font-apply-to-text-uses-font-id-not-shape-id (let [file-id (random-uuid) page-id (random-uuid) shape-id (random-uuid) font (fonts/font-proxy plugin-id {:id "font-id" :family "Inter" :name "Inter" :variants [{:id "regular" :name "Regular" :weight "400" :style "normal"}]}) text (shape/shape-proxy plugin-id file-id page-id shape-id) captured (atom nil)] (with-redefs [r/check-permission (constantly true) u/page-active? (constantly true) dwt/update-attrs (fn [id attrs] (reset! captured {:id id :attrs attrs}) :update-attrs) st/emit! mock/noop] (.applyToText font text nil) (t/is (= shape-id (:id @captured))) (t/is (= "font-id" (get-in @captured [:attrs :font-id])))))) (t/deftest font-apply-to-range-uses-hidden-range-bounds (let [file-id (random-uuid) page-id (random-uuid) shape-id (random-uuid) font (fonts/font-proxy plugin-id {:id "font-id" :family "Inter" :name "Inter" :variants [{:id "regular" :name "Regular" :weight "400" :style "normal"}]}) range (plugins.text/text-range-proxy plugin-id file-id page-id shape-id 1 4) captured (atom nil)] (with-redefs [r/check-permission (constantly true) u/page-active? (constantly true) dwt/update-text-range (fn [id start end attrs] (reset! captured {:id id :start start :end end :attrs attrs}) :update-text-range) st/emit! mock/noop] (.applyToRange font range nil) (t/is (= shape-id (:id @captured))) (t/is (= 1 (:start @captured))) (t/is (= 4 (:end @captured))) (t/is (= "font-id" (get-in @captured [:attrs :font-id])))))) (t/deftest text-range-shape-returns-a-shape-proxy (let [file-id (random-uuid) page-id (random-uuid) shape-id (random-uuid) range (plugins.text/text-range-proxy plugin-id file-id page-id shape-id 0 3)] (with-redefs [format/shape-proxy shape/shape-proxy] (let [text-shape (.-shape range)] (t/is (shape/shape-proxy? text-shape)) (t/is (= shape-id (aget text-shape "$id")))))))