nandi/jolt-native · props_check.clj

⑂ c131fc627e173c8f2ca84d0f2809ac8b22dc1a03

props_check.clj · 55 lines · 2.7 KBClojure    Blame HistoryRaw
Read :active, and keep a field's text inside the field   1(ns glimmer-jvui.props-check
"Two prop-level bugs the tag diff could not see, checked against pixels.
A tag being handled is not the same as a tag reading the props a client
actually writes. Both of these rendered perfectly and said the wrong
thing: a checkbutton whose tick never appeared because frq writes
`:active` where this read `:checked`, and a field whose text ran out past
its own border because nothing clipped it."
(:require [glimmer.core :as ui]
          [glimmer-jvui.core]
          [jvui.sdl :as sdl]
          [jolt.ffi :as ffi]))
14(defn- bmp [path]
(let [b (java.nio.file.Files/readAllBytes
          (java.nio.file.Path/of path (into-array String [])))
      u (fn [i] (bit-and (int (aget b i)) 255))
      le (fn [i] (+ (u i) (bit-shift-left (u (+ i 1)) 8)
                    (bit-shift-left (u (+ i 2)) 16) (bit-shift-left (u (+ i 3)) 24)))
      off (le 10) w (le 18) h (le 22) stride (* 4 (quot (+ (* w 3) 3) 4))]
  {:w w :h h :px (fn [x y] (let [i (+ off (* (- h 1 y) stride) (* 3 x))]
                             {:b (u i) :g (u (+ i 1)) :r (u (+ i 2))}))}))
24(defn- ink-in
"How many pixels inside [x0 y0 x1 y1] differ from the background."
[{:keys [px]} bg x0 y0 x1 y1]
(count (for [y (range y0 y1) x (range x0 x1)
             :let [p (px x y)]
             :when (> (+ (abs (- (:r p) (:r bg))) (abs (- (:g p) (:g bg)))
                         (abs (- (:b p) (:b bg)))) 40)]
33(defn -main [& _]
(let [shot (str (System/getProperty "java.io.tmpdir") "/jvui-props.bmp")
      out (atom []) ck! (fn [n ok?] (swap! out conj [n (boolean ok?)]))]
  (ui/run (fn []
            [:vbox {:spacing 8}
             ;; :active, the way frq writes it — the tick must appear.
             [:checkbutton {:label "TLS" :active true}]
             ;; A string far wider than the field it is in.
             [:entry {:value "nandi-test.bsky.social-and-then-some-more-text"}]])
          {:title "props" :width 240 :height 140 :frames 6 :shot shot})
  (let [img (bmp shot)
        bg  ((:px img) 2 2)]
    ;; The tick is inside the little box at the far left of the first row.
    (ck! "an :active checkbutton draws its tick"
         (> (ink-in img bg 4 4 26 30) 12))
    ;; Nothing may be drawn to the right of the field's own border.
    (ck! "entry text stops at the field's edge"
         (zero? (ink-in img bg 232 40 240 100))))
  (doseq [[n ok?] @out] (println (if ok? "- " "FAIL ") n))
  (let [bad (remove second @out)]
    (println (if (seq bad) (str (count bad) " of " (count @out) " checks FAILED")
                 (str "all " (count @out) " checks passed")))
    (when (seq bad) (System/exit 1)))))

Read :active, and keep a field's text inside the field c131fc6 nandi 9d ago	1	(ns glimmer-jvui.props-check
	2	"Two prop-level bugs the tag diff could not see, checked against pixels.
	3
	4	A tag being handled is not the same as a tag reading the props a client
	5	actually writes. Both of these rendered perfectly and said the wrong
	6	thing: a checkbutton whose tick never appeared because frq writes
	7	`:active` where this read `:checked`, and a field whose text ran out past
	8	its own border because nothing clipped it."
	9	(:require [glimmer.core :as ui]
	10	[glimmer-jvui.core]
	11	[jvui.sdl :as sdl]
	12	[jolt.ffi :as ffi]))
	13
	14	(defn- bmp [path]
	15	(let [b (java.nio.file.Files/readAllBytes
	16	(java.nio.file.Path/of path (into-array String [])))
	17	u (fn [i] (bit-and (int (aget b i)) 255))
	18	le (fn [i] (+ (u i) (bit-shift-left (u (+ i 1)) 8)
	19	(bit-shift-left (u (+ i 2)) 16) (bit-shift-left (u (+ i 3)) 24)))
	20	off (le 10) w (le 18) h (le 22) stride (* 4 (quot (+ (* w 3) 3) 4))]
	21	{:w w :h h :px (fn [x y] (let [i (+ off (* (- h 1 y) stride) (* 3 x))]
	22	{:b (u i) :g (u (+ i 1)) :r (u (+ i 2))}))}))
	23
	24	(defn- ink-in
	25	"How many pixels inside [x0 y0 x1 y1] differ from the background."
	26	[{:keys [px]} bg x0 y0 x1 y1]
	27	(count (for [y (range y0 y1) x (range x0 x1)
	28	:let [p (px x y)]
	29	:when (> (+ (abs (- (:r p) (:r bg))) (abs (- (:g p) (:g bg)))
	30	(abs (- (:b p) (:b bg)))) 40)]
	31	1)))
	32
	33	(defn -main [& _]
	34	(let [shot (str (System/getProperty "java.io.tmpdir") "/jvui-props.bmp")
	35	out (atom []) ck! (fn [n ok?] (swap! out conj [n (boolean ok?)]))]
	36	(ui/run (fn []
	37	[:vbox {:spacing 8}
	38	;; :active, the way frq writes it — the tick must appear.
	39	[:checkbutton {:label "TLS" :active true}]
	40	;; A string far wider than the field it is in.
	41	[:entry {:value "nandi-test.bsky.social-and-then-some-more-text"}]])
	42	{:title "props" :width 240 :height 140 :frames 6 :shot shot})
	43	(let [img (bmp shot)
	44	bg ((:px img) 2 2)]
	45	;; The tick is inside the little box at the far left of the first row.
	46	(ck! "an :active checkbutton draws its tick"
	47	(> (ink-in img bg 4 4 26 30) 12))
	48	;; Nothing may be drawn to the right of the field's own border.
	49	(ck! "entry text stops at the field's edge"
	50	(zero? (ink-in img bg 232 40 240 100))))
	51	(doseq [[n ok?] @out] (println (if ok? "- " "FAIL ") n))
	52	(let [bad (remove second @out)]
	53	(println (if (seq bad) (str (count bad) " of " (count @out) " checks FAILED")
	54	(str "all " (count @out) " checks passed")))
	55	(when (seq bad) (System/exit 1)))))