johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-11 22:14:05 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki Activity

✨ Add support auto decoding and validation syntax for obj/reify

Browse Source
This commit is contained in:
Andrey Antukh
2025-12-02 17:31:11 +01:00
parent 9dfe5b0865
commit 4637aced8c
3 changed files with 282 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
frontend/test/frontend_tests/runner.cljs
View File

@@ -16,6 +16,7 @@
[frontend-tests.tokens.logic.token-actions-test]
[frontend-tests.tokens.logic.token-data-test]
[frontend-tests.tokens.style-dictionary-test]
[frontend-tests.util-object-test]
[frontend-tests.util-range-tree-test]
[frontend-tests.util-simple-math-test]
[frontend-tests.worker-snap-test]))
@@ -45,6 +46,7 @@
'frontend-tests.tokens.logic.token-actions-test
'frontend-tests.tokens.logic.token-data-test
'frontend-tests.tokens.style-dictionary-test
'frontend-tests.util-object-test
'frontend-tests.util-range-tree-test
'frontend-tests.util-simple-math-test
'frontend-tests.worker-snap-test))

113
frontend/test/frontend_tests/util_object_test.cljs Normal file
View File

@@ -0,0 +1,113 @@
;; 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 INC
(ns frontend-tests.util-object-test
(:require
[app.common.schema :as sm]
[app.util.object :as obj]
[cljs.pprint :refer [pprint]]
[cljs.test :as t]))
(t/deftest getters-and-setters
(let [val (volatile! nil)
obj (obj/reify {:name "Foo"}
:value
{:get (fn [] @val)
:set (fn [o] (vswap! val (constantly o)))})]
(t/is (nil? (.-value obj)))
(set! (.-value obj) 2)
(t/is (= 2 (.-value obj)))
(t/is (= 2 @val))))
(t/deftest getters-and-setters-access-this
(let [val (volatile! nil)
obj (obj/reify {:name "Foo"}
:value
{:get (fn []
(this-as self
self))
:set (fn [o]
(this-as self
(vreset! val self)))})]
(t/is (identical? obj (.-value obj)))
(set! (.-value obj) 1)
(t/is (identical? obj @val))))
(t/deftest getters-and-setters-access-explicit-this
(let [val1 (volatile! nil)
val2 (volatile! nil)
obj (obj/reify {:name "Foo"}
:value
{:this true
:get (fn [this]
(this-as self (vreset! val1 self))
(vreset! val2 this)
this)
:set (fn [this o]
(this-as self (vreset! val1 self))
(vreset! val2 this))})]
(t/is (identical? obj (.-value obj)))
(t/is (identical? obj @val1))
(t/is (identical? obj @val2))
(vreset! val1 nil)
(vreset! val2 nil)
(set! (.-value obj) 1)
(t/is (identical? obj @val1))
(t/is (identical? obj @val2))))
(t/deftest functions-with-map-syntax
(let [val (volatile! nil)
obj (obj/reify {:name "Foo"}
:sum
{:fn (fn [a b]
(this-as self (vreset! val self))
(+ a b))})]
(t/is (= 3 (.sum obj 1 2)))
(t/is (identical? obj @val))))
(t/deftest functions-with-short-syntax
(let [val (volatile! nil)
obj (obj/reify {:name "Foo"}
:sum
(fn [a b]
(this-as self (vreset! val self))
(+ a b)))]
(t/is (= 3 (.sum obj 1 2)))
(t/is (identical? obj @val))))
(t/deftest functions-with-schema
(let [val (volatile! nil)
obj (obj/reify {:name "Foo"}
:sum
{:schema [:cat ::sm/int ::sm/int]
:fn (fn [a b]
(this-as self (vreset! val self))
(+ a b))})]
(t/is (= 3 (.sum obj 1 2)))
(t/is (= 3 (.sum obj 1 "2")))
(t/is (true? (.propertyIsEnumerable obj "sum")))
(t/is (thrown-with-msg? js/Error
#"check error"
(.sum obj 1 "a")))))
(t/deftest non-enumerable-props
(let [val (volatile! nil)
obj (obj/reify {:name "Foo"}
:sum
{:enumerable false
:fn (fn [a b]
(this-as self (vreset! val self))
(+ a b))})]
(t/is (false? (.propertyIsEnumerable obj "sum")))))