           (insert (values (map (partial zipmap fields-for-insert) ; data rows look like [name last-login]
                                rows))))                           ; need to convert to {:name name :last_login last-login} for insert
       (println (format "Inserted %d rows." (count rows))))))
+
+(defn- create-and-populate-tables []
+  (with-test-db
+    (dorun (map create-and-populate-table
+                data/test-data))))

                             [org :refer [Org]]
                             [org-perm :refer [OrgPerm]])))

(declare create-table
         with-test-db)

(def ^:private db-name "Test Database")
(def ^:private org-name "Test Organization")

       (interpose ", ")
       (apply str)))

(defn- create-and-populate-table
  "Create a Table named TABLE-NAME and load its data."
  [[table-name {:keys [fields rows]}]]
  {:pre [(keyword? table-name)
