                            ~expected)
                        (with-driver ~driver-name
                          ~actual))])
-                 valid-driver-names)))
+                 @driver-names-to-test)))
 
 
 ;; ##  Driver-Independent Data Fns

  {:mongo       (MongoDriverData.)
   :generic-sql (GenericSqlDriverData.)})

(def valid-driver-names
  "Set of valid driver name keywords."
  (set (keys driver-name->driver-dataset)))

(defmacro with-driver
  "Execute BODY with `*db*` and `*db-id*` bound to appropriate places for "
  [driver-name & body]
  {:pre [(keyword? driver-name)
         (contains? valid-driver-names driver-name)]}
  `(let [driver-data# (driver-name->driver-dataset ~driver-name)
         db#          (db driver-data#)]
     (binding [*driver-dataset* driver-data#

(def ^:dynamic *db-id*
  "Bound to ID of `Database` for the current driver inside body of `with-driver`.")
(def ^:dynamic *driver-dataset*)

;; ### IDriverDataset + Implementations

(defprotocol IDriverDataset
  "Functions needed to fetch test data for various drivers."
