   (parser-with-err (assoc parser-env ::pt/throw-errors? true) [:b])
   (fulcro-parser-with-err (assoc parser-env ::pt/throw-errors? true) [:b])
 
-  (let [k :b]
-    [(mod (hash k) 2)
-     (mod (hash k) 10)])
-
-  (gen/generate (base-gen) 18)
-
   (time
     (tc/quick-check 300 (parser-test-props parser-env) :max-size 18))
 

            [fulcro.client.primitives :as fp])
  (:import (clojure.lang ExceptionInfo)))

(test/defspec generator-makes-valid-queries {:max-size 18 :num-tests 50}
  (props/for-all [query (s.query/make-gen
                          {::s.query/gen-params
                           (fn [_]

        (pc/add 'name {::pc/output [:name]})
        (pc/add 'by-id {::pc/input #{:id} ::pc/output [:color]})))

  (pc/discover-attrs simple-index [:id])

  (gen/sample
    (s.query/make-gen (pcg/gen-connect-query {::pc/indexes simple-index})
      ::s.query/gen-query))

  (gen/sample
    (s.query/make-gen (pcg/gen-connect-query {::pc/indexes (last indexes)})
      ::s.query/gen-query))

  (tc/quick-check 100
