Tests as a separate project

project.clj

@@ -1,5 +1,4 @@
 (defproject predicates "1.0.0-SNAPSHOT"
   :dependencies [[org.clojure/clojure "1.5.1"]
-                 [midje-grader "0.1.0-SNAPSHOT"]]
-  :profiles {:dev {:dependencies [[midje "1.5.1"]]
-                   :plugins [[lein-midje "3.1.1"]]}})
+                 [iloveponies.tests/predicates "0.1.0-SNAPSHOT"]]
+  :profiles {:dev {:plugins [[lein-midje "3.1.1"]]}})

test/predicates_test.clj

@@ -1,114 +1,2 @@
 (ns predicates-test
-  (:use predicates
-        midje.sweet))
-
-(facts "sum-f" {:exercise 1
-                :points 1}
-  (sum-f inc dec 4)      => 8
-  (sum-f inc identity 5) => 11
-  (sum-f identity - 10)  => 0)
-
-(facts {:exercise 2
-        :points 1}
-  (facts "less-than" 
-    (filter (less-than 3) [1 2 3 4 5])   => [1 2]
-    (filter (less-than 4) [-2 12 3 4 0]) => [-2 3 0])
-
-  (facts "equal-to"
-    (filter (equal-to 2) [2 1 3 2.0]) => [2 2.0]
-    (filter (equal-to 2) [3 4 5 6])   => []))
-
-(facts "set->predicate" {:exercise 3
-                         :points 1}
-  (filter (set->predicate #{1 2 3})     [0 2 4 6])       => [2]
-  (filter (set->predicate #{1 2 3 nil}) [2 nil 4 nil 6]) => [2 nil nil])
-
-(facts "pred-and" {:exercise 4
-                   :points 1}
-  (filter (pred-and pos? even?) [1 2 -4 0 6 7 -3])
-  => [2 6]
-  (filter (pred-and pos? odd?) [1 2 -4 0 6 7 -3])
-  => [1 7]
-  (filter (pred-and (complement nil?) empty?) [[] '() nil {} #{}])
-  => [[] '() {} #{}])
-
-(facts "pred-or" {:exercise 5
-                  :points 1}
-  (filter (pred-or pos? odd?) [1 2 -4 0 6 7 -3])  => [1 2 6 7 -3]
-  (filter (pred-or pos? even?) [1 2 -4 0 6 7 -3]) => [1 2 -4 0 6 7])
-
-(facts "blank?" {:exercise 6
-                 :points 1}
-  (blank? " \t\n\t ") => true
-  (blank? "  \t a")   => false
-  (blank? "")         => true)
-
-(def awards #{:locus, :world-fantasy, :hugo})
-
-(def china {:name "China Miéville", :birth-year 1972})
-(def octavia {:name "Octavia E. Butler"
-              :birth-year 1947
-              :death-year 2006})
-(def kay {:name "Guy Gavriel Kay" :birth-year 1954})
-(def dick {:name "Philip K. Dick", :birth-year 1928, :death-year 1982})
-(def zelazny {:name "Roger Zelazny", :birth-year 1937, :death-year 1995})
-
-(def authors #{china, octavia, kay, dick, zelazny})
-
-(def cities {:title "The City and the City" :authors #{china}
-             :awards #{:locus, :world-fantasy, :hugo}})
-(def wild-seed {:title "Wild Seed", :authors #{octavia}})
-(def lord-of-light {:title "Lord of Light", :authors #{zelazny}
-                    :awards #{:hugo}})
-(def deus-irae {:title "Deus Irae", :authors #{dick, zelazny}})
-(def ysabel {:title "Ysabel", :authors #{kay}, :awards #{:world-fantasy}})
-(def scanner-darkly {:title "A Scanner Darkly" :authors #{dick}})
-
-(def books #{cities, wild-seed, lord-of-light,
-             deus-irae, ysabel, scanner-darkly})
-
-(facts "has-award?" {:exercise 7
-                     :points 1}
-  (has-award? ysabel :world-fantasy) => true
-  (has-award? scanner-darkly :hugo)  => false)
-
-(facts "HAS-ALL-THE-AWARDS?" {:exercise 8
-                              :points 1}
-  (HAS-ALL-THE-AWARDS? cities #{:locus})
-  => true
-  (HAS-ALL-THE-AWARDS? cities #{:locus :world-fantasy :hugo})
-  => true
-  (HAS-ALL-THE-AWARDS? cities #{:locus :world-fantasy :hugo :pulitzer})
-  => false
-  (HAS-ALL-THE-AWARDS? lord-of-light #{:locus :world-fantasy :hugo})
-  => false
-  (HAS-ALL-THE-AWARDS? lord-of-light #{:hugo})
-  => true
-  (HAS-ALL-THE-AWARDS? scanner-darkly #{})
-  => true)
-
-(facts "my-some" {:exercise 9
-                  :points 1}
-  (my-some even? [1 3 5 7])       => falsey
-  (my-some even? [1 3 5 7 8])     => true
-  (my-some neg? [1 3 5 0 7 8])    => falsey
-  (my-some neg? [1 3 5 0 7 -1 8]) => true
-  (my-some neg? [])               => falsey
-  (my-some first [[false] [1]])   => 1
-  (my-some first [[false] []])    => falsey
-  (my-some nil? [1 2])            => falsey
-  (my-some nil? [1 nil 2])        => true)
-
-(facts "my-every?" {:exercise 10
-                    :points 1}
-  (my-every? pos? [1 2 3 4])   => true
-  (my-every? pos? [1 2 3 4 0]) => false
-  (my-every? even? [2 4 6])    => true
-  (my-every? even? [])         => true)
-
-(facts "prime?" {:exercise 11
-                 :points 1}
-  (prime? 4)                   => false
-  (prime? 7)                   => true
-  (prime? 10)                   => false
-  (filter prime? (range 2 50)) => [2 3 5 7 11 13 17 19 23 29 31 37 41 43 47])
+  (:use iloveponies.tests.predicates))