Test all the things

yurrriq · Aug 19, 2015 · 7a098e3 · 7a098e3
1 parent 4da38d1
commit 7a098e3
Show file tree

Hide file tree

Showing 39 changed files with 96 additions and 68 deletions.
diff --git a/.gitignore b/.gitignore
@@ -5,7 +5,7 @@ pom.xml.asc
 *jar
 /lib/
 /classes/
-*/target/
+*target/
 /checkouts/
 .lein-deps-sum
 .lein-repl-history

diff --git a/anagram/anagram_test.clj b/anagram/anagram_test.clj
@@ -1,8 +1,6 @@
 (ns anagram-test
   (:require [clojure.test :refer :all]))
 
-(load-file "anagram.clj")
-
 (deftest no-matches
   (is (= [] (anagram/anagrams-for "diaper" ["hello" "world" "zombies" "pants"]))))
 

diff --git a/anagram/project.clj b/anagram/project.clj
@@ -3,4 +3,4 @@
   :url "https://github.com/exercism/xclojure/tree/master/anagram"
   :source-paths [""]
   :test-paths [""]
-  :dependencies [[org.clojure/clojure "1.6.0"]])
+  :dependencies [[org.clojure/clojure "1.7.0"]])
diff --git a/beer-song/beer_song_test.clj b/beer-song/beer_song_test.clj
@@ -1,8 +1,6 @@
 (ns beer-song-test
   (:require [clojure.test :refer :all]))
 
-(load-file "beer_song.clj")
-
 (def verse-8 "8 bottles of beer on the wall, 8 bottles of beer.\nTake one down and pass it around, 7 bottles of beer on the wall.\n")
 (def verse-2 "2 bottles of beer on the wall, 2 bottles of beer.\nTake one down and pass it around, 1 bottle of beer on the wall.\n")
 (def verse-1 "1 bottle of beer on the wall, 1 bottle of beer.\nTake it down and pass it around, no more bottles of beer on the wall.\n")

diff --git a/beer-song/project.clj b/beer-song/project.clj
@@ -3,4 +3,4 @@
   :url "https://github.com/exercism/xclojure/tree/master/beer-song"
   :source-paths [""]
   :test-paths [""]
-  :dependencies [[org.clojure/clojure "1.6.0"]])
+  :dependencies [[org.clojure/clojure "1.7.0"]])
diff --git a/binary/binary_test.clj b/binary/binary_test.clj
@@ -1,8 +1,6 @@
 (ns binary-test
   (:require [clojure.test :refer :all]))
 
-(load-file "binary.clj")
-
 (deftest binary-1-is-decimal-1
   (is (= 1 (binary/to-decimal "1"))))
 

diff --git a/binary/project.clj b/binary/project.clj
@@ -4,5 +4,5 @@
   :source-paths [""]
   :test-paths   [""]
   :dependencies [[org.clojure/clojure    "1.7.0"]
-                 [org.clojure/core.typed "0.3.9"]
+                 [org.clojure/core.typed "0.3.11"]
                  [funcool/cats           "0.6.1"]])
diff --git a/bob/bob_test.clj b/bob/bob_test.clj
@@ -1,8 +1,6 @@
 (ns bob-test
   (:require [clojure.test :refer :all]))
 
-(load-file "bob.clj")
-
 (deftest responds-to-something
   (is (= "Whatever." (bob/response-for "Tom-ay-to, tom-aaaah-to."))))
 

diff --git a/bob/project.clj b/bob/project.clj
@@ -3,4 +3,4 @@
   :url "https://github.com/exercism/xclojure/tree/master/bob"
   :source-paths [""]
   :test-paths [""]
