okay that didn't work

src/metabase/sync/fetch_metadata.clj

@@ -5,15 +5,22 @@
   (:require
    [metabase.driver :as driver]
    [metabase.driver.sql-jdbc.sync :as sql-jdbc.sync]
+   [metabase.driver.sql.test-util.unique-prefix :as sql.tu.unique-prefix]
    [metabase.driver.util :as driver.u]
    [metabase.sync.interface :as i]
+   [metabase.util :as u]
    [metabase.util.malli :as mu]
    [metabase.util.malli.fn :as mu.fn]))
 
 (mu/defn db-metadata :- i/DatabaseMetadata
   "Get basic Metadata about a `database` and its Tables. Doesn't include information about the Fields."
   [database :- i/DatabaseInstance]
-  (driver/describe-database (driver.u/database->driver database) database))
+  (u/prog1 (driver/describe-database (driver.u/database->driver database) database)
+    (when (= (driver.u/database->driver database)
+             :redshift)
+      (assert (->> (:tables <>)
+                   (keep :schema)
+                   (every? #{(str (sql.tu.unique-prefix/unique-prefix) "schema") "spectrum"}))))))
 
 (mu/defn fields-metadata
   "Effectively a wrapper for [[metabase.driver/describe-fields]] that also validates the output against the schema."

test/metabase/driver/sql/test_util/unique_prefix.clj

@@ -41,7 +41,7 @@
   ([local-date]
    {:pre [(instance? java.time.LocalDate local-date)]}
    (-> (format "%s_%s_" local-date (public-settings/site-uuid))
-       (str/replace  #"-" "_"))))
+         (str/replace  #"-" "_"))))
 
 (def ^{:arglists '([])} unique-prefix
   "Unique prefix for test datasets for this instance. Format is `<current-date-utc>_<site-uuid>_`. See comments above.