1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
(ns clj-time.local-test
(:require [clojure.test :refer :all]
[clj-time [core :as time] [format :as fmt] [local :refer :all]]
[clj-time.core-test :refer [when-available when-not-available]])
(:import [org.joda.time DateTime]
[org.joda.time.format ISODateTimeFormat]
java.util.Date java.sql.Timestamp))
(deftest test-now
(is (= (time/from-time-zone (time/date-time 2010 1 1) (time/default-time-zone))
(time/do-at (time/from-time-zone (time/date-time 2010 1 1) (time/default-time-zone))
(local-now)))))
(deftest test-to-local-date-time
(is (nil? (to-local-date-time nil)))
(is (nil? (to-local-date-time "")))
(is (nil? (to-local-date-time "x")))
(is (= (time/from-time-zone (time/date-time 1998 4 25) (time/default-time-zone)) (to-local-date-time (time/date-time 1998 4 25))))
(is (= (time/to-time-zone (time/date-time 1998 4 25) (time/default-time-zone)) (to-local-date-time (Date. 893462400000))))
(is (= (time/to-time-zone (time/date-time 1998 4 25) (time/default-time-zone)) (to-local-date-time (java.sql.Date. 893462400000))))
(is (= (time/from-time-zone (time/date-time 1970 1 1) (time/default-time-zone)) (to-local-date-time 0)))
(is (= (time/from-time-zone (time/date-time 1998 4 25) (time/default-time-zone)) (to-local-date-time 893462400000)))
(is (= (time/to-time-zone (time/date-time 1998 4 25) (time/default-time-zone)) (to-local-date-time (Timestamp. 893462400000))))
(is (= (time/from-time-zone (time/date-time 1998 4 25) (time/default-time-zone)) (to-local-date-time "1998-04-25T00:00:00.000"))))
(deftest test-format-local-time
(is (nil? (format-local-time nil :basic-date-time)))
(is (nil? (format-local-time (local-now) ::bad-formatter)))
(is (nil? (format-local-time "bad-time" :basic-date-time)))
(is (nil? (format-local-time "bad-time" ::bad-formatter)))
(is (= (fmt/unparse (ISODateTimeFormat/basicDateTime) (time/from-time-zone (time/date-time 1998 4 25) (time/default-time-zone)))
(format-local-time (time/from-time-zone (time/date-time 1998 4 25) (time/default-time-zone)) :basic-date-time)))
(is (= (fmt/unparse (ISODateTimeFormat/basicDateTime) (time/from-time-zone (time/date-time 1998 4 25) (time/default-time-zone)))
(format-local-time (time/date-time 1998 4 25) :basic-date-time)))
(is (= (fmt/unparse (ISODateTimeFormat/basicDateTime) (time/to-time-zone (time/date-time 1998 4 25) (time/default-time-zone)))
(format-local-time (Date. 893462400000) :basic-date-time)))
(is (= (fmt/unparse (ISODateTimeFormat/basicDateTime) (time/to-time-zone (time/date-time 1998 4 25) (time/default-time-zone)))
(format-local-time (java.sql.Date. 893462400000) :basic-date-time)))
(is (= (fmt/unparse (ISODateTimeFormat/basicDateTime) (time/from-time-zone (time/date-time 1970 1 1) (time/default-time-zone)))
(format-local-time 0 :basic-date-time)))
(is (= (fmt/unparse (ISODateTimeFormat/basicDateTime) (time/from-time-zone (time/date-time 1998 4 25) (time/default-time-zone)))
(format-local-time 893462400000 :basic-date-time)))
(is (= (fmt/unparse (ISODateTimeFormat/basicDateTime) (time/to-time-zone (time/date-time 1998 4 25) (time/default-time-zone)))
(format-local-time (Timestamp. 893462400000) :basic-date-time)))
(is (= (fmt/unparse (ISODateTimeFormat/basicDateTime) (time/from-time-zone (time/date-time 1998 4 25) (time/default-time-zone)))
(format-local-time "1998-04-25T00:00:00.000" :basic-date-time))))
(deftest test-local-formatters
(letfn [(time-zone-fn [] (time/time-zone-for-offset -7))
(asserts []
(let [formatters {:mmddyyyy-slash (fmt/formatter "MM/dd/yyyy" (time/default-time-zone))
:mmddyyyy-hhmmss-slash (fmt/formatter "MM/dd/yyyy HH:mm:ss" (time/default-time-zone))}]
(binding [*local-formatters* formatters]
(is (= (time/time-zone-for-offset -7) (time/default-time-zone)))
(is (= "04/25/1998" (format-local-time (time/date-time 1998 4 25 11 59 1) :mmddyyyy-slash)))
(is (= "04/25/1998 11:59:01" (format-local-time (time/date-time 1998 4 25 11 59 1) :mmddyyyy-hhmmss-slash)))
(is (= (time/from-time-zone (time/date-time 1998 4 25 11 59 1) (time/default-time-zone))
(to-local-date-time "04/25/1998 11:59:01")))
(is (= (time/default-time-zone) (.getZone ^DateTime (to-local-date-time "04/25/1998 11:59:01")))))))]
(when-available
with-redefs
(with-redefs [time/default-time-zone time-zone-fn]
(asserts)))
(when-not-available
with-redefs
(binding [time/default-time-zone time-zone-fn]
(asserts)))))
|
