mirror of
https://github.com/penpot/penpot.git
synced 2025-01-09 08:20:45 -05:00
59 lines
1.8 KiB
Clojure
59 lines
1.8 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 INC
|
|
|
|
(ns frontend-tests.helpers-shapes-test
|
|
(:require
|
|
[app.common.colors :as clr]
|
|
[app.common.data :as d]
|
|
[app.common.geom.point :as gpt]
|
|
[app.common.pages.helpers :as cph]
|
|
[app.main.data.workspace.libraries :as dwl]
|
|
[beicon.core :as rx]
|
|
[cljs.pprint :refer [pprint]]
|
|
[cljs.test :as t :include-macros true]
|
|
[clojure.stacktrace :as stk]
|
|
[frontend-tests.helpers.events :as the]
|
|
[frontend-tests.helpers.libraries :as thl]
|
|
[frontend-tests.helpers.pages :as thp]
|
|
[linked.core :as lks]
|
|
[potok.core :as ptk]))
|
|
|
|
(t/use-fixtures :each
|
|
{:before thp/reset-idmap!})
|
|
|
|
(t/deftest test-create-page
|
|
(t/testing "create page"
|
|
(let [state (-> thp/initial-state
|
|
(thp/sample-page))
|
|
page (thp/current-page state)]
|
|
(t/is (= (:name page) "page1")))))
|
|
|
|
(t/deftest test-create-shape
|
|
(t/testing "create shape"
|
|
(let [state (-> thp/initial-state
|
|
(thp/sample-page)
|
|
(thp/sample-shape :shape1 :rect
|
|
{:name "Rect 1"}))
|
|
shape (thp/get-shape state :shape1)]
|
|
(t/is (= (:name shape) "Rect 1")))))
|
|
|
|
(t/deftest asynctest
|
|
(t/testing "asynctest"
|
|
(t/async done
|
|
(let [state {}
|
|
color {:color clr/white}
|
|
|
|
store (the/prepare-store state done
|
|
(fn [new-state]
|
|
(t/is (= (get-in new-state [:workspace-data
|
|
:recent-colors])
|
|
[color]))))]
|
|
|
|
(ptk/emit!
|
|
store
|
|
(dwl/add-recent-color color)
|
|
:the/end)))))
|
|
|