testing "times" using new style

Author: brettrowberry

test/java_time_test.clj

@@ -416,23 +416,83 @@
       (is (j/not-before? dt+5 dt))
       (is (not (j/not-before? dt dt+5))))
 
-    (is (j/after? (j/local-date clock) (j/minus (j/local-date clock) (j/days 5))))
-    (is (j/before? (j/local-date clock) (j/plus (j/local-date clock) (j/days 5))))
+    (let [dt (j/local-date clock)
+          dt+5 (j/plus dt (j/days 5))]
+      (is (j/after? dt+5 dt))
+      (is (not (j/after? dt dt+5)))
+      (is (j/before? dt dt+5))
+      (is (not (j/before? dt+5 dt)))
+      (is (j/not-after? dt dt))
+      (is (j/not-after? dt dt+5))
+      (is (not (j/not-after? dt+5 dt)))
+      (is (j/not-before? dt dt))
+      (is (j/not-before? dt+5 dt))
+      (is (not (j/not-before? dt dt+5))))
 
-    (is (j/after? (j/local-time clock) (j/minus (j/local-time clock) (j/minutes 5))))
-    (is (j/before? (j/local-time clock) (j/plus (j/local-time clock) (j/minutes 5))))
+    (let [dt (j/local-time clock)
+          dt+5 (j/plus dt (j/minutes 5))]
+      (is (j/after? dt+5 dt))
+      (is (not (j/after? dt dt+5)))
+      (is (j/before? dt dt+5))
+      (is (not (j/before? dt+5 dt)))
+      (is (j/not-after? dt dt))
+      (is (j/not-after? dt dt+5))
+      (is (not (j/not-after? dt+5 dt)))
+      (is (j/not-before? dt dt))
+      (is (j/not-before? dt+5 dt))
+      (is (not (j/not-before? dt dt+5))))
 
-    (is (j/after? (j/zoned-date-time clock) (j/minus (j/zoned-date-time clock) (j/minutes 5))))
-    (is (j/before? (j/zoned-date-time clock) (j/plus (j/zoned-date-time clock) (j/minutes 5))))
+    (let [dt (j/zoned-date-time clock)
+          dt+5 (j/plus dt (j/minutes 5))]
+      (is (j/after? dt+5 dt))
+      (is (not (j/after? dt dt+5)))
+      (is (j/before? dt dt+5))
+      (is (not (j/before? dt+5 dt)))
+      (is (j/not-after? dt dt))
+      (is (j/not-after? dt dt+5))
+      (is (not (j/not-after? dt+5 dt)))
+      (is (j/not-before? dt dt))
+      (is (j/not-before? dt+5 dt))
+      (is (not (j/not-before? dt dt+5))))
 
-    (is (j/after? (j/offset-date-time clock) (j/minus (j/offset-date-time clock) (j/minutes 5))))
-    (is (j/before? (j/offset-date-time clock) (j/plus (j/offset-date-time clock) (j/minutes 5))))
+    (let [dt (j/offset-date-time clock)
+          dt+5 (j/plus dt (j/minutes 5))]
+      (is (j/after? dt+5 dt))
+      (is (not (j/after? dt dt+5)))
+      (is (j/before? dt dt+5))
+      (is (not (j/before? dt+5 dt)))
+      (is (j/not-after? dt dt))
+      (is (j/not-after? dt dt+5))
+      (is (not (j/not-after? dt+5 dt)))
+      (is (j/not-before? dt dt))
+      (is (j/not-before? dt+5 dt))
+      (is (not (j/not-before? dt dt+5))))
 
-    (is (j/after? (j/offset-time clock) (j/minus (j/offset-time clock) (j/minutes 5))))
-    (is (j/before? (j/offset-time clock) (j/plus (j/offset-time clock) (j/minutes 5))))
+    (let [dt (j/offset-time clock)
+          dt+5 (j/plus dt (j/minutes 5))]
+      (is (j/after? dt+5 dt))
+      (is (not (j/after? dt dt+5)))
+      (is (j/before? dt dt+5))
+      (is (not (j/before? dt+5 dt)))
+      (is (j/not-after? dt dt))
+      (is (j/not-after? dt dt+5))
+      (is (not (j/not-after? dt+5 dt)))
+      (is (j/not-before? dt dt))
+      (is (j/not-before? dt+5 dt))
+      (is (not (j/not-before? dt dt+5))))
 
-    (is (j/after? (j/instant clock) (j/minus (j/instant clock) (j/minutes 5))))
-    (is (j/before? (j/instant clock) (j/plus (j/instant clock) (j/minutes 5)))))
+    (let [dt (j/instant clock)
+          dt+5 (j/plus dt (j/minutes 5))]
+      (is (j/after? dt+5 dt))
+      (is (not (j/after? dt dt+5)))
+      (is (j/before? dt dt+5))
+      (is (not (j/before? dt+5 dt)))
+      (is (j/not-after? dt dt))
+      (is (j/not-after? dt dt+5))
+      (is (not (j/not-after? dt+5 dt)))
+      (is (j/not-before? dt dt))
+      (is (j/not-before? dt+5 dt))
+      (is (not (j/not-before? dt dt+5)))))
 
   (testing "clocks"
     (is (j/after? (j/fixed-clock 1000) (j/fixed-clock 0)))