/access-control-app/test/cmr/access_control/test/services/acl_util.clj

https://github.com/nasa/Common-Metadata-Repository · Clojure · 33 lines · 29 code · 4 blank · 0 comment · 1 complexity · 428fc6bfcf1ffd09669119d1da8551dd MD5 · raw file 

    

  1. (ns cmr.access-control.test.services.acl-util
    2. 

  2.   (:require
    3. 

  3.     [clojure.test :refer :all]
    4. 

  4.     [cmr.access-control.services.acl-util :as acl-util]
    5. 

  5.     [cmr.access-control.test.util :as u]
    6. 

  6.     [cmr.common.util :as util :refer [are3]]
    7. 

  7.     [cmr.mock-echo.client.echo-util :as e]))
    8. 

  8. 

  9. (deftest acl-log-message
    10. 

  10.   (let [token (e/login (u/conn-context) "admin")]
    11. 

  11.     (testing "Create, update, and delete ACL log message function"
    12. 

  12.       (are3 [new-acl existing-acl action expected-message]
    13. 

  13.             (is (= expected-message
    14. 

  14.                    (acl-util/acl-log-message
    15. 

  15.                     (merge (u/conn-context) {:token token}) new-acl existing-acl action)))
    16. 

  16. 

  17.             "Create ACL log message"
    18. 

  18.             {:group-permissions [{:user-type "guest", :permissions ["create" "delete"]}], :system-identity {:target "TAG_GROUP"}}
    19. 

  19.             nil
    20. 

  20.             :create
    21. 

  21.             "User: [admin] Created ACL [{:group-permissions [{:user-type \"guest\", :permissions [\"create\" \"delete\"]}], :system-identity {:target \"TAG_GROUP\"}}]"
    22. 

  22. 

  23.             "Update ACL log message"
    24. 

  24.             {:group-permissions [{:user-type "guest", :permissions ["create" "delete"]}], :system-identity {:target "TAG_GROUP"}}
    25. 

  25.             {:group-permissions [{:user-type "guest", :permissions ["create"]}], :system-identity {:target "TAG_GROUP"}}
    26. 

  26.             :update
    27. 

  27.             "User: [admin] Updated ACL,\n before: [{:group-permissions [{:user-type \"guest\", :permissions [\"create\"]}], :system-identity {:target \"TAG_GROUP\"}}]\n after: [{:group-permissions [{:user-type \"guest\", :permissions [\"create\" \"delete\"]}], :system-identity {:target \"TAG_GROUP\"}}]"
    28. 

  28. 

  29.             "Delete ACL log message"
    30. 

  30.             "new-acl"
    31. 

  31.             {:group-permissions [{:user-type "guest", :permissions ["create" "delete"]}], :system-identity {:target "TAG_GROUP"}}
    32. 

  32.             :delete
    33. 

  33.             "User: [admin] Deleted ACL [{:group-permissions [{:user-type \"guest\", :permissions [\"create\" \"delete\"]}], :system-identity {:target \"TAG_GROUP\"}}]"))))
    34.