mirror of
https://github.com/penpot/penpot.git
synced 2025-02-01 11:59:17 -05:00
17 lines
517 B
Text
17 lines
517 B
Text
|
;; This Source Code Form is subject to the terms of the Mozilla Public
|
||
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
||
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
||
|
|
;;
|
||
|
|
;; Copyright (c) KALEIDOS INC
|
||
|
|
|
||
|
|
(ns common-tests.time-test
|
||
|
|
(:require
|
||
|
|
[app.common.time :as dt]
|
||
|
|
[clojure.test :as t]))
|
||
|
|
|
||
|
|
(t/deftest compare-time
|
||
|
|
(let [dta (dt/parse-instant 10000)
|
||
|
|
dtb (dt/parse-instant 20000)]
|
||
|
|
(t/is (false? (dt/is-after? dta dtb)))
|
||
|
|
(t/is (true? (dt/is-before? dta dtb)))))
|