Remove dummy leiningen.core namespace.

This commit is contained in:
Phil Hagelberg 2012-02-07 18:15:12 -08:00
parent c48f6ee9df
commit e07a6fe108
4 changed files with 7 additions and 10 deletions

View file

@ -1,4 +0,0 @@
(ns leiningen.core
"Just to allow the bloody old tests to compile.")
(declare read-project defproject abort project repositories-for default-repos)

View file

@ -1,7 +1,6 @@
(ns leiningen.test.jar
(:require [clojure.java.io :as io])
(:use [clojure.test]
[leiningen.core :only [defproject read-project]]
[leiningen.jar]
[leiningen.core.eval :only [platform-nullsink]]
[leiningen.test.helper :only [tricky-name-project sample-failing-project

View file

@ -2,7 +2,6 @@
(:use [clojure.test]
[clojure.java.io :only [file]]
[leiningen.javac :only [javac]]
[leiningen.core :only [read-project defproject]]
[leiningen.test.helper :only [delete-file-recursively
#_dev-deps-project]]))

View file

@ -2,7 +2,8 @@
(:refer-clojure :exclude [test])
(:use [clojure.test]
[leiningen.test]
[leiningen.test.helper :only [tmp-dir sample-no-aot-project]]))
[leiningen.test.helper :only [tmp-dir sample-no-aot-project]])
(:require [clojure.java.io :as io]))
(use-fixtures :each
(fn [f]
@ -10,9 +11,11 @@
(.delete (java.io.File. tmp-dir "lein-test-ran"))))
(defn ran? [& expected]
(= (set expected)
(set (for [ran (.split (slurp (format "%s/lein-test-ran" tmp-dir)) "\n")]
(read-string ran)))))
(let [ran-file (io/file tmp-dir "lein-test-ran")]
(and (.exists ran-file)
(= (set expected)
(set (for [ran (.split (slurp ran-file) "\n")]
(read-string ran)))))))
(deftest test-project-selectors
(is (= [:default :integration :int2 :no-custom]