 (ns isla.test.story
   (:use [clojure.test])
   (:use [clojure.pprint])
-  (:use [isla.story]))
+  (:use [isla.story])
+  (:require [isla.interpreter :as interpreter]))
 
 ;; story creation
 

                        palace summary is '" summary "'")
        story (init-story story-str)]
    (is (= (get (:rooms story) "palace")
           (assoc (isla.interpreter/instantiate-type (get types "room"))
             :name "palace" :summary summary)))))

;; story telling

  (let [story-str (str "palace is a room")
        story (init-story story-str)]
    (is (= (get (:rooms story) "palace")
           (assoc (interpreter/instantiate-type (get types "room"))
             :name "palace")))))

(deftest test-player-alteration
  (let [story-str (str "my name is 'mary'")
        story (init-story story-str)]
    (is (= (:player story)
           (assoc (interpreter/instantiate-type (get types "_player"))
             :name "mary")))))

(deftest test-room-alteration
