Oke, longer timeout values.

private/player.rkt

@@ -204,7 +204,9 @@
                         id action (length (playback-agent-commands agent)))
        command))))
 
-(define agent-heartbeat-timeout-seconds 10)
+;; Allow mobile network interruptions without discarding the playback session
+;; and pending commands while the agent continues playing cached audio.
+(define agent-heartbeat-timeout-seconds 120)
 
 (define (prune-stale-agents! value)
   (with-state-lock
@@ -1834,6 +1836,46 @@
            rackunit
            racket/file)
 
+  (test-case "agent survives a mobile interruption and expires after prolonged silence"
+    (let* ((app-id (make-string 64 #\c))
+           (value (make-player '() #:playlist-keystore #f #:local-output? #f
+                               #:allowed-agent-ids (list app-id))))
+      (dynamic-wind
+        void
+        (λ ()
+          (player-agent-register! value (hasheq 'appId app-id))
+          (let* ((agent (agent-by-id value app-id))
+                 (session (playback-session-for! value "anonymous"))
+                 (id (agent-renderer-id app-id))
+                 (command (enqueue-agent-command! value agent "pause")))
+            (set-playback-session-selected-id! session id)
+            (set-playback-session-backend! session agent)
+            (set-playback-session-backend-kind! session 'agent)
+            (set-playback-session-state! session 'playing)
+            (hash-set! (player-renderer-owners value) id session)
+            ;; A minute without polls must preserve the renderer and its owner.
+            (set-playback-agent-last-seen! agent (- (current-seconds) 60))
+            (prune-stale-agents! value)
+            (check-eq? (agent-by-id value app-id) agent)
+            (check-equal? (playback-session-selected-id session) id)
+            (check-eq? (playback-session-backend session) agent)
+            (check-eq? (playback-session-state session) 'playing)
+            (check-eq? (hash-ref (player-renderer-owners value) id #f) session)
+            ;; Reconnection delivers the pending command and refreshes liveness.
+            (check-equal? (hash-ref (player-agent-poll! value (hasheq 'appId app-id))
+                                    'command)
+                          command)
+            (prune-stale-agents! value)
+            (check-eq? (agent-by-id value app-id) agent)
+            (set-playback-agent-last-seen! agent (- (current-seconds) 121))
+            (prune-stale-agents! value)
+            (check-false (agent-by-id value app-id))
+            (check-false (renderer-by-id value id))
+            (check-false (playback-session-backend session))
+            (check-eq? (playback-session-state session) 'stopped)
+            (check-false (hash-ref (player-renderer-owners value) id #f))))
+        (λ () (player-close! value)))))
+
   (test-case "playlist versions cache 1000 tracks and follow user mutations"
     (let ((value (make-player '() #:playlist-keystore #f #:local-output? #f)))
       (dynamic-wind