   (manner d-keyword-coach
           (comp (partial = "derp") name) "name is derp"))
 
-(deftest manner-test
+(deftest test-manner
   (testing "simple manner"
     (let [truthy-str-coach (manner identity "is truthy"
                                    string? "is a string")]

    (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)))

        (is (= (list nine-or-three-msg) (nine-or-three-coach 5)))
        (is (= (list) (nine-or-three-coach 3)))))))

(deftest test-bad-manners
  (testing "works with an empty etiquette"
    (is (= (list) (bad-manners [] nil)))
    (is (= (list) (bad-manners [[]] false))))
