blob: a79443a19dae1293f3aad79dc19dd08f9e73776e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
(use ../../../jurl)
(def base (http :get "https://pie.dev/status"))
(defn- check-code
[code]
(def out ((append-path (string code) base)))
(assert (out :status) code) code)
(loop [code :range [200 210]]
(check-code code))
|