bigint, bigdec generators for simple-check

gistfile1.clj

;; TODO: sensible default distributions for bigint, bigdec
;; these impls adapted from data.generative
#+clj ;; TODO: add support for cljs bignums if bignumber.js is around
(def ^:private gen-bigint* (gen/such-that identity
                                          (gen/fmap #(when (pos? (count %))
                                                       (BigInteger. ^bytes %))
                                                    gen/bytes)))

; using bigint to get N-suffixed printing
#+clj
(def gen-bigint (gen/fmap bigint gen-bigint*))

#+clj
(def gen-bigdec (gen/fmap (fn [[unscaled-val scale]]
                            (BigDecimal. ^BigInteger unscaled-val ^int scale))
                          (gen/tuple gen-bigint* gen-int)))