Permalink
Browse files

Add `=` to missing-sym-patterns

Discovered while trying to refer cljs.core.logic.macros/==
  • Loading branch information...
1 parent 4befa3f commit e855a6d39cd0f756e04536e93fd1faa218b4eeea @guns guns committed Nov 28, 2013
Showing with 4 additions and 4 deletions.
  1. +1 −1 src/slam/hound/regrow.clj
  2. +3 −3 test/slam/hound/regrow_test.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: "
@@ -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? -+_$?!*><''))])
- '{:refer {slam.hound.regrow-test #{-+_$?!*><''}}}))
+ (is (= (regrow '[{} ((keyword? -+_$?!*><=''))])
+ '{:refer {slam.hound.regrow-test #{-+_$?!*><=''}}}))
(is (= (regrow '[{:old {:exclude {clojure.core #{/}}}
:exclude {clojure.core #{/}}}
((keyword? /))])

0 comments on commit e855a6d

Please sign in to comment.