fixed tests broken by is-approx=, is-data-approx=, or the new random. Also updated all tests to use t/ instead of :refer :all.

Author: marke000

bin/kaocha

@@ -1,3 +1,3 @@
 #!/usr/bin/env bash
 
-clojure -M:test:test-clj-runner "$@"
+clojure -M:local:test:test-clj-runner "$@"

date.iml

@@ -22,12 +22,12 @@
     <orderEntry type="library" name="Deps: orchestra:2021.01.01-1" level="project" />
     <orderEntry type="library" name="Deps: org.clojure/tools.reader:1.5.0" level="project" />
     <orderEntry type="library" name="Deps: org.clojure/test.check:1.1.2" level="project" />
-    <orderEntry type="library" name="Deps: provisdom/test:07d497" level="project" />
     <orderEntry type="library" name="Deps: org.clojure/core.memoize:1.1.266" level="project" />
     <orderEntry type="library" name="Deps: org.clojure/data.priority-map:1.2.0" level="project" />
     <orderEntry type="library" name="Deps: org.clojure/core.cache:1.1.234" level="project" />
     <orderEntry type="library" name="Deps: org.clojure/core.async:1.8.741" level="project" />
     <orderEntry type="module" module-name="utility-belt" />
     <orderEntry type="module" module-name="math" />
+    <orderEntry type="module" module-name="test" />
   </component>
 </module>

deps.edn

@@ -5,6 +5,7 @@
            provisdom/utility-belt   {:git/url "https://github.com/Provisdom/utility-belt.git"
                                      :sha "c4bcc1478fa8d866baff56ec1bf5c4bb353c5353"}}
  :aliases {:local           {:override-deps {provisdom/math         {:local/root "../math"}
+                                             provisdom/test         {:local/root "../test"}
                                              provisdom/utility-belt {:local/root "../utility-belt"}}}
            :test            {:extra-paths ["test"]
                              :extra-deps  {orchestra/orchestra    {:mvn/version "2021.01.01-1"}

test/provisdom/date/instant_test.clj

@@ -5,7 +5,7 @@
     [orchestra.spec.test :as ost]
     [provisdom.date.instant :as instant]
     [provisdom.math.core :as m]
-    [provisdom.test.core :refer :all]))
+    [provisdom.test.core :as t]))
 
 ;2 seconds
 
