etl.clj

(defn set-default-timezone
  "Why: because when we read the data out of Redshift, the java.sql.Timestamps
   that are retrieved will pickup the (TimeZone/getDefault).

  This kind of thing must also be done in any reporting that pulls this data.
  At which time should be calling to that production code instead of this test
  setup HACK."
  [test-fn]
  (let [original-tz (TimeZone/getDefault)]
    (try
      (TimeZone/setDefault (TimeZone/getTimeZone "UTC"))
      (test-fn)
      (finally
        (TimeZone/setDefault original-tz)))))