Fix cljr environment and add test

Author: dmiller

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

@@ -48,7 +48,7 @@
 (def ^{:added "0.3.0"}
   clojure-clr-extensions
   "File extensions for Clojure (CLR) files."
-  (list ".cljr" ".cljc"))
+  (list ".cljr" ".cljc" ".clj" ))
 
 (defn clojure-file?
   "Returns true if the java.io.File represents a file which will be

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

@@ -37,4 +37,17 @@
         headless-clj (help/create-headless-source dir 'example.headless :clj)]
     (is (every? #{(.Name ^System.IO.DirectoryInfo dir)}                 ;;   .getName ^java.io.File
          (map #(-> % second meta :dir)
-              (find/find-ns-decls [dir]))))))		 
+              (find/find-ns-decls [dir]))))))		 
+			  
+;;; DM: added
+(deftest t-find-cljr-and-cljc-files
+  "main.cljr depends on one.cljc which depends on two.cljr.
+  two.clj also exists but should not be returned"
+  (let [dir (help/create-temp-dir "t-find-cljr-and-cljc-files")
+        main-cljr (help/create-source dir 'example.main :cljr '[example.one])
+        one-cljc (help/create-source dir 'example.one :cljc '[example.two])
+        two-cljs (help/create-source dir 'example.two :cljs)
+        two-cljr (help/create-source dir 'example.two :cljr)]
+    (is (help/same-files?
+         [main-cljr one-cljc two-cljr]
+         (find/find-sources-in-dir dir find/cljr)))))