Update dir/modified-files function to no longer throw

Author: brandoncorrea

src/main/clojure/clojure/tools/namespace/dir.clj

@@ -27,8 +27,13 @@
        (mapcat #(find/find-sources-in-dir % platform))
        ))                                          ;;; ditto:  (map #(.getCanonicalFile ^File %))
 
+(defn- modified-since-tracked? [tracker file]
+  (if-let [time (::time tracker)]
+    (DateTime/op_LessThan time (.LastWriteTimeUtc ^FileSystemInfo file))
+    true))
+
 (defn- modified-files [tracker files]
-  (filter #(DateTime/op_LessThan ^DateTime (::time tracker 0) (.LastWriteTimeUTC ^FileSystemInfo %)) files))         ;;; (.lastModified ^File %)
+  (filter (partial modified-since-tracked? tracker) files))         ;;; (.lastModified ^File %)
 
 (defn- deleted-files [tracker files]
   (set/difference (::files tracker #{}) (set files)))
@@ -129,6 +134,3 @@
     (instance? DirectoryInfo x) x
 	(string? x) (DirectoryInfo. ^String x)
 	:default (DirectoryInfo. (str x))))
-	
-	
-  

src/test/clojure/clojure/tools/namespace/dir_test.clj

@@ -4,6 +4,17 @@
             [clojure.tools.namespace.dir :as dir])
   #_(:import
    (java.io File)))
+
+(defmacro is-not-thrown? [& body]
+  `(try
+     ~@body
+     (is true "No exception thrown")
+     (catch Exception e#
+       (is false (str "Expected no exception, but got: " (.GetType e#) ": " (.-Message e#))))))
+
+(deftest scan-dirs-does-not-throw
+  (is-not-thrown? (dir/scan-dirs {})))
+
 ;;; I don't know what the equivalent test would be for .Net.
 #_(defn- make-symbolic-link
   "Reflectively calls java.nio.file.Files/createSymbolicLink on two
@@ -35,4 +46,4 @@
           link (File. other-dir "link")]
       (make-symbolic-link link dir)
       (is (= (::dir/files (dir/scan-dirs {} [dir]))
-             (::dir/files (dir/scan-dirs {} [link])))))))
+             (::dir/files (dir/scan-dirs {} [link])))))))