-  :dependencies [[org.clojure/clojure "1.6.0"]])
+  :dependencies [[org.clojure/clojure "1.7.0"]])
diff --git a/etl/etl_test.clj b/etl/etl_test.clj
@@ -1,8 +1,6 @@
 (ns etl-test
-  (:require [clojure.test :refer :all]))
-
-(load-file "etl.clj")
-
+  (:require [clojure.core.typed :refer [check-ns]]
+            [clojure.test :refer :all]))
 
 (deftest transform-one-value
   (is (= {"world" 1}
@@ -32,4 +30,7 @@
            8  (re-seq #"\w" "JX")
            10 (re-seq #"\w" "QZ")}))))
 
+(deftest type-annotations
+  (is (check-ns 'etl)))
+
 (run-tests)
diff --git a/etl/project.clj b/etl/project.clj
@@ -3,5 +3,5 @@
   :url          "https://github.com/yurrriq/exercism/tree/clojure/etl"
   :source-paths [""]
   :test-paths   [""]
-  :dependencies [[org.clojure/clojure "1.7.0"]
-                 [org.clojure/core.typed "0.3.9"]])
+  :dependencies [[org.clojure/clojure    "1.7.0"]
+                 [org.clojure/core.typed "0.3.11"]])
diff --git a/gigasecond/gigasecond_test.clj b/gigasecond/gigasecond_test.clj
@@ -1,8 +1,6 @@
 (ns gigasecond-test
   (:require [clojure.test :refer :all]))
 
-(load-file "gigasecond.clj")
-
 (deftest from-apr-25-2011
   (is (= [2043 1 1] (gigasecond/from 2011 4 25))))
 

diff --git a/grade-school/grade_school_test.clj b/grade-school/grade_school_test.clj
@@ -1,8 +1,6 @@
 (ns grade-school-test
   (:require [clojure.test :refer :all]))
 
-(load-file "grade_school.clj")
-
 (def db {})
 
 (deftest add-student

diff --git a/grains/grains_test.clj b/grains/grains_test.clj
@@ -1,8 +1,6 @@
 (ns grains-test
   (:require [clojure.test :refer :all]))
 
-(load-file "grains.clj")
-
 (deftest square-1
   (is (= 1 (grains/square 1))))
 

diff --git a/leap/leap_test.clj b/leap/leap_test.clj
@@ -1,8 +1,6 @@
 (ns leap-test
   (:require [clojure.test :refer :all]))
 
-(load-file "leap.clj")
-
 (deftest vanilla-leap-year
   (is (leap/leap-year? 1996)))
 

diff --git a/meetup/meetup_test.clj b/meetup/meetup_test.clj
@@ -1,8 +1,6 @@
 (ns meetup-test
   (:require [clojure.test :refer :all]))
 
-(load-file "meetup.clj")
-
 (deftest monteenth-of-may-2013
   (is (= [2013 5 13] (meetup/meetup 5 2013 :monday :teenth))))
 

diff --git a/meetup/project.clj b/meetup/project.clj
@@ -3,5 +3,5 @@
   :url          "https://github.com/yurrriq/exercism/tree/clojure/meetup"
   :source-paths [""]
   :test-paths   [""]
-  :dependencies [[org.clojure/clojure "1.7.0"]
-                 [org.clojure/core.typed "0.3.9"]])
+  :dependencies [[org.clojure/clojure    "1.7.0"]
+                 [org.clojure/core.typed "0.3.11"]])
diff --git a/nucleotide-count/nucleotide_count_test.clj b/nucleotide-count/nucleotide_count_test.clj
@@ -2,8 +2,6 @@
   (:require [clojure.core.typed :refer [check-ns]]
             [clojure.test :refer :all]))
 
-(load-file "nucleotide_count.clj")
-
 (deftest empty-dna-strand-has-no-adenosine
   (is (= 0 (nucleotide-count/count \A, ""))))
 

diff --git a/nucleotide-count/project.clj b/nucleotide-count/project.clj
@@ -4,4 +4,4 @@
   :source-paths [""]
   :test-paths   [""]
   :dependencies [[org.clojure/clojure    "1.7.0"]
-                 [org.clojure/core.typed "0.3.9"]])
+                 [org.clojure/core.typed "0.3.11"]])
diff --git a/phone-number/phone_number_test.clj b/phone-number/phone_number_test.clj
@@ -1,8 +1,6 @@
 (ns phone-number-test
   (:require [clojure.test :refer :all]))
 
-(load-file "phone_number.clj")
-
 (deftest cleans-number
   (is (= "1234567890" (phone-number/number "(123) 456-7890"))))
 

diff --git a/phone-number/project.clj b/phone-number/project.clj
@@ -3,4 +3,4 @@
   :url "https://github.com/exercism/xclojure/tree/master/phone-number"
   :source-paths [""]
   :test-paths [""]
-  :dependencies [[org.clojure/clojure "1.6.0"]])
+  :dependencies [[org.clojure/clojure "1.7.0"]])
diff --git a/point-mutations/point_mutations_test.clj b/point-mutations/point_mutations_test.clj
@@ -1,8 +1,6 @@
 (ns point-mutations-test
   (:require [clojure.test :refer :all]))
 
