blob: f75910555186ab9414f5eb4c9daae7d25d493812 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(import ../date)
(def now (date/time))
(assert (date/time? now))
(def gmt (:gmtime now))
(def loc (:localtime now))
(assert (date/tm? gmt))
(assert (date/tm? loc))
(assert (= (:mktime loc) (:timegm gmt)))
(def before (date/update-time* now {:sec -1 :min dec}))
(def after (date/update-time* now {:sec 61 :min inc}))
(assert (> after now before))
|
