branch: externals/ssh-deploy
commit 77f0a1daa441f50aa8603450419b12f5d19b992d
Author: Christian Johansson <[email protected]>
Commit: Christian Johansson <[email protected]>
Byte-compilation working for unit test without warning
---
ssh-deploy-test.el | 33 +++++++++++++++++++++------------
1 file changed, 21 insertions(+), 12 deletions(-)
diff --git a/ssh-deploy-test.el b/ssh-deploy-test.el
index 8c96b39..a1a9dc0 100644
--- a/ssh-deploy-test.el
+++ b/ssh-deploy-test.el
@@ -29,12 +29,19 @@
(autoload 'should "ert")
+(autoload 'ediff-same-file-contents "ediff-util")
+
(autoload 'ssh-deploy-diff-mode "ssh-deploy-diff-mode")
(autoload 'ssh-deploy "ssh-deploy")
(autoload 'ssh-deploy--get-revision-path "ssh-deploy")
(autoload 'ssh-deploy--file-is-in-path-p "ssh-deploy")
(autoload 'ssh-deploy--is-not-empty-string-p "ssh-deploy")
+(autoload 'ssh-deploy-download "ssh-deploy")
+(autoload 'ssh-deploy-upload "ssh-deploy")
+(autoload 'ssh-deploy-add-after-save-hook "ssh-deploy")
+(autoload 'ssh-deploy-add-after-save-hook "ssh-deploy")
+(autoload 'ssh-deploy-upload-handler "ssh-deploy")
(defun ssh-deploy-test--download ()
"Test downloads."
@@ -134,23 +141,25 @@
;; Turn of automatic uploads
(let ((ssh-deploy-on-explicit-save 0))
+ ;; Bypass linter again
+ (when ssh-deploy-on-explicit-save
- ;; Update should not trigger upload
- (insert file-a-contents)
- (save-buffer)
+ ;; Update should not trigger upload
+ (insert file-a-contents)
+ (save-buffer)
- ;; Verify that both files have equal contents
- (should (equal nil (ediff-same-file-contents file-a file-b)))
+ ;; Verify that both files have equal contents
+ (should (equal nil (ediff-same-file-contents file-a file-b)))
- (ssh-deploy-upload-handler)
- (kill-buffer)
+ (ssh-deploy-upload-handler)
+ (kill-buffer)
- ;; Verify that both files have equal contents
- (should (equal t (ediff-same-file-contents file-a file-b)))
+ ;; Verify that both files have equal contents
+ (should (equal t (ediff-same-file-contents file-a file-b)))
- ;; Delete both test files
- (delete-file file-b)
- (delete-file file-a))))
+ ;; Delete both test files
+ (delete-file file-b)
+ (delete-file file-a)))))
(delete-directory directory-a t)
(delete-directory directory-b t)))
