 (def db-id
   "The ID of the test `Database`."
   (delay (assert @test-db)
-         (let [{id :id} @test-db]
-           (assert (integer? id))
-           id)))
+         (:id @test-db)))
 
 (defn field->id
   "Return the ID of a Field with FIELD-NAME belonging to Table with TABLE-NAME.

(def org-id
  "The ID of the test Organization."
  (delay (assert @test-org)
         (let [{id :id} @test-org]
           (assert (integer? id))
           id)))


;; ## Test Users

  [table-name field-name]
  {:pre [(keyword? table-name)
         (keyword? field-name)]
   :post [(integer? %)
          (not (zero? %))]}
  (-> @table-fields table-name field-name))

