check_snowflake_redshift_switch <- function(wh="cron_jobs_small", cluster=4, verbose=TRUE) {
  .qry.test <- "SELECT download_activity_date, labelid from production.fact_analytics limit 3"

  catheader("Confirming can swtich between snowflake and redshift", prel=3, endl=1)

  setSnowflake(wh=wh)
  DT.sf <- sfQry(.qry.test)

  setCluster(cluster=cluster)
  message("snowflake_inuse is : ", getOption("snowflake_inuse"))
  DT.rs <- runQry(.qry.test)

  catn("\n\n\t        --------------------------------------------------------\n\n")

  setSnowflake(wh=wh)
  DT.sf <- sfQry(.qry.test)

  setDBall(cluster=cluster)
  message("snowflake_inuse is : ", getOption("snowflake_inuse"))
  DT.rs <- runQry(.qry.test)


  catheader("  ^^^^^^^   Done Confirming   ^^^^^^^  ", prel=1, endl=3)

  return(list(DT.sf=DT.sf, DT.rs=DT.rs))
}