Use clojure.java.io/resource to get at resources in the classpath. Mu…

…ch nicer.
marktriggs · Aug 7, 2011 · b3063c0 · b3063c0
1 parent e6672db
commit b3063c0
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/test/net/dishevelled/test/mailindex.clj b/test/net/dishevelled/test/mailindex.clj
@@ -2,6 +2,7 @@
   (:require [clojure.contrib.seq :as sq])
   (:import (org.apache.lucene.store RAMDirectory))
   (:use clojure.test
+        clojure.java.io
         net.dishevelled.mailindex))
 
 
@@ -18,12 +19,11 @@
 
 
 (defn get-test-messages []
-  (let [cl (-> (Thread/currentThread) .getContextClassLoader)]
+  (map (fn [[n filename]]
-    (map (fn [[n filename]]
+         {:id {:group "test" :num (str n)}
-           (with-open [msg (.getResourceAsStream cl filename)]
+          :content (.getBytes (slurp (resource filename)) "UTF-8")})
-             {:id {:group "test" :num (str n)}
+       (sq/indexed ["test-message-1.mbox"
-              :content (.getBytes (slurp msg) "UTF-8")}))
+                    "test-message-with-html-attachment.mbox"])))
-         (sq/indexed ["test-message-1.mbox" "test-message-with-html-attachment.mbox"]))))
 
 
 (defn index-test-messages [f]