      (catch AssertionError e#
        (.getMessage e#))))
 
-(deftest defmannerisms-test
+(deftest test-defmannerisms
   (defmannerisms odd-number odd-number-etq)
   (doseq [v [nil 1 {} 2 "3"]]
     (doseq [[pfunc func] [[proper-odd-number? proper?]

    (is (= (list odd-msg) (bad-manners odd-number-etq 2)))
    (is (= (list) (bad-manners odd-number-etq 3)))))

(deftest rude?-and-proper?-test
  (testing "are complements"
    (is (rude? odd-number-etq 2))
    (is (not (proper? odd-number-etq 2)))
    (is (not (rude? odd-number-etq 1)))
    (is (proper? odd-number-etq 1))))

(deftest avow-test
  (testing "throws an error when bad manners are found"
    (is (thrown? AssertionError #"it should be odd, it should be a number"
                 (avow odd-number-etq nil)))

  (manner d-keyword-coach
          (comp (partial = "derp") name) "name is derp"))

(deftest test-manner
  (testing "simple manner"
    (let [truthy-str-coach (manner identity "is truthy"
                                   string? "is a string")]
