got tests working again

flyingmachine · May 9, 2012 · 34fb699 · 34fb699
1 parent 0a5f6c6
commit 34fb699
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests.lisp b/tests.lisp
@@ -23,7 +23,9 @@
 (defun test-attack ()
   (let ((attacker (make-body 'humanoid))
         (defender (make-body 'humanoid))
-        (weapon   (select-item "dagger")))
+        (weapon   (select-item "dagger"))
+        (room     (make-instance 'game-room)))
+    (move-to-room defender room)
     (attack attacker defender weapon)
     (look defender)))