2010-09-25 02:22:50 +00:00
|
|
|
(ns selectors
|
|
|
|
(:use [clojure.test]
|
|
|
|
[clojure.java.io]))
|
|
|
|
|
|
|
|
(defn record-ran [t]
|
2010-11-17 20:22:24 +00:00
|
|
|
(let [file-name (format "%s/lein-test-ran"
|
|
|
|
(System/getProperty "java.io.tmpdir"))]
|
|
|
|
(with-open [w (writer file-name :append true)]
|
|
|
|
(.write w (str t "\n")))))
|
2010-09-25 02:22:50 +00:00
|
|
|
|
2013-08-01 04:29:19 +00:00
|
|
|
(use-fixtures :each (fn [t] (record-ran :fixture) (t)))
|
|
|
|
|
2010-09-25 02:22:50 +00:00
|
|
|
(deftest ^{:integration true} integration-test
|
|
|
|
(record-ran :integration)
|
|
|
|
(is true))
|
|
|
|
|
|
|
|
(deftest regular
|
|
|
|
(record-ran :regular)
|
|
|
|
(is true))
|
|
|
|
|
|
|
|
(deftest ^{:custom false} not-custom
|
|
|
|
(record-ran :not-custom)
|
|
|
|
(is true))
|
|
|
|
|
|
|
|
(deftest ^{:int2 true} integration-2
|
|
|
|
(record-ran :int2)
|
|
|
|
(is true))
|