Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-13 02:28:18 -05:00
Code Issues Activity

Fix and restructure tests.

Browse source
This commit is contained in:
Andrey Antukh 2016-06-21 19:31:35 +03:00
parent 0326c02c05
commit 967b67f0b1
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
5 changed files with 48 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
scripts/build-tests.clj
View file

@ -5,11 +5,14 @@
(let [start (System/nanoTime)]
(b/build
(b/inputs "src" "vendor" "test")
{:main 'uxbox.test-runner
:output-to "out/tests.js"
:output-dir "out"
{:main 'uxbox.tests.main
:parallel-build false
:optimizations :none
:warnings {:ns-var-clash false}
:output-to "out/tests.js"
:source-map "out/tests.js.map"
:output-dir "out/tests"
:optimizations :simple
:static-fns true
:pretty-print true
:target :nodejs
:language-in :ecmascript6

10
scripts/watch-tests.clj
View file

@ -1,11 +1,13 @@
(require '[cljs.build.api :as b])
(b/watch (b/inputs "src" "vendor" "test")
{:main 'uxbox.test-runner
:output-to "out/tests.js"
:output-dir "out"
{:main 'uxbox.tests.main
:parallel-build false
:optimizations :none
:output-to "out/tests.js"
:source-map "out/tests.js.map"
:output-dir "out/tests"
:optimizations :simple
:static-fns true
:pretty-print true
:target :nodejs
:language-in :ecmascript6

6
test/uxbox/util/geom_tests.cljs → test/uxbox/tests/geom_types.cljs
View file

@ -1,8 +1,8 @@
(ns uxbox.util.geom-tests
(ns uxbox.tests.geom-types
(:require [cljs.test :as t :include-macros true]
[cljs.pprint :refer (pprint)]
[uxbox.util.geom.point :as gpt]
[uxbox.util.geom.matrix :as gmt]))
[uxbox.common.geom.point :as gpt]
[uxbox.common.geom.matrix :as gmt]))
(t/deftest point-constructors-test
(let [p (gpt/point 1 2)]

10
test/uxbox/test_runner.cljs → test/uxbox/tests/main.cljs
View file

@ -1,7 +1,7 @@
(ns uxbox.test-runner
(ns uxbox.tests.main
(:require [cljs.test :as test]
[uxbox.state.shapes-tests]
[uxbox.util.geom-tests]))
[uxbox.tests.geom-types]
[uxbox.tests.shapes-state]))
(enable-console-print!)
@ -9,8 +9,8 @@
[]
(test/run-tests
(test/empty-env)
'uxbox.util.geom-tests
'uxbox.state.shapes-tests
'uxbox.tests.geom-types
'uxbox.tests.shapes-state
))
(defmethod test/report [:cljs.test/default :end-run-tests]

54
test/uxbox/state/shapes_tests.cljs → test/uxbox/tests/shapes_state.cljs
View file

@ -1,8 +1,8 @@
(ns uxbox.state.shapes-tests
(ns uxbox.tests.shapes-state
(:require [cljs.test :as t :include-macros true]
[cljs.pprint :refer (pprint)]
[uuid.core :as uuid]
[uxbox.state.shapes :as ssh]))
[uxbox.main.state.shapes :as sh]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Duplicate (one shape)
@ -26,7 +26,7 @@
(assoc-in [:shapes-by-id 2] {:id 2 :page 1}))]
(with-redefs [uuid.core/random (constantly 2)]
(let [result (ssh/duplicate-shapes initial [1])]
(let [result (sh/duplicate-shapes initial [1])]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))))
@ -45,7 +45,7 @@
(assoc-in [:shapes-by-id 4] {:id 4 :name "3" :page 1 :group 1})
(assoc-in [:shapes-by-id 5] {:id 5 :name "2" :page 1 :group 1}))]
(with-redefs [uuid.core/random (constantly-inc 4)]
(let [result (ssh/duplicate-shapes initial [2 3])]
(let [result (sh/duplicate-shapes initial [2 3])]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))))
@ -66,7 +66,7 @@
(assoc-in [:shapes-by-id 5] {:id 5 :name "4" :page 1})
(assoc-in [:shapes-by-id 6] {:id 6 :name "3" :page 1}))]
(with-redefs [uuid.core/random (constantly-inc 5)]
(let [result (ssh/duplicate-shapes initial [3 4])]
(let [result (sh/duplicate-shapes initial [3 4])]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))))
@ -87,7 +87,7 @@
:items [4]})
(assoc-in [:shapes-by-id 4] {:id 4 :page 1 :group 3}))]
(with-redefs [uuid.core/random (constantly-inc 3)]
(let [result (ssh/duplicate-shapes initial [1])]
(let [result (sh/duplicate-shapes initial [1])]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))))
@ -103,7 +103,7 @@
2 {:id 2 :page 1}
3 {:id 3 :page 1}}}
expected (assoc-in initial [:pages-by-id 1 :shapes] [3 1 2])
result (ssh/drop-shape initial 3 1 :before)]
result (sh/drop-shape initial 3 1 :before)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))
@ -116,7 +116,7 @@
2 {:id 2 :page 1}
3 {:id 3 :page 1}}}
expected (assoc-in initial [:pages-by-id 1 :shapes] [1 3 2])
result (ssh/drop-shape initial 3 1 :after)]
result (sh/drop-shape initial 3 1 :after)]
(t/is (= result expected))
(t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
@ -133,7 +133,7 @@
(assoc-in [:pages-by-id 1 :shapes] [1 4])
(assoc-in [:shapes-by-id 1 :items] [3 2])
(assoc-in [:shapes-by-id 3 :group] 1))
result (ssh/drop-shape initial 3 2 :before)]
result (sh/drop-shape initial 3 2 :before)]
(t/is (= result expected))
(t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
@ -150,7 +150,7 @@
(assoc-in [:pages-by-id 1 :shapes] [1 4])
(assoc-in [:shapes-by-id 1 :items] [2 3])
(assoc-in [:shapes-by-id 3 :group] 1))
result (ssh/drop-shape initial 3 1 :inside)]
result (sh/drop-shape initial 3 1 :inside)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))
@ -169,7 +169,7 @@
(assoc-in [:pages-by-id 1 :shapes] [1 4 3])
(assoc-in [:shapes-by-id 1 :items] [2])
(update-in [:shapes-by-id 3] dissoc :group))
result (ssh/drop-shape initial 3 4 :after)]
result (sh/drop-shape initial 3 4 :after)]
(t/is (= result expected))
(t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
@ -188,7 +188,7 @@
(assoc-in [:pages-by-id 1 :shapes] [1])
(assoc-in [:shapes-by-id 1 :items] [3 2])
(assoc-in [:shapes-by-id 2 :group] 1))
result (ssh/drop-shape initial 2 3 :after)]
result (sh/drop-shape initial 2 3 :after)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))
@ -210,7 +210,7 @@
(assoc-in [:pages-by-id 1 :shapes] [2 3])
(update-in [:shapes-by-id] dissoc 1)
(update-in [:shapes-by-id 2] dissoc :group))
result (ssh/drop-shape initial 2 1 :after)]
result (sh/drop-shape initial 2 1 :after)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))
@ -234,7 +234,7 @@
(assoc-in [:pages-by-id 1 :shapes] [1 5])
(update-in [:shapes-by-id 2 :items] conj 6)
(update-in [:shapes-by-id 6] assoc :group 2))
result (ssh/drop-shape initial 6 4 :after)]
result (sh/drop-shape initial 6 4 :after)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
@ -258,7 +258,7 @@
(assoc-in [:shapes-by-id 2 :items] [3 4 6])
(assoc-in [:shapes-by-id 1 :items] [2 5])
(update-in [:shapes-by-id 6] assoc :group 2))
result (ssh/drop-shape initial 6 4 :after)]
result (sh/drop-shape initial 6 4 :after)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
@ -282,7 +282,7 @@
expected (-> initial
(assoc-in [:pages-by-id 1 :shapes] [1 3])
(update-in [:shapes-by-id] dissoc 4))
result (ssh/dissoc-shape initial shape)]
result (sh/dissoc-shape initial shape)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
@ -301,7 +301,7 @@
(assoc-in [:pages-by-id 1 :shapes] [3 4])
(update-in [:shapes-by-id] dissoc 2)
(update-in [:shapes-by-id] dissoc 1))
result (ssh/dissoc-shape initial shape)]
result (sh/dissoc-shape initial shape)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
@ -326,7 +326,7 @@
:items [2] :id 4 :page 1}))]
(with-redefs [uuid.core/random (constantly 4)
cljs.core/rand-int (constantly 10)]
(let [result (ssh/group-shapes initial [2] 1)]
(let [result (sh/group-shapes initial [2] 1)]
(t/is (= result expected))))))
@ -347,7 +347,7 @@
:items [2 3] :id 4 :page 1}))]
(with-redefs [uuid.core/random (constantly 4)
cljs.core/rand-int (constantly 10)]
(let [result (ssh/group-shapes initial [2 3] 1)]
(let [result (sh/group-shapes initial [2 3] 1)]
(t/is (= result expected))))))
@ -368,7 +368,7 @@
:items [2 3] :id 4 :page 1}))]
(with-redefs [uuid.core/random (constantly 4)
cljs.core/rand-int (constantly 10)]
(let [result (ssh/group-shapes initial [2 3] 1)]
(let [result (sh/group-shapes initial [2 3] 1)]
(t/is (= result expected))))))
@ -389,7 +389,7 @@
:items [2] :id 4 :page 1 :group 3}))]
(with-redefs [uuid.core/random (constantly 4)
cljs.core/rand-int (constantly 10)]
(let [result (ssh/group-shapes initial [2] 1)]
(let [result (sh/group-shapes initial [2] 1)]
(t/is (= result expected))))))
;; group shapes in multiple groups
@ -412,7 +412,7 @@
(update-in [:shapes-by-id] dissoc 4))]
(with-redefs [uuid.core/random (constantly 5)
cljs.core/rand-int (constantly 10)]
(let [result (ssh/group-shapes initial [1 2] 1)]
(let [result (sh/group-shapes initial [1 2] 1)]
(t/is (= result expected))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -435,7 +435,7 @@
(update-in [:shapes-by-id 1] dissoc :group)
(update-in [:shapes-by-id 2] dissoc :group)
(update-in [:shapes-by-id] dissoc 3))]
(let [result (ssh/degroup-shapes initial [3] 1)]
(let [result (sh/degroup-shapes initial [3] 1)]
(t/is (= result expected)))))
@ -453,7 +453,7 @@
(update-in [:shapes-by-id] dissoc 2)
(assoc-in [:shapes-by-id 1 :items] [3])
(assoc-in [:shapes-by-id 3 :group] 1))]
(let [result (ssh/degroup-shapes initial [2] 1)]
(let [result (sh/degroup-shapes initial [2] 1)]
(t/is (= result expected)))))
;; degroup multiple groups not nested
@ -472,7 +472,7 @@
(update :shapes-by-id dissoc 2)
(update-in [:shapes-by-id 3] dissoc :group)
(update-in [:shapes-by-id 4] dissoc :group))]
(let [result (ssh/degroup-shapes initial [1 2] 1)]
(let [result (sh/degroup-shapes initial [1 2] 1)]
(t/is (= result expected)))))
;; degroup multiple groups nested (child first)
@ -489,7 +489,7 @@
(update :shapes-by-id dissoc 1)
(update :shapes-by-id dissoc 2)
(update-in [:shapes-by-id 3] dissoc :group))]
(let [result (ssh/degroup-shapes initial [2 1] 1)]
(let [result (sh/degroup-shapes initial [2 1] 1)]
(t/is (= result expected)))))
;; degroup multiple groups nested (parent first)
@ -506,5 +506,5 @@
(update :shapes-by-id dissoc 1)
(update :shapes-by-id dissoc 2)
(update-in [:shapes-by-id 3] dissoc :group))]
(let [result (ssh/degroup-shapes initial [1 2] 1)]
(let [result (sh/degroup-shapes initial [1 2] 1)]
(t/is (= result expected)))))