diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2023-04-03 13:18:55 +0200 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2023-04-03 13:18:55 +0200 |
commit | 4a1df6194618b7a08bbf1dfe99c17788d0e12d62 (patch) | |
tree | c51f19c84c68c35f05e8fa7f24a67f5632ef878f /test/lisp/auth-source-tests.el | |
parent | 9a8d96da5c56c80611e4a1f6ffbd89efe0b5f51d (diff) | |
download | emacs-4a1df6194618b7a08bbf1dfe99c17788d0e12d62.tar.gz |
Fix some `unwind-protect' forms
* lisp/net/tramp-smb.el (tramp-smb-handle-file-acl)
(tramp-smb-handle-set-file-acl): Remove superfluous `unwind-protect'.
* test/lisp/auth-source-tests.el
(auth-source-test-secrets-create-secret): Fix `unwind-protect' handler.
* test/lisp/net/tramp-tests.el (tramp-test38-find-backup-file-name):
Add dummy cleanup form.
Diffstat (limited to 'test/lisp/auth-source-tests.el')
-rw-r--r-- | test/lisp/auth-source-tests.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/test/lisp/auth-source-tests.el b/test/lisp/auth-source-tests.el index 6f832725754..ef915e5fc5b 100644 --- a/test/lisp/auth-source-tests.el +++ b/test/lisp/auth-source-tests.el @@ -341,13 +341,14 @@ (should (string-equal (plist-get auth-info :user) (user-login-name))) (should (string-equal (plist-get auth-info :host) host)) - (should (string-equal auth-passwd passwd))))) - - ;; Cleanup. - ;; Should use `auth-source-delete' when implemented for :secrets backend. - (secrets-delete-item - "session" - (format "%s@%s" (plist-get auth-info :user) (plist-get auth-info :host)))))) + (should (string-equal auth-passwd passwd)))) + + ;; Cleanup. + ;; Should use `auth-source-delete' when implemented for :secrets backend. + (secrets-delete-item + "session" + (format + "%s@%s" (plist-get auth-info :user) (plist-get auth-info :host))))))) (ert-deftest auth-source-test-netrc-create-secret () (ert-with-temp-file netrc-file |