[elpa] externals/dtache 42569d1c5f 036/158: Update broken tests

[ELPA Syncer]

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

    Update broken tests
---
 dtache.el           | 3 +--
 test/dtache-test.el | 8 ++++++--
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/dtache.el b/dtache.el
index 81a9063237..4e00d91dc8 100644
--- a/dtache.el
+++ b/dtache.el
@@ -701,8 +701,7 @@ Sessions running on  current host or localhost are updated."
 
 (defun dtache--session-truncate-command (session)
   "Return a truncated string representation of SESSION's command."
-  (let ((command (dtache--session-command session))
-        (truncated-command))
+  (let ((command (dtache--session-command session)))
     (if (<= (length command) dtache-max-command-length)
         command
       (concat
diff --git a/test/dtache-test.el b/test/dtache-test.el
index 283ea61c81..7d00db6aff 100644
--- a/test/dtache-test.el
+++ b/test/dtache-test.el
@@ -114,10 +114,14 @@
 
 (ert-deftest dtache-test-session-truncate-command ()
   (let ((dtache-max-command-length 7))
-    (should (string= "12...78"
+    (dtache--session-truncate-command
+     (dtache--session-create :command "12345678"))
+    (should (string= "123...678"
                      (dtache--session-truncate-command
                       (dtache--session-create :command "12345678")))))
-  (let ((dtache-max-command-length 6))
+  (let ((dtache-max-command-length 2))
+    (dtache--session-truncate-command
+                      (dtache--session-create :command "12345678"))
     (should (string= "1...8"
                      (dtache--session-truncate-command
                       (dtache--session-create :command "12345678"))))))