simon/swingbox-clj
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added unit tests

Browse source
This commit is contained in:
Simon Brooke 2019-06-15 14:18:56 +01:00
parent d71cc7a121
commit c85093d6ac
3 changed files with 50 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

31
test/swingbox_clj/core_test.clj
View file

@ -2,6 +2,31 @@
(:require [clojure.test :refer :all]
[swingbox-clj.core :refer :all]))
(deftest a-test
(testing "FIXME, I fail."
(is (= 0 1))))
(deftest create-window-test
(testing "Creating a window"
(let [expected true
actual (window? (create-window))] ;; no title
(is (= actual expected)))
(let [expected true
actual (window? (create-window "With title"))]
(is (= actual expected)))
))
(deftest is-window-test
(testing "window?"
(let [expected false
actual (window? {:foo :bar})]
(is (= actual expected) "Wrong keys"))
(let [expected false
actual (window? nil)]
(is (= actual expected) "Not a map at all"))
(let [expected false
actual (window? {:frame 7 :browser "Bingo"})]
(is (= actual expected) "Wrong values for right keys"))
(let [expected true
actual (window? (create-window))]
(is (= actual expected) "Right keys"))
(let [expected true
actual (window? (assoc (create-window) :foo "bar"))]
(is (= actual expected) "Additional keys are tolerated"))))