|
903 | 903 | (testing "transitivity" |
904 | 904 | (let [interval-1-2 (j/interval 1 2) |
905 | 905 | interval-3-4 (j/interval 3 4) |
| 906 | + interval-1-4 (j/interval 1 4) |
| 907 | + interval-2-3 (j/interval 2 3) |
906 | 908 | interval-1-3 (j/interval 1 3) |
907 | 909 | instant-1 (j/instant 1) |
908 | 910 | instant-2 (j/instant 2) |
|
924 | 926 | (is (not (j/before? interval-1-3 instant-1))) |
925 | 927 | (is (not (= interval-1-3 instant-1))) |
926 | 928 | (is (not (j/<= interval-1-3 instant-1))) |
| 929 | + (is (not (j/<= interval-1-3 instant-1))) |
927 | 930 | (is (not (j/<= instant-1 interval-1-3))) |
928 | 931 | (is (not (j/>= interval-1-3 instant-1))) |
929 | 932 | (is (not (j/>= instant-1 interval-1-3))) |
930 | | - (is (not (j/<= instant-1 interval-1-3 instant-3))))) |
| 933 | + (is (not (j/<= instant-1 interval-1-3 instant-3))) |
| 934 | + (is (not (= interval-1-4 interval-2-3))) |
| 935 | + (is (not (j/< interval-1-4 interval-2-3))) |
| 936 | + (is (not (j/< interval-2-3 interval-1-4))) |
| 937 | + (is (not (j/> interval-1-4 interval-2-3))) |
| 938 | + (is (not (j/> interval-2-3 interval-1-4))) |
| 939 | + (is (not (j/<= interval-1-4 interval-2-3))) |
| 940 | + (is (not (j/<= interval-2-3 interval-1-4))) |
| 941 | + (is (not (j/>= interval-1-4 interval-2-3))) |
| 942 | + (is (not (j/>= interval-2-3 interval-1-4))))) |
931 | 943 | (is-asymmetric (j/before? (j/interval 1000 2000) (j/instant 5000))) |
932 | 944 | (testing "exclusive end" |
933 | 945 | (is-asymmetric (j/before? (j/interval 1000 5000) (j/instant 5000))) |
|
0 commit comments