[elpa] externals/dtache 7fe012d48e 03/11: Address redraw in tests

[ELPA Syncer]

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

    Address redraw in tests
    
    Also simplify build script.
---
 .build.yml          | 1 -
 dtache.el           | 2 +-
 test/dtache-test.el | 4 ++--
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/.build.yml b/.build.yml
index b0ad527f09..e1064d970d 100644
--- a/.build.yml
+++ b/.build.yml
@@ -7,5 +7,4 @@ environment:
 tasks:
 - guix: |
     cd $project
-    guix pull
     guix build --file=guix.scm
diff --git a/dtache.el b/dtache.el
index 7710ab95c2..c41bd7dc2f 100644
--- a/dtache.el
+++ b/dtache.el
@@ -792,7 +792,7 @@ Optionally CONCAT the command return command into a string."
                           ,socket
                           "-r none")
                         " ")
-           `(,dtach-arg ,socket "-r none"))
+           `(,dtach-arg ,socket "-r" "none"))
        (if concat
            (mapconcat #'identity
                       `(,dtache-dtach-program
diff --git a/test/dtache-test.el b/test/dtache-test.el
index 5268f6e7a0..59887bd334 100644
--- a/test/dtache-test.el
+++ b/test/dtache-test.el
@@ -90,8 +90,8 @@
        (should (equal expected (dtache-dtach-command session)))
        (should (equal expected-concat (dtache-dtach-command session t))))
      (let* ((dtache-session-mode 'attach)
-            (expected `("-a" ,(dtache--session-file session 'socket t)))
-            (expected-concat (format "%s -a %s"
+            (expected `("-a" ,(dtache--session-file session 'socket t) "-r" 
"none"))
+            (expected-concat (format "%s -a %s -r none"
                                      dtache-dtach-program
                                      (dtache--session-file session 'socket 
t))))
        (should (equal expected (dtache-dtach-command session)))