[elpa] externals/dtache 0f3dce2191 04/14: Fix tests

[ELPA Syncer]

branch: externals/dtache
commit 0f3dce21911371c1edac40c82b17ec53ee58e436
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Fix tests
---
 test/dtache-test.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/test/dtache-test.el b/test/dtache-test.el
index 2cfb82b381..e752e2b65c 100644
--- a/test/dtache-test.el
+++ b/test/dtache-test.el
@@ -81,14 +81,14 @@
                         "-c" ,(dtache--session-file session 'socket t)
                         "-z" ,dtache-shell-program
                         "-c"
-                        ,(format "{ dtache-env ls\\ -la; } 2>&1 | tee %s"
+                        ,(format "{ dtache-env smart ls\\ -la; } 2>&1 | tee %s"
                                  (dtache--session-file session 'log t))))
             (expected-concat (format "%s -c %s -z %s -c %s"
                                      dtache-dtach-program
                                      (dtache--session-file session 'socket t)
                                      dtache-shell-program
                                      (shell-quote-argument
-                                      (format "{ dtache-env ls\\ -la; } 2>&1 | 
tee %s"
+                                      (format "{ dtache-env smart ls\\ -la; } 
2>&1 | tee %s"
                                               (dtache--session-file session 
'log t))))))
        (should (equal expected (dtache-dtach-command session)))
        (should (equal expected-concat (dtache-dtach-command session t))))
@@ -234,10 +234,13 @@
                                                 :id 'foo123)))
     ;; With dtache-env
     (let ((dtache-env "dtache-env"))
-      (should (string= "{ dtache-env ls\\ -la; } 2>&1 | tee 
/tmp/dtache/foo123.log"
+      (should (string= "{ dtache-env smart ls\\ -la; } 2>&1 | tee 
/tmp/dtache/foo123.log"
                        (dtache--dtache-command attachable-session)))
-      (should (string= "{ dtache-env ls\\ -la; } &> /tmp/dtache/foo123.log"
-                       (dtache--dtache-command nonattachable-session))))
+      (should (string= "{ dtache-env smart ls\\ -la; } &> 
/tmp/dtache/foo123.log"
+                       (dtache--dtache-command nonattachable-session)))
+      (let ((dtache-env-smart-mode-block-list '("ls -la")))
+        (should (string= "{ dtache-env dumb ls\\ -la; } 2>&1 | tee 
/tmp/dtache/foo123.log"
+                       (dtache--dtache-command attachable-session)))))
 
     ;; Without dtache-env
     (let ((dtache-env nil)