   [table-name field-name]
   {:pre [(keyword? table-name)
          (keyword? field-name)]
-   :post [(or (println % "<->" (type %))
-              true)
-          (integer? %)
+   :post [(integer? %)
           (not (zero? %))]}
   (-> @table-fields table-name field-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

(def db-id
  "The ID of the test `Database`."
  (delay (assert @test-db)
         (:id @test-db)))

(defn field->id
  "Return the ID of a Field with FIELD-NAME belonging to Table with TABLE-NAME.
