Update to Java commit 180c162 (2021.12.10): TNS-51: Support namespaces as strings in require statements

Author: dmiller

src/clojure/tools/namespace/parse.cljc

@@ -83,7 +83,8 @@
   [namespace :refer (x y)] or just [namespace]"
   [form]
   (and (sequential? form)  ; should be a vector, but often is not
-       (symbol? (first form))
+       (or (symbol? (first form))
+           (string? (first form)))
        (or (keyword? (second form))  ; vector like [foo :as f]
            (= 1 (count form)))))  ; bare vector like [foo]
 
@@ -100,7 +101,9 @@
           (list (symbol (str (when prefix (str prefix ".")) form)))
 	(keyword? form)     ; Some people write (:require ... :reload-all)
           nil
-	:else
+        (string? form) ; NPM dep, ignore
+          nil
+        :else
           (throw (ex-info "Unparsable namespace form"
                           {:reason ::unparsable-ns-form
                            :form form}))))

test/clojure/tools/namespace/parse_test.clj

@@ -171,11 +171,26 @@
   (:require #?(:cljr clojure.string                 ;;; :clj
                :cljs goog.string)))")
 
+(defn str->ns-decl [^String s]
+  (-> s
+      System.IO.StringReader.                     ;;; java.io.StringReader.
+      clojure.lang.PushbackTextReader.            ;;; java.io.PushbackReader.
+      read-ns-decl))
+
 (deftest t-reader-conditionals
   (when (resolve 'clojure.core/reader-conditional?)
     (let [actual (-> reader-conditionals-string
-                     System.IO.StringReader.                     ;;; java.io.StringReader.
-                     clojure.lang.PushbackTextReader.            ;;; java.io.PushbackReader.
-                     read-ns-decl
+                     str->ns-decl
                      deps-from-ns-decl)]
-      (is (= #{'clojure.string} actual)))))		 
+      (is (= #{'clojure.string} actual)))))	
+
+
+(def ns-with-npm-dependency
+  "(ns com.examples.one
+    (:require [\"foobar\"] [baz]))")
+
+(deftest cljs-string-dependency
+  (let [actual (-> ns-with-npm-dependency
+                   str->ns-decl
+                   deps-from-ns-decl)]
+    (is (= #{'baz} actual))))