Permalink
Browse files
Remove mash helper function; just use doseq.
- Loading branch information...
Showing
with
3 additions
and
17 deletions.
-
+0
−10
src/clj_stacktrace/utils.clj
-
+3
−7
test/clj_stacktrace/core_test.clj
|
|
@@ -1,15 +1,5 @@ |
|
|
(ns clj-stacktrace.utils)
|
|
|
|
|
|
-(defn mash
|
|
|
- "Reduce a seq-able to a map. The given fn should return a 2-element tuple
|
|
|
- representing a key and value in the new map."
|
|
|
- [f coll]
|
|
|
- (reduce
|
|
|
- (fn [memo elem]
|
|
|
- (let [[k v] (f elem)]
|
|
|
- (assoc memo k v)))
|
|
|
- {} coll))
|
|
|
-
|
|
|
(defn re-gsub
|
|
|
"Simple version of re-gsub that only supports string replacements."
|
|
|
[^java.util.regex.Pattern regex replacement ^String string]
|
|
|
|
|
|
@@ -3,7 +3,7 @@ |
|
|
(:use clj-stacktrace.core)
|
|
|
(:use clj-stacktrace.utils))
|
|
|
|
|
|
-(def cases-data
|
|
|
+(def cases
|
|
|
[["foo.bar$biz__123" "invoke" "bar.clj" 456
|
|
|
{:clojure true :ns "foo.bar" :fn "biz"
|
|
|
:file "bar.clj" :line 456 :annon-fn false}]
|
|
|
@@ -60,13 +60,9 @@ |
|
|
{:java true :class "some.space.SomeClass" :method "someMethod"
|
|
|
:file nil :line nil}]])
|
|
|
|
|
|
-(def cases
|
|
|
- (mash
|
|
|
- (fn [[c m f l p]] [(StackTraceElement. c m f l) p])
|
|
|
- cases-data))
|
|
|
-
|
|
|
(deftest test-parse-trace-elem
|
|
|
- (doseq [[elem parsed] cases]
|
|
|
+ (doseq [[class method file line parsed] cases
|
|
|
+ :let [elem (StackTraceElement. class method file line)]]
|
|
|
(is (= parsed (parse-trace-elem elem)))))
|
|
|
|
|
|
(deftest test-trim-redundant
|
|
|
|
0 comments on commit
2116d89