Permalink
Browse files

Allow for + in var names, I guess. Fixes #16.

  • Loading branch information...
1 parent 89d6aef commit 56b5b6b5624673b859c878ae851161f50bcd9f5d @technomancy committed Dec 25, 2012
Showing with 8 additions and 2 deletions.
  1. +1 −1 src/slam/hound/regrow.clj
  2. +7 −1 test/slam/hound/regrow_test.clj
View
2 src/slam/hound/regrow.clj
@@ -18,7 +18,7 @@
(Character/isUpperCase (first (name x))))
(defn- missing-sym-name [msg]
- (second (or (re-find #"Unable to resolve \w+: ([-_\w\$\?!\*\>\<]+)" msg)
+ (second (or (re-find #"Unable to resolve \w+: ([-\+_\w\$\?!\*\>\<]+)" msg)
(re-find #"Can't resolve: ([-_\w\$\?!\*\>\<]+)" msg)
(re-find #"No such namespace: ([-_\w\$\?!\*\>\<]+)" msg)
(re-find #"No such var: \w+/([-_\w\$\?!\*\>\<]+)" msg))))
View
8 test/slam/hound/regrow_test.clj
@@ -62,4 +62,10 @@
(is (not (in-orig? 'java.sql.Date))))
(is (= '(java.io.File java.util.Date)
(:import (regrow [{:old {:import '((java.util Date))}}
- '(vector (Date.) (File. "/tmp"))])))))
+ '[(Date.) (File. "/tmp")]])))))
+
+(def +i-must-be-a-cl-user+ true)
+
+(deftest ^:unit test-plus
+ (is (= '[[slam.hound.regrow-test :refer [+i-must-be-a-cl-user+]]]
+ (:require-refer (regrow [{} '[+i-must-be-a-cl-user+]])))))

0 comments on commit 56b5b6b

Please sign in to comment.