     (manufacturer/update {:id id :name "Schmoomdai Motors" :founded "2008"})
     (is (= 
       {:name "Schmoomdai Motors" :grade 90 :founded "2008"}
-      (select-keys (manufacturer/get-record id) [:name :grade :founded])))))
+      (select-keys (manufacturer/get-record id) [:name :grade :founded])))
+    (manufacturer/destroy-record humedai)))
 
 (deftest to-conditions
   (are (= _1 (core/to-conditions _2))

    [clj-record.test.model.product :as product])
  (:use clojure.contrib.test-is))


(deftest table-name-is-permissive-about-input-type
  (are (= _1 (core/table-name _2))

    "manufacturers"  (manufacturer/table-name)
    "products"       (product/table-name)))

(deftxntest insert-returns-id-of-new-record
  (let [id (manufacturer/insert {:name "ACME"})
        acme (manufacturer/get-record id)]
    (is (= "ACME" (acme :name)))))

(deftxntest get-record-by-id
  (let [humedai (manufacturer/create {:name "Humedai Motors"})]
    (is (= humedai (manufacturer/get-record (:id humedai))))))

(deftest get-record-throws-if-not-found
  (is (thrown? IllegalArgumentException (manufacturer/get-record -1))))
