Add :resource-ids map to stack & stack-properties

Author: john-shaffer

CHANGELOG.md

@@ -1,5 +1,7 @@
 ## Unreleased
 
+- Add `:resource-ids` map to stack and stack-properties instances.
+
 ## v0.25.1 (2025-02-28)
 
 - Don't call ExecuteChangeSet on stack start when there are no

src/salmon/cloudformation.clj

@@ -394,6 +394,7 @@
                                {:stack-id stack-id
                                 :stack-name stack-name}
                                e))))
+        resources-map (resources-map resources)
         describe-r (describe-stack client stack-id)
         outputs-raw (-> describe-r :Outputs outputs-map-raw)
         parameters-raw (-> describe-r :Parameters parameters-map-raw)
@@ -405,7 +406,8 @@
      :outputs-raw outputs-raw
      :parameters (me/map-vals :ParameterValue parameters-raw)
      :parameters-raw parameters-raw
-     :resources (resources-map resources)
+     :resources resources-map
+     :resource-ids (me/map-vals :PhysicalResourceId resources-map)
      :stack-id stack-id
      :tags-raw tags-raw
      :tags (me/map-vals :Value tags-raw)}))

test/salmon/cloudformation_test.clj

@@ -576,13 +576,18 @@
   (let [sys (ds/start (system-a (stack-a :template template-b)))]
     (is (= #{:OAI1 :OAI2}
           (->> sys ::ds/instances :services :stack-a :resources
+            keys set)
+          (->> sys ::ds/instances :services :stack-a :resource-ids
             keys set))
       "Resources are retrieved and attached to the stack instance")
     (is (= #{:DriftInformation :LastUpdatedTimestamp :PhysicalResourceId
              :ResourceStatus :ResourceType}
           (->> sys ::ds/instances :services :stack-a :resources
             vals (mapcat keys) set))
       "Resource maps have the expected keys")
+    (let [oai1-id (-> sys ::ds/instances :services :stack-a :resource-ids :OAI1)]
+      (is (and (string? oai1-id) (seq oai1-id))
+        "Resource IDS are present in :resource-ids on the stack instance"))
     (ds/signal sys :salmon/delete)))
 
 (deftest test-aws-error-messages