nostr/more-speech
1
0
Fork 0
mirror of https://github.com/unclebob/more-speech.git synced 2024-09-30 02:21:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add some unit tests that would have helped me through my previous headache.

Browse Source
This commit is contained in:
Robert C. Martin 2022-02-26 11:27:23 -06:00
parent 91a821a73c
commit 44af6bcf9a
1 changed files with 41 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
spec/more_speech/ui/widget_spec.clj
View File

@ -1,7 +1,8 @@
(ns more-speech.ui.widget-spec
(:require [speclj.core :refer :all]
[more-speech.ui.application :refer [map->application]]
[more-speech.ui.widget :refer :all]))
[more-speech.ui.widget :refer :all]
[more-speech.ui.graphics :as g]))
(defrecord child []
widget
@ -171,6 +172,11 @@
(should-be-nil (:w1 frame))
(should= {:x :not-widget} frame))))
(defrecord mock-graphics [x y]
g/graphics
(get-mouse [_graphics]
[x y :left]))
(describe "mouse operations"
(context "find mouse target"
(it "does not return a target if there are no application widgets."
@ -201,8 +207,8 @@
(it "finds deepest child containing the mouse."
(let [widget1 (->mock-widget 10 10 10 10)
widget2 (->mock-widget 30 10 20 20)
widget2-1 (->mock-widget 35 15 5 5)
widget2 (assoc widget2 :w2-1 widget2-1);
widget2-1 (->mock-widget 35 15 5 5)
widget2 (assoc widget2 :w2-1 widget2-1) ;
application (map->application {:path [:application] :w1 widget1 :w2 widget2})
state {:application application}
state (setup-child-widgets application state)
@ -210,5 +216,37 @@
target (find-deepest-mouse-target application 36 16)]
(should= [:application :w2 :w2-1] (:path target)))
)
(it "finds deepest responder"
(let [widget1 (->mock-widget 10 10 10 10)
widget2 (->mock-widget 30 10 20 20)
widget2-1 (->mock-widget 35 15 5 5)
widget2 (assoc widget2 :w2-1 widget2-1
:responder :place-holder)
application (map->application {:path [:application]
:graphics (->mock-graphics 36 16)
:w1 widget1 :w2 widget2})
state {:application application}
state (setup-child-widgets application state)
target (find-mouse-responder state :responder)]
(should= [:application :w2] (:path target)))
)
(it "finds locked responder"
(let [widget1 (->mock-widget 10 10 10 10)
widget2 (->mock-widget 30 10 20 20)
widget2-1 (->mock-widget 35 15 5 5)
widget1 (assoc widget1 :responder :place-holder)
widget2 (assoc widget2 :w2-1 widget2-1
:responder :place-holder)
application (map->application {:path [:application]
:graphics (->mock-graphics 36 16)
:mouse-locked-to [:application :w1]
:w1 widget1 :w2 widget2})
state {:application application}
state (setup-child-widgets application state)
target (find-mouse-responder state :responder)]
(should= [:application :w1] (:path target)))
)
)
)