maint: update sanity test to use httpbingo.org

Postman-echo was giving us 403s on CI.

Let's instead try httpbingo.org with some extra sanity checks with the
help of cheshire and nubank's matcher-combinators.

Author: lread

.clj-kondo/imports/nubank/matcher-combinators/config.edn

@@ -0,0 +1,4 @@
+{:linters
+ {:unresolved-symbol
+  {:exclude [(cljs.test/is [match? thrown-match?])
+             (clojure.test/is [match? thrown-match?])]}}}

bb.edn

@@ -28,7 +28,8 @@
          {:doc "Runs tests under babashka Clojure (recognizes cognitect test-runner args)"
           :extra-paths ["src" "test" "test-resources"]
           :extra-deps {io.github.cognitect-labs/test-runner
-                       {:git/tag "v0.5.1" :git/sha "dfb30dd"}}
+                       {:git/tag "v0.5.1" :git/sha "dfb30dd"}
+                       nubank/matcher-combinators {:mvn/version "3.9.2"}}
           :requires ([cognitect.test-runner :as tr])
           :task (apply tr/-main *command-line-args*)}
          lint

deps.edn

@@ -29,7 +29,9 @@
   :test
   {:extra-paths ["test"]
    :extra-deps {io.github.cognitect-labs/test-runner
-                {:git/tag "v0.5.1" :git/sha "dfb30dd"}}
+                {:git/tag "v0.5.1" :git/sha "dfb30dd"}
+                cheshire/cheshire {:mvn/version "6.1.0"}
+                nubank/matcher-combinators {:mvn/version "3.9.2"}}
    :main-opts ["-m" "cognitect.test-runner"]}
   ;; for consistent linting we use a specific version of clj-kondo through the jvm
   :clj-kondo {:extra-deps {clj-kondo/clj-kondo {:mvn/version "2025.10.23"}}

test/clj_http/lite/client_sanity_test.clj

@@ -1,32 +1,53 @@
 (ns clj-http.lite.client-sanity-test
-  "A small subset of tests suitable for sanity testing.
-  Used by babashka libs tests."
+  "A small subset of tests suitable for sanity testing."
   (:require [clj-http.lite.client :as client]
+            [cheshire.core :as json]
+            [matcher-combinators.test]
+            [matcher-combinators.matchers :as m]
             [clojure.test :as t :refer [deftest is]]))
 
 (deftest client-test
   (is (= 200 (:status (client/get "https://www.clojure.org" {:throw-exceptions false}))))
 
-  (is (= 200 (:status (client/get "https://postman-echo.com/get?foo1=bar1&foo2=bar2" {:throw-exceptions false}))))
+  (is (match? {:status  200
+               :body (m/via json/decode {"method" "GET"
+                                         "args" {"foo1" ["bar1"]
+                                                 "foo2" ["bar2"]}})}
+              (client/get "https://httpbingo.org/get?foo1=bar1&foo2=bar2" {:throw-exceptions false})))
 
-  (is (= 200 (:status (client/post "https://postman-echo.com/post" {:throw-exceptions false}))))
+  (is (match? {:status 200
+               :body (m/via json/decode {"method" "POST"
+                                         "headers" {"Content-Type" m/absent}
+                                         "args" {}
+                                         "data" ""})}
+              (client/post "https://httpbingo.org/post" {:throw-exceptions false})))
 
-  (is (= 200 (:status (client/post "https://postman-echo.com/post"
-                                   {:body "{\"a\": 1}"
-                                    :headers {"X-Hasura-Role" "admin"}
-                                    :content-type :json
-                                    :accept :json
-                                    :throw-exceptions false}))))
+  (is (match? {:status 200
+               :body (m/via json/decode {"method" "POST"
+                                         "headers" {"Content-Type" ["application/json; charset=UTF-8"]
+                                                    "X-Hasura-Role" ["admin"]}
+                                         "data" "{\"a\": 1}"})}
+              (client/post "https://httpbingo.org/post"
+                           {:body "{\"a\": 1}"
+                            :headers {"X-Hasura-Role" "admin"}
+                            :content-type :json
+                            :accept :json
+                            :throw-exceptions false})))
 
-  (is (= 200  (:status (client/put "https://postman-echo.com/put"
-                                   {:body "{\"a\": 1}"
-                                    :headers {"X-Hasura-Role" "admin"}
-                                    :content-type :json
-                                    :accept :json
-                                    :throw-exceptions false})))))
+  (is (match? {:status 200
+               :body (m/via json/decode {"method" "PUT"
+                                         "headers" {"Content-Type" ["application/json; charset=UTF-8"]
+                                                    "X-Hasura-Role" ["admin"]}
+                                         "data" "{\"a\": 1}"})}
+              (client/put "https://httpbingo.org/put"
+                          {:body "{\"a\": 1}"
+                           :headers {"X-Hasura-Role" "admin"}
+                           :content-type :json
+                           :accept :json
+                           :throw-exceptions false}))))
 
 (deftest exception-test
-  (try (client/get "https://httpbin.org/status/404")
+  (try (client/get "https://httpbingo.org/status/404")
        (is false "should not reach here")
        (catch Exception e
          (is (:headers (ex-data e))))))
@@ -37,3 +58,4 @@
   (is (= 200 (:status (client/get "https://expired.badssl.com" {:insecure? true}))))
   (is (thrown? Exception
                (client/get "https://expired.badssl.com"))))
+