[elpa] externals/detached 28e3eb5b6a 5/6: Update tests

[ELPA Syncer]

branch: externals/detached
commit 28e3eb5b6a845dd63dcd6b2ce60104ee5c56e692
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Update tests
---
 detached.el           |  2 +-
 test/detached-test.el | 15 +++++++++------
 2 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/detached.el b/detached.el
index 84a7275ad9..67e4066e50 100644
--- a/detached.el
+++ b/detached.el
@@ -847,7 +847,7 @@ Optionally CONCAT the command return command into a string."
                         " ")
            (append
             (when detached-show-session-context
-              `(,detached-tail-program ,(concat "--lines=" 
detached-session-context-lines)
+              `(,detached-tail-program ,(format "--lines=%s" 
detached-session-context-lines)
                                        ,(concat log ";")))
             `(,detached-dtach-program ,dtach-arg ,socket "-r" "none")))
        (if concat
diff --git a/test/detached-test.el b/test/detached-test.el
index 2a6045024f..788745434a 100644
--- a/test/detached-test.el
+++ b/test/detached-test.el
@@ -69,8 +69,9 @@
    (cl-letf* ((detached-dtach-program "dtach")
               (detached-shell-program "bash")
               (session (detached-create-session "ls -la"))
-              (detached-show-output-on-attach t)
-              (detached-show-output-command "/bin/cat")
+              (detached-show-session-context t)
+              (detached-session-context-lines 20)
+              (detached-tail-program "tail")
               ((symbol-function #'detached-create-session)
                (lambda (_)
                  session))
@@ -91,12 +92,14 @@
        (should (equal expected (detached-dtach-command session)))
        (should (equal expected-concat (detached-dtach-command session t))))
      (let* ((detached-session-mode 'attach)
-            (expected `(,detached-show-output-command
-                        ,(format "%s;" (detached--session-file session 'log t))
+            (log (detached--session-file session 'log t))
+            (expected `(,detached-tail-program
+                        ,(format "--lines=%s" detached-session-context-lines)
+                        ,(format "%s;" log)
                         ,detached-dtach-program "-a" ,(detached--session-file 
session 'socket t) "-r" "none"))
             (expected-concat (format "%s %s; %s -a %s -r none"
-                                     detached-show-output-command
-                                     (detached--session-file session 'log t)
+                                     (format "%s --lines=%s" 
detached-tail-program detached-session-context-lines)
+                                     log
                                      detached-dtach-program
                                      (detached--session-file session 'socket 
t))))
        (should (equal expected (detached-dtach-command session)))