            :table_id (id :categories), :id (id :categories :name)}))
 
 ;; #### checkins
-(defn checkins-col [col]
+(defn checkins-col
+  "Return column information for the `checkins` column named by keyword COL."
+  [col]
   (case col
     :id       {:extra_info {}
                :special_type :id

                  :table_id (id :venues)
                  :id (id :venues :name)}))

(defn venues-cols []
  (mapv venue-col [:id :category_id :price :longitude :latitude :name]))

;; #### categories
(defn categories-col [col]
  (case col
    :id   {:extra_info {} :special_type :id, :base_type (id-field-type *driver-dataset*), :description nil, :name (format-name *driver-dataset* "id")
           :table_id (id :categories), :id (id :categories :id)}

    :IntegerField))

(deftype GenericSqlDriverData []
  IDriverDataset
  (db [_]
    @generic-sql-data/test-db)
  (table-name->table [_ table-name]
