buggeneratorhelp wanted
Description
(defn shrink [?schema]
(-> (quick-check 1 (for-all [s (mg/generator ?schema)] false) {:seed 0})
:shrunk
:smallest
first))
(= Double/MAX_VALUE
(shrink [:> Double/MAX_VALUE])
(shrink [:>= Double/MAX_VALUE]))
;=> true
(> Double/MAX_VALUE Double/MAX_VALUE)
;=> false
(>= Double/MAX_VALUE Double/MAX_VALUE)
;=> true