@@ -15,109 +15,109 @@
 
 ;;;LEAP YEARS
 (deftest leap-year?-test
-  (is (spec-check instant/leap-year?))
+  (is (t/spec-check instant/leap-year?))
   (is (instant/leap-year? 2000))
-  (is-not (instant/leap-year? 2001))
+  (t/is-not (instant/leap-year? 2001))
   (is (instant/leap-year? 2004)))
 
 (deftest days-in-month-test
-  (is (spec-check instant/days-in-month))
-  (is= 31 (instant/days-in-month [2014 3]))
-  (is= 28 (instant/days-in-month [2014 2]))
-  (is= 31 (instant/days-in-month [2014 1]))
-  (is= 29 (instant/days-in-month [2004 2])))
+  (is (t/spec-check instant/days-in-month))
+  (t/is= 31 (instant/days-in-month [2014 3]))
+  (t/is= 28 (instant/days-in-month [2014 2]))
+  (t/is= 31 (instant/days-in-month [2014 1]))
+  (t/is= 29 (instant/days-in-month [2004 2])))
 
 (deftest days-until-month-test
-  (is (spec-check instant/days-until-month))
-  (is= 59 (instant/days-until-month [2014 3]))
-  (is= 31 (instant/days-until-month [2014 2]))
+  (is (t/spec-check instant/days-until-month))
+  (t/is= 59 (instant/days-until-month [2014 3]))
+  (t/is= 31 (instant/days-until-month [2014 2]))
   (is (zero? (instant/days-until-month [2014 1])))
-  (is= 31 (instant/days-until-month [2004 2])))
+  (t/is= 31 (instant/days-until-month [2004 2])))
 
 (deftest passed-leap-days-test
-  (is (spec-check instant/passed-leap-days))
-  (is= 2425 (instant/passed-leap-days [0 1] [9999 12]))
-  (is= -2425 (instant/passed-leap-days [9999 12] [0 1]))
-  (is= 124 (instant/passed-leap-days [1814 1] [2325 12]))
-  (is= -124 (instant/passed-leap-days [2325 12] [1814 1]))
-  (is= -13 (instant/passed-leap-days [2070 1] [2016 3]))
-  (is= -14 (instant/passed-leap-days [2070 1] [2014 2]))
-  (is= 2 (instant/passed-leap-days [2014 2] [2020 9]))
+  (is (t/spec-check instant/passed-leap-days))
+  (t/is= 2425 (instant/passed-leap-days [0 1] [9999 12]))
+  (t/is= -2425 (instant/passed-leap-days [9999 12] [0 1]))
+  (t/is= 124 (instant/passed-leap-days [1814 1] [2325 12]))
+  (t/is= -124 (instant/passed-leap-days [2325 12] [1814 1]))
+  (t/is= -13 (instant/passed-leap-days [2070 1] [2016 3]))
+  (t/is= -14 (instant/passed-leap-days [2070 1] [2014 2]))
+  (t/is= 2 (instant/passed-leap-days [2014 2] [2020 9]))
   (is (zero? (instant/passed-leap-days [2014 2] [2014 5])))
-  (is= 1 (instant/passed-leap-days [2000 1] [2000 3]))
-  (is= 1 (instant/passed-leap-days [2000 1] [2004 1]))
-  (is= 2 (instant/passed-leap-days [2000 1] [2004 3]))
-  (is= 2 (instant/passed-leap-days [2000 1] [2005 1]))
-  (is= 25 (instant/passed-leap-days [2000 1] [2100 1]))
-  (is= 25 (instant/passed-leap-days [2000 1] [2100 3]))
+  (t/is= 1 (instant/passed-leap-days [2000 1] [2000 3]))
+  (t/is= 1 (instant/passed-leap-days [2000 1] [2004 1]))
+  (t/is= 2 (instant/passed-leap-days [2000 1] [2004 3]))
+  (t/is= 2 (instant/passed-leap-days [2000 1] [2005 1]))
+  (t/is= 25 (instant/passed-leap-days [2000 1] [2100 1]))
+  (t/is= 25 (instant/passed-leap-days [2000 1] [2100 3]))
   (is (zero? (instant/passed-leap-days [2000 1] [1996 3])))
-  (is= -1 (instant/passed-leap-days [2000 1] [1996 1]))
-  (is= -24 (instant/passed-leap-days [2000 1] [1900 3]))
-  (is= -24 (instant/passed-leap-days [2000 1] [1900 1])))
+  (t/is= -1 (instant/passed-leap-days [2000 1] [1996 1]))
+  (t/is= -24 (instant/passed-leap-days [2000 1] [1900 3]))
+  (t/is= -24 (instant/passed-leap-days [2000 1] [1900 1])))
 
 ;;;INST
 #_(deftest inst$-test
