does spec have a way to capture: this object is an ATOM and when you deref the ATOM, it should satisfy this spec

You also have the same problem for things like manifold deferreds

wtf are manifold deferreds? 🙂

ELI-don't-have-math-PhD

https://github.com/ztellman/manifold/blob/master/docs/deferred.md

@danielcompton: this looks interesting ; does it also have cljs support ? [ I can't find mention of it anywhere on the page ]

1. Please ignore the camelCase. 2

[(s/assert ::appState 23) 
 (s/valid? ::appState 23)]
(comment
 [23 false])

Resolved: I forgot to use (s/check-asserts .... )

There’s a CLJS port of it somewhere

I have a simple function that takes data, and creates test data from it. Currently, it uses (rand-int ..), what minimum changes do I need to do to this code, in order to use the same seed for random as the rest of the generators.

(defn create-update-operation
  "Change or delete or add a new key to `m`.
   In 30% of the operations, then value will be nil, i.e. delete."
  ;; Do not change or delete any of the pre-defined keys
  ([m] (let [res (create-update-operation (filter #(not (#{:id :tenant :entity :k :updated :version} (key %))) m) {})]
         ;; (println (count res))
         res))
  ([m changes]
   (if (<= (count m) 3) changes
       ;; find the next key to change (update or delete)
       (let [nxt      (rand-int (count m))
             next     (nth m nxt)
             rest     (nthrest m (min 1 nxt)) ;0 just mean that I am regenerating the first key.
             k        (key next)
             _        (assert (some? k))
             v        (update-or-delete-value k)
             changes2 (assoc changes k v)]
         ;; see if we should add a new key to the map
         (if (< (rand-int 10) 2)
           (recur rest (let [k2 (keyword (random-string))
                             v2 (update-or-delete-value k2)]
                         (assoc changes2 k2 v2)))
           (recur rest changes2))))))