new (gen)
        [status body] (request :post url (json/encode new))
        _ (is (= 201 status))
        _ (is (uuid-str? (:id body)))
        ;; list
        [status list1] (request :get url)
        _ (is (= 200 status))
        _ (is (= [new] (for [x (set/difference (set list1) originals)]
                         (select-keys x (keys new)))))
        ;; get
        [status new-rep] (request :get (str url "/" (url-key body)))
        _ (is (= 200 status))
        _ (is (= new (select-keys new-rep (keys new))))

Generated by Phil Hagelberg using scpaste at Wed Jun 21 15:25:43 2017. PDT. (original)