From 34fb6996ffe605a5861c94d0d7823ec06e6aaac0 Mon Sep 17 00:00:00 2001 From: Daniel Higginbotham Date: Wed, 9 May 2012 07:23:56 -0500 Subject: [PATCH] got tests working again --- tests.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tests.lisp b/tests.lisp index dfc9cb6..9c3dfa1 100644 --- 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)))