           (select-keys [:id :name]))
       => {:id 1 :name "fizzbuzz"})
 
-    (fact "it can clean up after the tests by deleting a table"
-      (-> (query db "DROP TABLE widgets")
-          (f/map* ok?)
-          (f/await))
-      => true)
-
     ))

          (f/await))
      => 1)

    (fact "it understands how to unbox a wide range of data types"
      (let [rows (-> (prepare db "SELECT * FROM WIDGETS")
                     (exec)
                     (f/map* ResultSet->vec)

        => (Timestamp/valueOf "2014-12-24 10:11:12")
        ))

    (fact :mysql "it can select from the table using the rich client"
      (let [rows (-> (select-sql db "SELECT * FROM widgets" Row->map)
                     (f/await))]
        (count rows)
