   (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"))
+           (assoc (story-utils/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"))
+           (assoc (story-utils/instantiate-type (get types "_player"))
              :name "mary")))))
 
 (deftest test-room-alteration

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

(deftest test-room-connection

                        palace exit is garden")
        story (init-story story-str)]
    (is (= (get (:rooms story) "palace")
           (assoc (story-utils/instantiate-type (get types "room"))
             :name "palace"
             :exit (story-utils/instantiate-type (get types "room")))))))

;; story telling

