impl ILookup for response proxy

onionpancakes · Nov 22, 2023 · d682d9e · d682d9e
1 parent ba35cdd
commit d682d9e
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/dev/onionpancakes/hop/response.clj b/src/dev/onionpancakes/hop/response.clj
@@ -12,6 +12,13 @@
    :ssl-session :previous-response])
 
 (deftype ResponseProxy [^HttpResponse response headers]
+  clojure.lang.ILookup
+  (valAt [this k]
+    (.get this k))
+  (valAt [this k not-found]
+    (if (.containsKey this k)
+      (.get this k)
+      not-found))
   java.util.Map
   (clear [this]
     (throw (UnsupportedOperationException.)))

diff --git a/test/dev/onionpancakes/hop/tests/test_response.clj b/test/dev/onionpancakes/hop/tests/test_response.clj
@@ -61,6 +61,9 @@
     :previous-response  nil
     :not-a-key          nil))
 
+(deftest test-response-proxy-lookup-not-found
+  (is (= (get example-response-proxy ::foo :not-found) :not-found)))
+
 (deftest test-response-proxy-clj
   (are [value expected] (= value expected)
     example-response-proxy                     example-response-map