CLJS-1831: Self-host: Improperly munge ns names

In self-hosted, munge namespaces using comp/munge,
just as is done in regular ClojureScript.

Add unit tests for both regular and self-hosted that
exercise the munging feature.

Author: mfikes

src/main/cljs/cljs/js.cljs

@@ -663,7 +663,7 @@
                 (fn [res]
                   (if (:error res)
                     (cb res)
-                    (let [src (str "goog.provide(\"" (munge (:name ast)) "\")")]
+                    (let [src (str "goog.provide(\"" (comp/munge (:name ast)) "\")")]
                       (cb {:value (*eval-fn* {:source src})})))))
               (let [src (with-out-str (comp/emit ast))]
                 (cb {:value (*eval-fn* {:source src})})))))))))
@@ -873,7 +873,7 @@
                       (if (#{:ns :ns*} (:op ast))
                         (do
                           (.append sb
-                            (with-out-str (comp/emitln (str "goog.provide(\"" (munge (:name ast)) "\");"))))
+                            (with-out-str (comp/emitln (str "goog.provide(\"" (comp/munge (:name ast)) "\");"))))
                           (ns-side-effects true bound-vars aenv ast opts
                             (fn [res]
                               (if (:error res)

src/test/cljs/static/core_test.cljs

@@ -0,0 +1,9 @@
+(ns static.core-test
+  (:require [cljs.test :refer-macros [deftest is]]))
+
+; The purpose of this test namespace is to ensure
+; that the use of a reserved JavaScript keyword
+; (`static`) in the namespace is handled properly.
+
+(deftest foo-test
+  (is (= 1 1)))

src/test/cljs/test_runner.cljs

@@ -39,7 +39,8 @@
             [cljs.hash-map-test]
             [cljs.predicates-test]
             [cljs.tagged-literals-test]
-            [cljs.test-test]))
+            [cljs.test-test]
+            [static.core-test]))
 
 (set! *print-newline* false)
 (set-print-fn! js/print)
@@ -76,4 +77,5 @@
   'cljs.predicates-test
   'cljs.syntax-quote-test
   'cljs.tagged-literals-test
-  'cljs.test-test)
+  'cljs.test-test
+  'static.core-test)

src/test/self/self_parity/test.cljs

@@ -281,7 +281,8 @@
                    [cljs.hash-map-test]
                    [cljs.syntax-quote-test]
                    [cljs.predicates-test]
-                   [cljs.test-test]))
+                   [cljs.test-test]
+                   [static.core-test]))
       (fn [{:keys [value error]}]
         (if error
           (prn error)
@@ -317,7 +318,8 @@
                'cljs.hash-map-test
                'cljs.syntax-quote-test
                'cljs.predicates-test
-               'cljs.test-test)
+               'cljs.test-test
+               'static.core-test)
             (fn [{:keys [value error]}]
               (when error
                 (prn error)))))))))