Разница в один день при сохранении в базе данных

Question

В моей базе данных есть столбец dob:

|    dob     |
+------------+
| 1935-06-05 |

Для TDD я проверяю базу данных H2 в памяти, используя korma и lobos:

(:use (lobos [migration :only [defmigration]] core schema config)
( :require [korma.core :as k] )

(defmigration create-table-readings
  (up [] (create
           (table :readings
                  (date :dob :not-null)
                  )))
  (down [] (drop
             (table :readings))))

(defn insert 
  [row]
  (k/insert readings (k/values row)))

У меня есть вспомогательная функция для преобразования в и из строк даты:

 (:require 
    [clj-time.core :as t]
    [clj-time.format :as f]
    [clj-time.coerce :as c])

(def custom-formatter (f/formatter "yyyy-MM-dd"))

(defn from-sql-to-string
  "formats date from sql date to string"
  [sql-time]
  (f/unparse custom-formatter 
             (c/from-sql-date sql-time)))

(defn from-string-to-sql
  "formats date string and returns sql date"
  [string-time]
  (c/to-sql-date string-time))

тем не менее, когда я тестирую хранилище и получаю каким-либо образом, я всегда получаю разницу в один день между датами:

(deftest database-insert-tests
  (testing "Testing simple insert"
           (let [test-row { :dob "1935-06-05" }]
             (database/insert test-row)
             (let [first-row (first (database/select-all))]
               (is (= test-row
                      (assoc first-row
                             :dob 
                             (t/from-sql-to-string (:dob first-row)))
                      ))))))

FAIL: фактический: (не (= {:dob "1935-06-05" } {:dob "1935-06-04" }))