ok? to 2xx?

src/.#matcho.clj

@@ -0,0 +1 @@
+[email protected]

src/matcho.clj

@@ -3,13 +3,21 @@
   (:require [clojure.string :as s]))
 
 (def fns
-  {"ok?" #(and (> % 199) (< % 300))
-   "4xx?" #(and (> % 400) (< % 500))
-   "5xx?" #(and (> % 500) (< % 600))
+  {"2xx?" #(and (>= % 200) (< % 300))
+   "4xx?" #(and (>= % 400) (< % 500))
+   "5xx?" #(and (>= % 500) (< % 600))
    }
   )
 
 
+(comment
+
+
+
+  (pr-str (with-meta #(and %1 %2) {:type "wow"}))
+
+
+  )
 (defn built-in-fn [fn-name]
   (if-let [func (ns-resolve 'clojure.core (symbol fn-name))]
     #(func %)

src/runner.clj

@@ -221,7 +221,6 @@
       (doseq [test-case (:test-cases result)]
         (println (:id test-case))))
 
-    (vv conf (clojure.pprint/pprint result))
     (assoc result :passed? (zero? (:failed-tests sum)))))
 
 (comment

test/matcho_test.clj

@@ -27,9 +27,9 @@
 
   (is (empty? (sut/match {:a "str"} {:a "#str"})))
 
-  (is (empty? (sut/match {:a 200} {:a "ok?"})))
+  (is (empty? (sut/match {:a 200} {:a "2xx?"})))
 
-  (is (empty? (sut/match {:a 204} {:a "ok?"})))
+  (is (empty? (sut/match {:a 204} {:a "2xx?"})))
 
   (is (empty? (sut/match {:a "string"} {:a "#str\\w+"})))