-(load-file "point_mutations.clj")
-
 (deftest no-difference-between-empty-strands
   (is (= 0 (point-mutations/hamming-distance "" ""))))
 

diff --git a/point-mutations/project.clj b/point-mutations/project.clj
@@ -3,4 +3,4 @@
   :url "https://github.com/exercism/xclojure/tree/master/point-mutations"
   :source-paths [""]
   :test-paths [""]
-  :dependencies [[org.clojure/clojure "1.6.0"]])
+  :dependencies [[org.clojure/clojure "1.7.0"]])
diff --git a/prime-factors/prime_factors_test.clj b/prime-factors/prime_factors_test.clj
@@ -1,8 +1,6 @@
 (ns prime-factors-test
   (:require [clojure.test :refer :all]))
 
-(load-file "prime_factors.clj")
-
 (deftest one
   (is (= [] (prime-factors/of 1))))
 

diff --git a/project.clj b/project.clj
@@ -0,0 +1,47 @@
+(defproject xclojure "0.1.0"
+  :description  "Exercism Exercises in Clojure"
+  :url          "https://github.com/yurrriq/exercism/tree/clojure"
+  :source-paths ["anagram"
+                 "beer-song"
+                 "binary"
+                 "bob"
+                 "etl"
+                 "gigasecond"
+                 "grade-school"
+                 "grains"
+                 "leap"
+                 "meetup"
+                 "nucleotide-count"
+                 "phone-number"
+                 "point-mutations"
+                 ;; "prime-factors"
+                 "rna-transcription"
+                 "robot-name"
+                 "roman-numerals"
+                 "scrabble-score"
+                 "space-age"
+                 "triangle"
+                 "word-count"]
+  :test-paths   ["anagram"
+                 "beer-song"
+                 "binary"
+                 "bob"
+                 "etl"
+                 "gigasecond"
+                 "grade-school"
+                 "grains"
+                 "leap"
+                 "meetup"
+                 "nucleotide-count"
+                 "phone-number"
+                 "point-mutations"
+                 ;; "prime-factors"
+                 "rna-transcription"
+                 "robot-name"
+                 "roman-numerals"
+                 "scrabble-score"
+                 "space-age"
+                 "triangle"
+                 "word-count"]
+  :dependencies [[org.clojure/clojure    "1.7.0"]
+                 [org.clojure/core.typed "0.3.11"]])
diff --git a/rna-transcription/project.clj b/rna-transcription/project.clj
@@ -3,4 +3,4 @@
   :url "https://github.com/exercism/xclojure/tree/master/rna-transcription"
   :source-paths [""]
   :test-paths [""]
-  :dependencies [[org.clojure/clojure "1.6.0"]])
+  :dependencies [[org.clojure/clojure "1.7.0"]])
diff --git a/rna-transcription/rna_transcription_test.clj b/rna-transcription/rna_transcription_test.clj
@@ -1,8 +1,6 @@
 (ns rna-transcription-test
   (:require [clojure.test :refer :all]))
 
-(load-file "rna_transcription.clj")
-
 (deftest transcribes-cytosine-to-guanine
   (is (= "G" (rna-transcription/to-rna "C"))))
 

diff --git a/robot-name/project.clj b/robot-name/project.clj
@@ -4,5 +4,5 @@
   :source-paths [""]
   :test-paths   [""]
   :dependencies [[org.clojure/clojure "1.7.0"]
-                 [org.clojure/core.typed "0.3.9"]]
+                 [org.clojure/core.typed "0.3.11"]]
   :plugins      [[lein-typed "0.3.5"]])
diff --git a/robot-name/robot_name_test.clj b/robot-name/robot_name_test.clj
@@ -1,7 +1,6 @@
 (ns robot-name-test
-  (:require [clojure.test :refer :all]))
-
-(load-file "robot_name.clj")
+  (:require [clojure.core.typed :refer [check-ns]]
+            [clojure.test :refer :all]))
 
 (def robbie (robot-name/robot))
 (def clutz  (robot-name/robot))
@@ -27,4 +26,7 @@
 (deftest new-name-is-different-than-old-name
   (is (not (= original-name (robot-name/robot-name robbie)))))
 
