Fix inflation of timestamps to use round instead of floor.

fukamachi · Jun 9, 2017 · 0e20e0f · 0e20e0f
1 parent 2ace5f3
commit 0e20e0f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/core/dao/column.lisp b/src/core/dao/column.lisp
@@ -63,7 +63,7 @@
       (float
        (multiple-value-bind (sec nsec)
            (truncate value)
-         (local-time:universal-to-timestamp sec :nsec (* (floor (* nsec 1000000)) 1000))))
+         (local-time:universal-to-timestamp sec :nsec (* (round (* nsec 1000000)) 1000))))
       (string
        (local-time:parse-timestring value :date-time-separator #\Space))
       (null nil)))

diff --git a/t/dao.lisp b/t/dao.lisp
@@ -252,7 +252,7 @@
     (mito:create-dao 'user :registered-at now)
     (let ((user (mito:find-dao 'user :id 1)))
       (is-type (slot-value user 'registered-at) 'local-time:timestamp)
-      (ok (/= (local-time:nsec-of (slot-value user 'registered-at)) 0))))
+      (ok (/= 0 (local-time:nsec-of (slot-value user 'registered-at))))))
   (disconnect-toplevel))
 
 (finalize)