test_clean.clj

(ns test-clean
  (:refer-clojure :exclude [compile])
  (:use [leiningen.core :only [read-project defproject]]
        [leiningen.deps :only [deps]]
	[leiningen.clean :only [clean]]
	[leiningen.compile :only [compile]] :reload-all)
  (:use [clojure.test]
        [clojure.contrib.set]
        [clojure.contrib.java-utils :only [file]]))

(def test-project (read-project "sample/project.clj"))

(deftest test-clean
  (deps test-project) ; to have lib/
  (compile test-project) ; and classes/
  (clean test-project) ; test cleaning
  (doseq [name ["lib" "classes"]]
    (is (not (.exists (file "sample" name))) (str name " should not exist"))))