#205 use input as output - query params only

src/protean/core/codex/placeholder.clj

@@ -119,6 +119,26 @@
 ;; Extraction functions
 ;; =============================================================================
 
+(defn- query-param-value
+  [tree request placeholder]
+  (let [qps    (d/qps tree true)
+        ph-qps (into (sorted-map) (map #(hash-map (ffirst(holder? %)) (second %)) (map-invert qps)))
+        param  (get-in ph-qps [placeholder])
+        value  (get-in request [:params (keyword param)])]
+    (when-let [qps-v (get-in qps [param])]
+      (second (re-find (re-pattern (s/replace qps-v ph "(.*)")) value)))))
+
+(defn response-bag
+  "Creates a bag of placeholder values for the response from the request"
+  [tree tree-response request]
+  (into
+    (sorted-map)
+    (map
+      #(hash-map
+        (second %)
+        (query-param-value tree request (first %)))
+      (holder? tree-response))))
+
 (defn- diff [s1 s2]
   (cond
     (and (nil? (first s1)) (nil? (first s2))) []

src/protean/core/transformation/sim.clj

@@ -191,7 +191,7 @@
         success (format-rsp (rand-nth successes))]
     (if (empty? successes)
       (log-warn "warning - no successes found for endpoint" [svc uri request-method])
-      (ph/swap success *tree* {} :gen-all true))))
+      (ph/swap success *tree* (ph/response-bag *tree* success *request*) :gen-all true))))
 
 (defn error
   "Returns a specific or randomly selected error response for an endpoint"
@@ -202,7 +202,7 @@
           error-rsp (format-rsp (first error))]
       (when (empty? errors) (log-warn "warning - no errors found for endpoint" [svc uri request-method]))
       (when (empty? error) (log-warn "warning - sim extension error not described in codex" [svc uri request-method]))
-      (if (seq error) (ph/swap error-rsp *tree* {} :gen-all true) {:status x})))
+      (if (seq error) (ph/swap error-rsp *tree* (ph/response-bag *tree* error *request*)  :gen-all true) {:status x})))
   ([] (error (Long. (name (first (rand-nth (d/error-status *tree*))))))))
 
 (defn respond