diff --git a/test/metabase/test_data.clj b/test/metabase/test_data.clj index 82eba96d058a650af0cfdf7f0ccf2a3f1731dc19..d42af92e19b550e89eb85c897397e8a7375054cd 100644 --- a/test/metabase/test_data.clj +++ b/test/metabase/test_data.clj @@ -164,12 +164,12 @@ :private true} tables (delay + @test-db ; force lazy evaluation of Test DB (binding [*log-db-calls* false] - (letfn [(table-kw->table-id [table-kw] - (->> (-> table-kw name .toUpperCase) - (sel :one [Table :id] :db_id @db-id :name) - :id))] - (map-table-kws table-kw->table-id))))) + (map-table-kws (fn [table-kw] + (->> (-> table-kw name .toUpperCase) + (sel :one [Table :id] :db_id @db-id :name) + :id)))))) (def ^{:doc "A map of Table name keywords -> map of Field name keywords -> Field IDs. @@ -180,16 +180,16 @@ :private true} table-fields (delay + @test-db ; force lazy evaluation of Test DB (binding [*log-db-calls* false] - (letfn [(table-kw->fields [table-kw] - (->> (sel :many [Field :name :id] :table_id (@tables table-kw)) - (map (fn [{:keys [^String name id]}] - {:pre [(string? name) - (integer? id) - (not (zero? id))]} - {(keyword (.toLowerCase name)) id})) - (reduce merge {})))] - (map-table-kws table-kw->fields))))) + (map-table-kws (fn [table-kw] + (->> (sel :many [Field :name :id] :table_id (@tables table-kw)) + (map (fn [{:keys [^String name id]}] + {:pre [(string? name) + (integer? id) + (not (zero? id))]} + {(keyword (.toLowerCase name)) id})) + (reduce merge {}))))))) ;; ## Users