 
      :truncate-on-close (if (nil? truncate-on-close)
                           true
-                          truncate-on-close)})))
+                          truncate-on-close)
+     :trace? trace?})))

  (reset-spy-log [_] (reset! spy-log-atom [])))

(defnk create-spy-session
  [contact-points datacenter keyspace {truncate-on-close nil} :as args]
  (with-context deferred-context
    (mlet [datastax-session (create-alia-session* (dissoc args :truncate-on-close))
           :let [spy-session (->AliaSpySession
                              keyspace
                              datastax-session
                              (atom [])
                              truncate-on-close)]]
      (return
       [spy-session
        (fn [] (s/close spy-session))]))))

;; a test-session is just a spy-session which will initialise it's keyspace
;; if necesary and will truncate any used tables when closed
(defnk create-test-session
  [{contact-points nil}
   {port nil}
   {datacenter nil}
   {truncate-on-close nil}
   keyspace
   {trace? nil}
   :as args]
  (create-spy-session
   (merge
    args
