addresses #29

more work is needed here

Author: seancorfield

.clj-kondo/com.github.seancorfield/expectations/config.edn

@@ -1,4 +1,9 @@
-{:lint-as
+{:hooks
+ {:analyze-call
+  {expectations.clojure.test/more->
+   hooks.com.github.seancorfield.expectations/more->}}
+ :lint-as
  {expectations.clojure.test/defexpect clojure.test/deftest
   expectations.clojure.test/from-each clojure.core/for
-  expectations.clojure.test/more-of clj-kondo.lint-as/def-catch-all}}
+  expectations.clojure.test/more-of clj-kondo.lint-as/def-catch-all
+  expectations.clojure.test/=? clojure.core/=}}

.clj-kondo/com.github.seancorfield/expectations/hooks/com/github/seancorfield/expectations.clj_kondo

@@ -0,0 +1,12 @@
+(ns hooks.com.github.seancorfield.expectations
+  (:require [clj-kondo.hooks-api :as api]))
+
+(defn more-> [{:keys [node]}]
+  (let [tail (rest (:children node))
+        rewritten
+        (api/list-node
+         (list*
+          (api/token-node 'cond->)
+          (api/token-node 'nil)
+          tail))]
+    {:node rewritten}))

CHANGELOG.md

@@ -8,6 +8,7 @@ Only accretive/fixative changes will be made from now on.
 
 * 2.0.next in progress
   * Fix [#30](https://github.com/clojure-expectations/clojure-test/issues/30) by removing `build-clj` and using raw `tools.build`.
+  * Address [#29](https://github.com/clojure-expectations/clojure-test/issues/29) by providing a "hook" for `more->` (but more work is needed).
   * Address [#27](https://github.com/clojure-expectations/clojure-test/issues/27) by changing `refer`'d note in stub macros' docstrings.
 
 * 2.0.160 -- 2022-03-26

resources/clj-kondo.exports/com.github.seancorfield/expectations/config.edn

@@ -1,4 +1,9 @@
-{:lint-as
+{:hooks
+ {:analyze-call
+  {expectations.clojure.test/more->
+   hooks.com.github.seancorfield.expectations/more->}}
+ :lint-as
  {expectations.clojure.test/defexpect clojure.test/deftest
   expectations.clojure.test/from-each clojure.core/for
-  expectations.clojure.test/more-of clj-kondo.lint-as/def-catch-all}}
+  expectations.clojure.test/more-of clj-kondo.lint-as/def-catch-all
+  expectations.clojure.test/=? clojure.core/=}}

resources/clj-kondo.exports/com.github.seancorfield/expectations/hooks/com/github/seancorfield/expectations.clj_kondo

@@ -0,0 +1,12 @@
+(ns hooks.com.github.seancorfield.expectations
+  (:require [clj-kondo.hooks-api :as api]))
+
+(defn more-> [{:keys [node]}]
+  (let [tail (rest (:children node))
+        rewritten
+        (api/list-node
+         (list*
+          (api/token-node 'cond->)
+          (api/token-node 'nil)
+          tail))]
+    {:node rewritten}))

src/expectations/clojure/test.cljc

@@ -43,6 +43,11 @@
               :cljs js/Error.)
            (str ~s " should only be used inside expect"))))
 
+(defmacro =?
+  "Internal fuzzy-equality test (clojure.test/assert-expr)."
+  [expected actual & [form]]
+  (bad-usage "=?"))
+
 (defmacro in
   "`(expect expected (in actual))` -- expect a subset of a collection.
 

test/expectations/clojure/test_test.cljc

@@ -19,7 +19,7 @@
             #?(:cljs [cljs.spec.alpha :as s])
             #?(:cljs [expectations.clojure.test-spec])
             #?(:clj [expectations.clojure.test :refer
-                     [from-each in more more-of] :as sut]
+                     [from-each in more more-> more-of =?] :as sut]
                :cljs [expectations.clojure.test
                       :include-macros true
                       :as sut])))