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

(ns isla.test.story
  (:use [clojure.test])
  (:use [clojure.pprint])
  (:use [isla.story]))

;; story creation


  (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
