Add = to missing-sym-patterns

Discovered while trying to refer cljs.core.logic.macros/==
technomancy · Nov 28, 2013 · e855a6d · e855a6d
1 parent 4befa3f
commit e855a6d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/slam/hound/regrow.clj b/src/slam/hound/regrow.clj
@@ -21,7 +21,7 @@
   (Character/isUpperCase ^Character (first (name x))))
 
 (def ^:private missing-sym-patterns
-  (let [sym-pat #"([-\+_\w\$\?!\*\>\<]+'*|/)"
+  (let [sym-pat #"([-\+_\w\$\?!\*\>\<=]+'*|/)"
         prefixes [#"Unable to resolve \w+: "
                   "Can't resolve: "
                   "No such namespace: "

diff --git a/test/slam/hound/regrow_test.clj b/test/slam/hound/regrow_test.clj
@@ -18,7 +18,7 @@
 (defrecord RegrowTestRecord [])
 (defrecord UUID [])
 (def +i-must-be-a-cl-user+ true)
-(def -+_$?!*><'' :horribly-named-var)
+(def -+_$?!*><='' :horribly-named-var)
 (def / :special-case-token)
 (def CapitalVar true)
 (def Pattern "Not java.util.Pattern")
@@ -152,8 +152,8 @@
   (testing "finds referred vars with strange names"
     (is (= (regrow '[{} ((assert +i-must-be-a-cl-user+))])
            '{:refer {slam.hound.regrow-test #{+i-must-be-a-cl-user+}}}))
-    (is (= (regrow '[{} ((keyword? -+_$?!*><''))])
+    (is (= (regrow '[{} ((keyword? -+_$?!*><=''))])
-           '{:refer {slam.hound.regrow-test #{-+_$?!*><''}}}))
+           '{:refer {slam.hound.regrow-test #{-+_$?!*><=''}}}))
     (is (= (regrow '[{:old {:exclude {clojure.core #{/}}}
                       :exclude {clojure.core #{/}}}
                      ((keyword? /))])