                              (if (:cljsbuild project) "check-cljs" "check"))
       (catch Exception _)))
   (cond
-    (:clr project)
+    (clr-project? path)
     (leiningen.clr/clr project "test")
     :else
     (leiningen.test/test project)))

    (android-project? path)
    (some-> (read-android-project project)
            (leiningen.droid/doall []))
    (:clr project)
    (leiningen.clr/clr project "run")
    (ring-project-map? project)
    (leiningen.ring/ring project "server")
    :else
    (leiningen.run/run project)))

  (or (.exists (io/file path "AndroidManifest.xml"))
      (.exists (io/file path "AndroidManifest.template.xml"))))

(defn ios-project?
  [path]
  (.exists (io/file path "Info.plist.xml")))

(defn java-project?
  [path]
  (some-> path read-project-clj java-project-map?))

(defn clojurescript-project?
  [path]
