Fake now() in Postgres for testing, in clojure.java.jdbc

fake-now.clj

(ns sql.fake-now
  "https://www.slideshare.net/justatheory/test-drivern-database-development slide 498"
  (:require
   [clojure.java.jdbc :as jdbc])
  (:import
   (org.joda.time DateTime)))

(defn set-now
  [db ^DateTime date]
  (jdbc/execute!
   db
   (format
    "create or replace function mock.now() returns timestamp with time zone as $$ select '%s'::timestamptz $$ language sql"
    date)))

(defn setup
  [db]
  (jdbc/execute! db "create schema if not exists mock")
  (jdbc/execute! db "set search_path to mock, public, pg_catalog"))