Return vectors from a Clojure spec regular expression generator

as-vec.clj

(ns spec-test.as-vec 
  (:require [clojure.spec :as s :include-macros true]
            [cljs.spec.impl.gen :as gen]
            [clojure.test.check.generators]))

(defn as-vec
  "Wrap the generator of expr to return a vector"
  [expr]
  (s/with-gen expr #(gen/bind (s/gen expr)
                              (comp gen/return vec))))

(s/def ::vec-test
  (as-vec (s/cat :number int? :string (s/? string?))))

(prn (map first (s/exercise ::vec-test)))

;; returns
([0] [0 "i"] [-2 "6n"] [1 "6"] [1] [-11] [-2] [-2 "yKi"] [-1] [11 "2"])