           doc-1 {:history_id my-history
                  :title "step 1"
                  :tool "quicksearch"
+                 :description "created slave1 with boba fett"
                  :stamp "testing"
                  :data {"foo" "bar" "quuxibility" 1.23}
                  }

          (is (= "changed the title" (:title retrieved))))
        (testing "Changed, and did not add a step"
          (is (= 2 (count all))))))))


(def db (atom (data/new-pooled-db db-spec)))

;; We set up and tear down by deleting everything in the database.
(defn drop-tables []
  (debug "Dropping tables...")
  (staircase.sql/drop-all-tables db-spec))

