1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(ns selectors
(:use [clojure.test]
[clojure.java.io]))
(defn record-ran [t]
(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")))))
(use-fixtures :each (fn [t] (record-ran :fixture) (t)))
(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))
|
