Add tests for new rename-ns-alias functionality

Author: yuhan0

clojure-mode-refactor-rename-ns-alias-test.el

@@ -95,8 +95,34 @@
      ;; TODO refactor using new-lib/foo
      (+ (new-lib/a 1) (b 2))"
 
-    (clojure--rename-ns-alias-internal "lib" "new-lib")))
-
-  (provide 'clojure-mode-refactor-rename-ns-alias-test)
+    (clojure--rename-ns-alias-internal "lib" "new-lib"))
+
+  (when-refactoring-it "should escape regex characters"
+    "(ns test.ns
+  (:require [my.math.subtraction :as math.-]
+            [my.math.multiplication :as math.*]))
+
+(math.*/operator 1 (math.-/subtract 2 3))"
+    "(ns test.ns
+  (:require [my.math.subtraction :as math.-]
+            [my.math.multiplication :as m*]))
+
+(m*/operator 1 (math.-/subtract 2 3))"
+    (clojure--rename-ns-alias-internal "math.*" "m*"))
+
+  (it "should offer completions"
+    (expect
+     (clojure-collect-ns-aliases
+      "(ns test.ns
+  (:require [my.math.subtraction :as math.-]
+            [my.math.multiplication :as math.*]
+            [clojure.spec.alpha :as s]
+            ;; [clojure.spec.alpha2 :as s2]
+            [symbols :as abc123.-$#.%*+!@]))
+
+(math.*/operator 1 (math.-/subtract 2 3))")
+     :to-equal '("abc123.-$#.%*+!@" "s" "math.*" "math.-"))))
+
+(provide 'clojure-mode-refactor-rename-ns-alias-test)
 
 ;;; clojure-mode-refactor-rename-ns-alias-test.el ends here