[elpa] externals/ssh-deploy a5aa5f6 093/133: Run only async test with threads if threads are available

[Stefan Monnier]

branch: externals/ssh-deploy
commit a5aa5f6f513f13c8435b89bbcf9e32c84679d1e2
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Run only async test with threads if threads are available
---
 ssh-deploy-test.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/ssh-deploy-test.el b/ssh-deploy-test.el
index 18c2694..93405e6 100644
--- a/ssh-deploy-test.el
+++ b/ssh-deploy-test.el
@@ -363,6 +363,7 @@
   (let ((ssh-deploy-verbose 1)
         (ssh-deploy-debug 1)
         ;; (debug-on-error t)
+        (async-threads (fboundp 'make-thread'))
         (async-el (fboundp 'async-start))
         (ssh-deploy-revision-folder (file-truename (expand-file-name 
"revisions"))))
     (when (and ssh-deploy-verbose
@@ -380,29 +381,32 @@
       (ssh-deploy-test--detect-remote-changes 0 0)
       (when async-el
         (ssh-deploy-test--detect-remote-changes 1 0))
-      (ssh-deploy-test--detect-remote-changes 1 1)
+      (when async-threads
+        (ssh-deploy-test--detect-remote-changes 1 1))
 
       ;; Upload
       (ssh-deploy-test--upload 0 0)
       (when async-el
         (ssh-deploy-test--upload 1 0))
-      (ssh-deploy-test--upload 1 1)
+      (when async-threads
+        (ssh-deploy-test--upload 1 1))
 
       ;; Download
       (ssh-deploy-test--download 0 0)
       (when async-el
         (ssh-deploy-test--download 1 0))
-      (ssh-deploy-test--download 1 1)
+      (when async-threads
+        (ssh-deploy-test--download 1 1))
 
       ;; Rename And Delete
       (ssh-deploy-test--rename-and-delete 0 0)
       (when async-el
         (ssh-deploy-test--rename-and-delete 1 0))
-      (ssh-deploy-test--rename-and-delete 1 1)
+      (when async-threads
+        (ssh-deploy-test--rename-and-delete 1 1))
 
       (delete-directory ssh-deploy-revision-folder t)
 
-
       )))
 
 (ssh-deploy-test)