CLJS-3349: Add :as-alias in alias map for self-hosted

Author: mfikes

src/main/cljs/cljs/js.cljs

@@ -186,8 +186,8 @@
 
 (defn- alias-map
   [compiler cljs-ns]
-  (->> (merge (get-in compiler [::ana/namespaces cljs-ns :requires])
-         (get-in compiler [::ana/namespaces cljs-ns :require-macros]))
+  (->> (env/with-compiler-env compiler
+         (ana/get-aliases cljs-ns))
     (remove (fn [[k v]] (symbol-identical? k v)))
     (into {})))
 

src/test/cljs/cljs/ns_test/foo.cljs

@@ -7,7 +7,8 @@
 ;; You must not remove this notice, or any other, from this software.
 
 (ns cljs.ns-test.foo
-  (:require [cljs.test :refer-macros [deftest is]]))
+  (:require [cljs.test :refer-macros [deftest is]]
+            [made.up.lib :as-alias lib]))
 
 (defn baz [] 123)
 
@@ -17,3 +18,6 @@
 (deftest test-namespaced-keywords
   (is (= (str kw) ":cljs.ns-test.foo/foo"))
   (is (= (str qkw) ":cljs.ns-test.foo/foo")))
+
+(deftest test-as-alias-keywords
+  (is (keyword-identical? ::lib/foo :made.up.lib/foo)))