Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

  • Loading branch information...
commit 56b5b6b5624673b859c878ae851161f50bcd9f5d 1 parent 89d6aef
@technomancy authored
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+]])))))
Please sign in to comment.
Something went wrong with that request. Please try again.