Add assertions

2015-02-11 19:22:45 -05:00
parent d430c120ae
commit 8de6baeae2
1 changed files with 6 additions and 0 deletions
--- a/src/play_clj/core.clj
+++ b/src/play_clj/core.clj
@@ -508,6 +508,12 @@ keywords and functions in pairs."

    (set-screen! my-game main-screen text-screen)"
  [^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]
                  (doseq [screen screen-objects]
                    (apply (get screen k) args)))]