notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add assertions

Browse Source
This commit is contained in:
oakes
2015-02-11 19:22:45 -05:00
parent d430c120ae
commit 8de6baeae2
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/play_clj/core.clj
View File

@@ -508,6 +508,12 @@ keywords and functions in pairs."
(set-screen! my-game main-screen text-screen)" (set-screen! my-game main-screen text-screen)"
[^Game game-object & screen-objects] [^Game game-object & screen-objects]
(assert (isa? (type game-object) Game)
"Attempted to set screen with an invalid game object.")
(doseq [screen screen-objects]
(assert (every? #(fn? (get screen %))
[:show :render :hide :pause :resize :resume])
"Attempted to set an invalid screen."))
(let [run-fn! (fn [k & args] (let [run-fn! (fn [k & args]
(doseq [screen screen-objects] (doseq [screen screen-objects]
(apply (get screen k) args)))] (apply (get screen k) args)))]