CLJS-1679: Self-host: Incorporate spec tests

Adds cljs.spec-test to the self-host test suite

To do so involves some adjustments to self-host
loading in this suite (a workaround for CLJS-1657
for some of the spec namespaces) and the need
to skip loading code for cljs.core macros namespace.

This also catches and fixes one production code
issue in the cljs.spec macros namespace: the symbol
*instrument-enabled* needs to be qualified so that
it refers to the runtime namespace.

Author: mfikes

src/main/cljs/cljs/spec.cljc

@@ -342,7 +342,7 @@ specified, return speced vars from all namespaces."
 (defmacro with-instrument-disabled
   "Disables instrument's checking of calls, within a scope."
   [& body]
-  `(binding [*instrument-enabled* nil]
+  `(binding [cljs.spec/*instrument-enabled* nil]
      ~@body))
 
 (defmacro keys*

src/test/self/self_parity/test.cljs

@@ -160,7 +160,8 @@
   technical issues)."
   [name macros]
   ((if macros
-     #{'cljs.pprint
+     #{'cljs.core
+       'cljs.pprint
        'cljs.env.macros
        'cljs.analyzer.macros
        'cljs.compiler.macros}
@@ -228,13 +229,23 @@
      :verbose false}
     cb))
 
+(defn prime-analysis-cache-for-implicit-macro-loading
+  "Supports priming analysis cache in order to work around
+  http://dev.clojure.org/jira/browse/CLJS-1657"
+  [st ns-sym]
+  (swap! st assoc-in [::cljs.analyzer/namespaces ns-sym :require-macros] {ns-sym ns-sym}))
+
+;; Test suite runner
+
 (defn run-tests 
   "Runs the tests."
   []
   ;; Ideally we'd just load test_runner.cljs, but a few namespace tests
   ;; don't yet run in bootstrapped ClojureScript. These are commented
   ;; out below and can be uncommented as fixed.
   (let [st (cljs/empty-state)]
+    (prime-analysis-cache-for-implicit-macro-loading st 'cljs.spec)
+    (prime-analysis-cache-for-implicit-macro-loading st 'cljs.spec.impl.gen)
     (eval-form st 'cljs.user
       '(ns parity.core
          (:require [cljs.test :refer-macros [run-tests]]
@@ -252,7 +263,8 @@
                    #_[cljs.keyword-test]
                    [cljs.import-test]
                    [cljs.ns-test.foo]
-                   #_[cljs.pprint]))
+                   #_[cljs.pprint]
+                   [cljs.spec-test]))
       (fn [{:keys [value error]}]
         (if error
           (prn error)
@@ -272,7 +284,8 @@
                'cljs.ns-test.foo
                'foo.ns-shadow-test
                'cljs.import-test
-               #_'cljs.pprint)
+               #_'cljs.pprint
+               'cljs.spec-test)
             (fn [{:keys [value error]}]
               (when error
                 (prn error)))))))))