-    (is (spec-check instant/inst$))
-    (is= #inst "2020-05-05T20:57:50.661-00:00"
+    (is (t/spec-check instant/inst$))
+    (t/is= #inst "2020-05-05T20:57:50.661-00:00"
          (instant/inst$)))
 
 (deftest inst->in-ms-test
-  (is (spec-check instant/inst->in-ms))
-  (is= 3155760000000
+  (is (t/spec-check instant/inst->in-ms))
+  (t/is= 3155760000000
        (instant/inst->in-ms #inst"2070-01-01T00:00:00.000-00:00"))
-  (is= 0
+  (t/is= 0
        (instant/inst->in-ms #inst"1970-01-01T00:00:00.000-00:00"))
-  (is= -62135769600000
+  (t/is= -62135769600000
        (instant/inst->in-ms #inst"0001-01-01T00:00:00.000-00:00"))
-  (is= 253402300799999
+  (t/is= 253402300799999
        (instant/inst->in-ms #inst"9999-12-31T23:59:59.999-00:00")))
 
 (deftest java-date->inst-by-bounding-test
-  (is (spec-check instant/java-date->inst-by-bounding))
-  (is= #inst"0000-01-01T00:00:00.000-00:00"
+  (is (t/spec-check instant/java-date->inst-by-bounding))
+  (t/is= #inst"0000-01-01T00:00:00.000-00:00"
        (instant/java-date->inst-by-bounding #inst"0000-01-01T00:00:00.000-00:00"))
-  (is= #inst"9999-12-31T23:59:59.999-00:00"
+  (t/is= #inst"9999-12-31T23:59:59.999-00:00"
        (instant/java-date->inst-by-bounding #inst"9999-12-31T23:59:59.999-00:00"))
-  (is= #inst"2070-01-01T00:00:00.000-00:00"
+  (t/is= #inst"2070-01-01T00:00:00.000-00:00"
        (instant/java-date->inst-by-bounding #inst"2070-01-01T00:00:00.000-00:00")))
 
 ;;;IN-MS
 #_(deftest in-ms$-test
-  (is (spec-check instant/in-ms$))
-  (is= 1588705104037 (instant/in-ms$)))
+  (is (t/spec-check instant/in-ms$))
+  (t/is= 1588705104037 (instant/in-ms$)))
 
 (deftest in-ms->inst-test
-  (is (spec-check instant/in-ms->inst))
-  (is= #inst"2070-01-01T00:00:00.000-00:00"
+  (is (t/spec-check instant/in-ms->inst))
+  (t/is= #inst"2070-01-01T00:00:00.000-00:00"
        (instant/in-ms->inst 3155760000000))
-  (is= #inst"1970-01-01T00:00:00.000-00:00"
+  (t/is= #inst"1970-01-01T00:00:00.000-00:00"
        (instant/in-ms->inst 0))
-  (is= #inst"0001-01-01T00:00:00.000-00:00"
+  (t/is= #inst"0001-01-01T00:00:00.000-00:00"
        (instant/in-ms->inst -62135769600000))
-  (is= #inst"9999-12-31T23:59:59.999-00:00"
+  (t/is= #inst"9999-12-31T23:59:59.999-00:00"
        (instant/in-ms->inst 253402300799999)))
 
 (deftest ms->in-ms-by-bounding-test
-  (is (spec-check instant/ms->in-ms-by-bounding))
-  (is= -62135769600000 (instant/ms->in-ms-by-bounding m/min-long))
-  (is= 253402300799999 (instant/ms->in-ms-by-bounding m/max-long))
-  (is= 0 (instant/ms->in-ms-by-bounding 0)))
+  (is (t/spec-check instant/ms->in-ms-by-bounding))
+  (t/is= -62135769600000 (instant/ms->in-ms-by-bounding m/min-long))
+  (t/is= 253402300799999 (instant/ms->in-ms-by-bounding m/max-long))
+  (t/is= 0 (instant/ms->in-ms-by-bounding 0)))
 
 ;;;AVERAGE YEARS
 (deftest in-ms->average-years-test
-  (is (spec-check instant/in-ms->average-years))
-  (is= 9.342597625683242
+  (is (t/spec-check instant/in-ms->average-years))
+  (t/is= 9.342597625683242
        (instant/in-ms->average-years 294823904829))
-  (is= -7.839309068885994E-5
+  (t/is= -7.839309068885994E-5
        (instant/in-ms->average-years -2473847)))
 
 (deftest inst-interval->average-years-test
-  (is (spec-check instant/inst-interval->average-years))
-  (is= 3.901584981971643E-4
+  (is (t/spec-check instant/inst-interval->average-years))
+  (t/is= 3.901584981971643E-4
        (instant/inst-interval->average-years
          [(instant/in-ms->inst 29029)
           (instant/in-ms->inst 12341242)]))
-  (is= 3.919982829773927E-4
+  (t/is= 3.919982829773927E-4
        (instant/inst-interval->average-years
          [(instant/in-ms->inst -29029)
           (instant/in-ms->inst 12341242)])))