Permalink
Browse files

Made the possible commands test make an exception

  • Loading branch information...
1 parent 25efc70 commit b77d7064c2cb490d55d48ee33337fa5122c4bd9f London Clojure Dojo committed Oct 26, 2010
Showing with 2 additions and 2 deletions.
  1. +1 −1 src/clork.clj
  2. +1 −1 test/clork_test.clj
View
@@ -19,7 +19,7 @@
(defn find-mobile [world mobile]
(:location (mobile (:mobiles world))))
-(defn look [world player]
+(defn ^{:help "(play look)"}look [world player]
(let [curr-room-name (get-in world [:players player :location])
curr-room (get-in world [:rooms curr-room-name])
room-desc (:description curr-room)
View
@@ -51,7 +51,7 @@
(is (= { :location :hall :items []} (find-player *test-world* :player1))))
(deftest only-possible-commands
- (is 1 (count (possible-commands))))
+ (is (= 2 (count (possible-commands)))))
(deftest transfer-items-test
(let [chest (struct container "Sturdy chest" [])

0 comments on commit b77d706

Please sign in to comment.