CLJS-2755: Can't generate uri instances

Author: mfikes

src/main/cljs/cljs/spec/gen/alpha.cljs

@@ -11,7 +11,8 @@
                             char double int keyword symbol string uuid delay])
   (:require-macros [cljs.core :as c]
                    [cljs.spec.gen.alpha :as gen :refer [dynaload lazy-combinators lazy-prims]])
-  (:require [cljs.core :as c]))
+  (:require [cljs.core :as c])
+  (:import (goog Uri)))
 
 (deftype LazyVar [f ^:mutable cached]
   IDeref
@@ -107,6 +108,7 @@ gen-builtins
        simple-symbol? (symbol)
        qualified-symbol? (such-that qualified? (symbol-ns))
        uuid? (uuid)
+       uri? (fmap #(Uri. (str "http://" % ".com")) (uuid))
        inst? (fmap #(js/Date. %)
                     (large-integer))
        seqable? (one-of [(return nil)

src/test/cljs/cljs/spec/test_test.cljs

@@ -6,8 +6,8 @@
 
 (s/fdef clojure.core/symbol
   :args (s/alt :separate (s/cat :ns string? :n string?)
-          :str string?
-          :sym symbol?)
+               :str string?
+               :sym symbol?)
   :ret symbol?)
 
 (defn h-cljs-1812 [x] true)
@@ -82,3 +82,6 @@
   (is (= [1 2 3] (foo 1 2 3)))
   (is (thrown? js/Error (foo 1 :hello)))
   (stest/unstrument `foo))
+
+(deftest test-2755
+  (is (uri? (ffirst (s/exercise uri? 1)))))