             [fulcro.client.primitives :as fp])
   (:import (clojure.lang ExceptionInfo)))
 
-(test/defspec generator-makes-valid-queries {:max-size 18 :num-tests 50}
+(test/defspec generator-makes-valid-queries {:max-size 15 :num-tests 50}
   (props/for-all [query (s.query/make-gen
                           {::s.query/gen-params
                            (fn [_]

  (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))



    (gen/sample
      (s.query/make-gen (gen-connect-index (gen/generate (gen/vector-distinct gen/keyword-ns {:min-elements 8
                                                                                              :max-elements 50})
                                             4))
        ::gen-index)))

