Merge pull request #939 from nuvla/issue_tasklist_2277_2

feature(dg-min-req): cleanup, additional tests
nuvla · Sep 4, 2024 · c5c1ad7 · c5c1ad7
2 parents 6cf45c4 + 745c951
commit c5c1ad7
Show file tree

Hide file tree

Showing 3 changed files with 260 additions and 75 deletions.
diff --git a/code/src/com/sixsq/nuvla/server/resources/deployment_set.clj b/code/src/com/sixsq/nuvla/server/resources/deployment_set.clj
@@ -248,13 +248,13 @@ These resources represent a deployment set that regroups deployments.
                               (crud/get-resource-throw-nok request))]
     (r/json-response (utils/check-requirements deployment-set applications-sets))))
 
-(defn operationnal-status-content
+(defn operational-status-content
   [resource _request]
   (-> resource :operational-status r/json-response))
 
 (defmethod crud/do-action [resource-type utils/action-operational-status]
   [request]
-  (standard-action request operationnal-status-content))
+  (standard-action request operational-status-content))
 
 (defmethod crud/do-action [resource-type utils/action-start]
   [request]

diff --git a/code/src/com/sixsq/nuvla/server/resources/deployment_set/utils.clj b/code/src/com/sixsq/nuvla/server/resources/deployment_set/utils.clj
@@ -71,8 +71,6 @@
 
 (def guard-fleet-filter-defined? :fleet-filter-defined)
 
-(def guard-admin? :fleet-filter-defined)
-
 (defn transition-ok
   [to-state]
   {::tk/on action-ok ::tk/to to-state ::tk/guards [sm/guard-is-admin?]})