refactor: special-resource-handler -> resource-handler-500

samply · Nov 21, 2024 · f315918 · f315918
1 parent b102e49
commit f315918
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/modules/rest-util/test/blaze/middleware/fhir/output_test.clj b/modules/rest-util/test/blaze/middleware/fhir/output_test.clj
@@ -54,12 +54,15 @@
    (fn [_ respond _]
      (respond (ring/status 200)))))
 
-(defn- special-resource-handler [resource]
-  (wrap-output
+(defn- common-handler-500 [wrapper-middleware resource]
+  (wrapper-middleware
    (fn [_ respond _]
      (respond (-> (ring/response resource)
                   (ring/status 500))))))
 
+(defn- resource-handler-500 [resource]
+  (common-handler-500 wrap-output resource))
+
 (defn- parse-json [body]
   (fhir-spec/conform-json (fhir-spec/parse-json body)))
 
@@ -159,7 +162,7 @@
       :body := nil))
 
   (testing "failing XML emit"
-    (given (call (special-resource-handler {:fhir/type :fhir/Patient :id "0" :gender #fhir/code"foo\u001Ebar"}) {:headers {"accept" "application/fhir+xml"}})
+    (given (call (resource-handler-500 {:fhir/type :fhir/Patient :id "0" :gender #fhir/code"foo\u001Ebar"}) {:headers {"accept" "application/fhir+xml"}})
       :status := 500
       [:headers "Content-Type"] := "application/fhir+xml;charset=utf-8"
       [:body parse-xml :fhir/type] := :fhir/OperationOutcome