From f295bbf20d5279161fbe0aac7d40ce3b13e7503d Mon Sep 17 00:00:00 2001
From: oakes <zsoakes@gmail.com>
Date: Tue, 31 Dec 2013 19:44:43 -0500
Subject: [PATCH] Add assertions

---
 common/src/play_clj/core_2d.clj     | 5 +++--
 common/src/play_clj/core_render.clj | 5 +++++
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/common/src/play_clj/core_2d.clj b/common/src/play_clj/core_2d.clj
index ec73091..24da536 100644
--- a/common/src/play_clj/core_2d.clj
+++ b/common/src/play_clj/core_2d.clj
@@ -7,8 +7,9 @@
 (defmethod sprite-batch nil [screen]
   (SpriteBatch.))
 
-(defmethod sprite-batch BatchTiledMapRenderer [screen]
-  (.getSpriteBatch (:renderer screen)))
+(defmethod sprite-batch BatchTiledMapRenderer [{:keys [renderer]}]
+  (assert renderer)
+  (.getSpriteBatch renderer))
 
 (defn draw! [screen entities]
   (let [batch (sprite-batch screen)]
diff --git a/common/src/play_clj/core_render.clj b/common/src/play_clj/core_render.clj
index 1e37f21..70ae1db 100644
--- a/common/src/play_clj/core_render.clj
+++ b/common/src/play_clj/core_render.clj
@@ -14,16 +14,19 @@
 
 (defn render-tiled-map!
   [{:keys [^BatchTiledMapRenderer renderer ^Camera camera]}]
+  (assert (and renderer camera))
   (doto renderer
     (.setView camera)
     .render))
 
 (defn tiled-map-layer
   [{:keys [^BatchTiledMapRenderer renderer]} layer]
+  (assert renderer)
   (-> renderer .getMap .getLayers (.get layer)))
 
 (defn tiled-map-cell
   [{:keys [^BatchTiledMapRenderer renderer] :as screen} layer x y]
+  (assert renderer)
   (-> (if (or (string? layer) (number? layer))
         (tiled-map-layer screen layer)
         layer)
@@ -55,10 +58,12 @@
 
 (defn resize-camera!
   [{:keys [^Camera camera]} width height]
+  (assert camera)
   (.setToOrtho camera false width height))
 
 (defn move-camera!
   [{:keys [^Camera camera]} x y]
+  (assert camera)
   (when x (set! (. (. camera position) x) x))
   (when y (set! (. (. camera position) y) y))
   (.update camera))