transitivity tests

Author: frenchy64

test/java_time/api_test.clj

@@ -903,6 +903,8 @@
       (testing "transitivity"
         (let [interval-1-2 (j/interval 1 2)
               interval-3-4 (j/interval 3 4)
+              interval-1-4 (j/interval 1 4)
+              interval-2-3 (j/interval 2 3)
               interval-1-3 (j/interval 1 3)
               instant-1 (j/instant 1)
               instant-2 (j/instant 2)
@@ -924,10 +926,20 @@
           (is (not (j/before? interval-1-3 instant-1)))
           (is (not (= interval-1-3 instant-1)))
           (is (not (j/<= interval-1-3 instant-1)))
+          (is (not (j/<= interval-1-3 instant-1)))
           (is (not (j/<= instant-1 interval-1-3)))
           (is (not (j/>= interval-1-3 instant-1)))
           (is (not (j/>= instant-1 interval-1-3)))
-          (is (not (j/<= instant-1 interval-1-3 instant-3)))))
+          (is (not (j/<= instant-1 interval-1-3 instant-3)))
+          (is (not (= interval-1-4 interval-2-3)))
+          (is (not (j/< interval-1-4 interval-2-3)))
+          (is (not (j/< interval-2-3 interval-1-4)))
+          (is (not (j/> interval-1-4 interval-2-3)))
+          (is (not (j/> interval-2-3 interval-1-4)))
+          (is (not (j/<= interval-1-4 interval-2-3)))
+          (is (not (j/<= interval-2-3 interval-1-4)))
+          (is (not (j/>= interval-1-4 interval-2-3)))
+          (is (not (j/>= interval-2-3 interval-1-4)))))
       (is-asymmetric (j/before? (j/interval 1000 2000) (j/instant 5000)))
       (testing "exclusive end"
         (is-asymmetric (j/before? (j/interval 1000 5000) (j/instant 5000)))