Add more generators/examples?

[jcf]

Something like this will generate HTTP(S) URIs:

(s/def ::url
  (s/with-gen uri?
    (fn []
      (sgen/fmap #(URI. ^String (:scheme %)
                        ^String (:host %)
                        ^String (:path %)
                        ^String (:fragment %))
                 (sgen/hash-map
                  :fragment (s/gen ::uri/fragment)
                  :host (s/gen ::uri/host)
                  :path (s/gen ::uri/path)
                  :scheme (sgen/elements #{"http" "https"}))))))