branch: externals/dtache
commit 0f3dce21911371c1edac40c82b17ec53ee58e436
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@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)
