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
|
(ns clj-time.predicates-test
(:refer-clojure :exclude [extend second])
(:require [clojure.test :refer :all]
[clj-time [core :refer :all] [predicates :refer :all]]))
(deftest test-days-of-the-week
(is (= true (monday? (date-time 2012 9 10))))
(is (= true (tuesday? (date-time 2012 9 11))))
(is (= true (wednesday? (date-time 2012 9 12))))
(is (= true (thursday? (date-time 2012 9 13))))
(is (= true (friday? (date-time 2012 9 14))))
(is (= true (saturday? (date-time 2012 9 15))))
(is (= true (sunday? (date-time 2012 9 16))))
(is (= false (monday? (date-time 2012 9 16))))
(is (= true (weekend? (date-time 2012 9 15))))
(is (= true (weekend? (date-time 2012 9 16))))
(is (= false (weekend? (date-time 2012 9 10)))))
(deftest test-months-of-the-year
(is (= true (january? (date-time 2012 1 10))))
(is (= true (february? (date-time 2012 2 11))))
(is (= true (march? (date-time 2012 3 12))))
(is (= true (april? (date-time 2012 4 13))))
(is (= true (may? (date-time 2012 5 14))))
(is (= true (june? (date-time 2012 6 15))))
(is (= true (july? (date-time 2012 7 16))))
(is (= true (august? (date-time 2012 8 16))))
(is (= true (september? (date-time 2012 9 16))))
(is (= true (october? (date-time 2012 10 16))))
(is (= true (november? (date-time 2012 11 16))))
(is (= true (december? (date-time 2012 12 16))))
(is (= false (january? (date-time 2012 12 31)))))
(deftest test-first-day-of-the-month?
(is (= true (first-day-of-month? (date-time 2012 2 1))))
(is (= false (first-day-of-month? (date-time 2012 2 3)))))
(deftest test-last-day-of-the-month?
(is (= true (last-day-of-month? (date-time 2013 2 28))))
(is (= false (last-day-of-month? (date-time 2012 2 28))))
(is (= true (last-day-of-month? (date-time 2012 2 29))))
(is (= true (last-day-of-month? (date-time 2013 10 31)))))
(deftest test-nth-day-of-the-month?
(is (= true (nth-day-of-the-month? (date-time 2013 2 12) 12)))
(is (= false (nth-day-of-the-month? (date-time 2013 2 13) 12))))
(deftest test-same-date
(is (= true (same-date? (date-time 2013 10 8) (date-time 2013 10 8))))
(is (= true (same-date? (date-time 2012 1 1) (date-time 2012 1 1))))
(is (= false (same-date? (date-time 2012 2 2) (date-time 2012 1 1))))
(is (= false (same-date? (date-time 2011 2 2) (date-time 2012 2 2)))))
|
