         (is (= String (type (:created e)))))
       ))
   (testing "Searching without a query returns all elements"
-    (let [response (app (-> (request :get "/api/memory/search")
-                            (header "Accept" "application/transit+json")))
-          clj-data (transit->clj (:body response))]
+    (let [[response clj-data] (get-request "/api/memory/search")]
       (is response)
       (is (= 200 (:status response)))
       (is (= "application/transit+json" (get-in response [:headers "Content-Type"])))

        (is (= String (type (:created e)))))
      ))
  (testing "Searching with a query filters the items"
    (let [response (app (-> (request :get "/api/memory/search?q=always")
                            (header "Accept" "application/transit+json")))
          clj-data (transit->clj (:body response))]
      (is response)
      (is (= 200 (:status response)))
      (is (= "application/transit+json" (get-in response [:headers "Content-Type"])))

        (is (re-seq #"always" (:thought e))))))
  (testing "Passing multiple values uses them as OR"
    ;; The following could also have been passed as "?q=always+money"
    (let [[response clj-data] (get-request "/api/memory/search" {:q "always money"})]
      (is response)
      (is (= 200 (:status response)))
      (is (= "application/transit+json" (get-in response [:headers "Content-Type"])))
