Added in tests

examples/sample/a.clj

@@ -0,0 +1 @@
+I'm a clojure file

examples/sample/b.cljc

@@ -0,0 +1 @@
+I'm a clojure common file

examples/sample/c.cljx

@@ -0,0 +1 @@
+I'm neither

examples/sample/portable.cljx

@@ -0,0 +1 @@
+I'm antiquated

spec/speclj/freshener_spec.clj

@@ -1,11 +1,54 @@
 (ns speclj.freshener-spec
   (:require [speclj.core :refer :all]
             [speclj.freshener :refer :all]
-            [speclj.spec-helper :as spec-helper]))
+            [clojure.tools.namespace.repl :as repl]
+            [clojure.tools.namespace.dir :as dir])
+  (:use [clojure.java.io :only (file copy make-input-stream delete-file make-parents)]))
+
+(def sample-dir (.getCanonicalFile (file "examples/sample")))
+
+(defn sample-file [dir name]
+  (file dir name))
+
+(defn write-file [dir name content]
+  (let [file (sample-file dir name)]
+    (make-parents file)
+    (copy (make-input-stream (.getBytes content) {}) file)
+    file))
+
+(defn tweak-mod-time [file tweak]
+  (let [mod-time (+ (.lastModified file) (* 1000 tweak))]
+    (.setLastModified file mod-time)))
 
 (describe "Freshener"
 
-  (it "returns n"
-    (should= 1 (return-n 1))
-    )
-  )
+  (it "finds specified files by default"
+    (write-file sample-dir "portable.cljx" "I'm antiquated")
+    (let [files (find-files-in #".*\.cljx" sample-dir)]
+      (should-contain "portable.cljx" (set (map #(.getName %) files)))))
+
+  (it "first freshening adds files to listing"
+    (write-file sample-dir "a.clj" "I'm a clojure file")
+    (write-file sample-dir "b.cljc" "I'm a clojure common file")
+    (write-file sample-dir "c.cljx" "I'm neither")
+    (let [files (clj-files-in sample-dir)]
+      (should-contain "a.clj" (set (map #(.getName %) files)))
+      (should-contain "b.cljc" (set (map #(.getName %) files)))
+      (should-not-contain "c.cljx" (set (map #(.getName %) files)))))
+
+  (context "freshen"
+    (before
+      (repl/set-refresh-dirs sample-dir))
+
+    (it "new files are detected and added to tracker"
+      (repl/clear)
+      (freshen)
+      (should= 2 (count (::dir/files repl/refresh-tracker)))
+      (should-contain "a.clj" (set (map #(.getName %) (::dir/files repl/refresh-tracker))))
+      (should-contain "b.cljc" (set (map #(.getName %) (::dir/files repl/refresh-tracker)))))
+
+    (it "refresh dirs are updated to nil indicating the classpath"
+      (freshen)
+      (should= nil repl/refresh-dirs)))
+
+  (repl/clear))

src/speclj/freshener.clj

@@ -2,6 +2,7 @@
   (:use
     [clojure.java.io :only (file)])
   (:require
+    [clojure.tools.namespace.dir :as dir]
     [clojure.tools.namespace.repl :as repl]
     [clojure.tools.namespace.reload :as reload]))
 
@@ -19,10 +20,7 @@
   "Returns a seq of all clojure source files contained in the given directories."
   [& dirs] (apply find-files-in clj-file-regex dirs))
 
-(defn return-n [n]
-  n)
-
 (defn freshen []
   (repl/scan)
   (alter-var-root #'repl/refresh-tracker reload/track-reload)
-  (apply repl/set-refresh-dirs []))
+  (repl/set-refresh-dirs))