tweaks verify that instrumentable syms works

Author: dnolen

src/main/cljs/cljs/spec/test.cljc

@@ -96,9 +96,9 @@ invokes the fn you provide, enabling arbitrary stubbing and mocking.
 Returns a collection of syms naming the vars instrumented."
   ([]
    `(instrument (instrumentable-syms)))
-  ([sym-or-syms]
-   `(instrument ~sym-or-syms nil))
-  ([sym-or-syms opts]
+  ([xs]
+   `(instrument ~xs nil))
+  ([[quote sym-or-syms] opts]
    `(let [opts# ~opts]
       (reduce
         (fn [ret [_ f]]
@@ -109,7 +109,7 @@ Returns a collection of syms naming the vars instrumented."
                 (collectionize ~sym-or-syms)
                 ~@(map
                     (fn [sym]
-                      `(fn [] (instrument-1 ~sym opts#)))
+                      `(fn [] (instrument-1 '~sym opts#)))
                     (collectionize ~sym-or-syms)))
            (filter #((instrumentable-syms opts#) (first %)))
            (distinct-by first))))))

src/main/cljs/cljs/spec/test.cljs

@@ -246,7 +246,7 @@ Returns a map as quick-check, with :explain-data added if
     '[cljs.spec.impl.gen :as gen]
     '[cljs.test :as ctest])
 
-  (require :reload '[cjls.spec.test :as test])
+  (require :reload '[cljs.spec.test :as test])
 
   ;; discover speced vars for your own test runner
   (s/speced-vars)
@@ -278,6 +278,8 @@ Returns a map as quick-check, with :explain-data added if
     :fn (s/and #(>= (:ret %) (-> % :args :start))
           #(< (:ret %) (-> % :args :end))))
 
+  (instrumentable-syms)
+
   (m/instrument-1 ranged-rand {})
   (ranged-rand 8 5)
   (defn foo