+(deftest type-annotations
+  (is (check-ns 'robot-name)))
+
 (run-tests)
diff --git a/roman-numerals/project.clj b/roman-numerals/project.clj
@@ -4,4 +4,4 @@
   :source-paths [""]
   :test-paths   [""]
   :dependencies [[org.clojure/clojure    "1.7.0"]
-                 [org.clojure/core.typed "0.3.9"]])
+                 [org.clojure/core.typed "0.3.11"]])
diff --git a/roman-numerals/roman_numerals_test.clj b/roman-numerals/roman_numerals_test.clj
@@ -1,7 +1,6 @@
 (ns roman-numerals-test
-  (:require [clojure.test :refer :all]))
-
-(load-file "roman_numerals.clj")
+  (:require [clojure.core.typed :refer [check-ns]]
+            [clojure.test :refer :all]))
 
 (deftest one
   (is (= "I" (roman-numerals/numerals 1))))
@@ -57,4 +56,7 @@
 (deftest three-thousand
   (is (= "MMM" (roman-numerals/numerals 3000))))
 
+(deftest type-annotations
+  (is (check-ns 'roman-numerals)))
+
 (run-tests)
diff --git a/scrabble-score/project.clj b/scrabble-score/project.clj
@@ -4,4 +4,4 @@
   :source-paths [""]
   :test-paths   [""]
   :dependencies [[org.clojure/clojure    "1.7.0"]
-                 [org.clojure/core.typed "0.3.9"]])
+                 [org.clojure/core.typed "0.3.11"]])
diff --git a/scrabble-score/scrabble_score_test.clj b/scrabble-score/scrabble_score_test.clj
@@ -1,7 +1,6 @@
 (ns scrabble-score-test
-  (:require [clojure.test :refer :all]))
-
-(load-file "scrabble_score.clj")
+  (:require [clojure.core.typed :refer [check-ns]]
+            [clojure.test :refer :all]))
 
 (deftest lower-case-letter
   (is (= 1 (scrabble-score/score-letter "a"))))
@@ -21,4 +20,7 @@
 (deftest all-upper-case-word
   (is (= 20 (scrabble-score/score-word "MULTIBILLIONAIRE"))))
 
+(deftest type-annotations
+  (is (check-ns 'scrabble-score)))
+
 (run-tests)
diff --git a/space-age/project.clj b/space-age/project.clj
@@ -4,4 +4,4 @@
   :source-paths [""]
   :test-paths   [""]
   :dependencies [[org.clojure/clojure "1.7.0"]
-                 [org.clojure/core.typed "0.3.9"]])
+                 [org.clojure/core.typed "0.3.11"]])
diff --git a/space-age/space_age_test.clj b/space-age/space_age_test.clj
@@ -1,7 +1,6 @@
 (ns space-age-test
-  (:require [clojure.test :refer :all]))
-
-(load-file "space_age.clj")
+  (:require [clojure.core.typed :refer [check-ns]]
+            [clojure.test :refer :all]))
 
 (defn- rounds-to
   [expected actual]
@@ -46,4 +45,7 @@
     (rounds-to 260.16 (space-age/on-earth seconds))
     (rounds-to 1.58 (space-age/on-neptune seconds))))
 
+(deftest type-annotations
+  (is (check-ns 'space-age)))
+
 (run-tests)
diff --git a/triangle/project.clj b/triangle/project.clj
@@ -4,4 +4,4 @@
   :source-paths [""]
   :test-paths   [""]
   :dependencies [[org.clojure/clojure    "1.7.0"]
-                 [org.clojure/core.typed "0.3.9"]])
+                 [org.clojure/core.typed "0.3.11"]])
diff --git a/triangle/triangle_test.clj b/triangle/triangle_test.clj
@@ -1,7 +1,6 @@
 (ns triangle-test
-  (:require [clojure.test :refer :all]))
-
-(load-file "triangle.clj")
+  (:require [clojure.core.typed :refer [check-ns]]
+            [clojure.test :refer :all]))
 
 (deftest equilateral-1
   (is (= :equilateral (triangle/type 2 2 2))))
@@ -18,4 +17,7 @@
 (deftest invalid-2
   (is (= :illogical (triangle/type 1 2 1))))
 
+(deftest type-annotations
+  (is (check-ns 'triangle)))
+
 (run-tests)
diff --git a/word-count/project.clj b/word-count/project.clj
@@ -3,4 +3,4 @@
   :url "https://github.com/exercism/xclojure/tree/master/word-count"
   :source-paths [""]
   :test-paths [""]
-  :dependencies [[org.clojure/clojure "1.6.0"]])
+  :dependencies [[org.clojure/clojure "1.7.0"]])