Fix paren imbalance and duplicate tests from rebase conflict resolution

Co-Authored-By: Claude Opus 4.6 (1M context) <[email protected]>

Author: timvisher-dd

agent-shell.el

@@ -5362,7 +5362,7 @@ ACTIONS as per `agent-shell--make-permission-action'."
         (when-let ((tool-calls (map-elt state :tool-calls)))
           (map-put! tool-calls tool-call-id
                     (map-insert (map-elt tool-calls tool-call-id)
-                                :diff-buffer diff-buffer)))))))
+                                :diff-buffer diff-buffer))))))))
 
 (cl-defun agent-shell--make-permission-button (&key text help action keymap navigatable char option)
   "Create a permission button with TEXT, HELP, ACTION, and KEYMAP.

tests/agent-shell-tests.el

@@ -1965,64 +1965,6 @@ code block content
         (should-not responded)
         (should (equal (map-elt state :last-entry-type) "session/request_permission"))))))
 
-;;; Tests for agent-shell-show-context-usage-indicator
-
-(ert-deftest agent-shell--context-usage-indicator-bar-test ()
-  "Test `agent-shell--context-usage-indicator' bar mode."
-  (let ((agent-shell--state
-         (list (cons :buffer (current-buffer))
-               (cons :usage (list (cons :context-used 50000)
-                                  (cons :context-size 200000)
-                                  (cons :total-tokens 50000))))))
-    (cl-letf (((symbol-function 'agent-shell--state)
-               (lambda () agent-shell--state)))
-      (let ((agent-shell-show-context-usage-indicator t))
-        (let ((result (agent-shell--context-usage-indicator)))
-          (should result)
-          (should (= (length (substring-no-properties result)) 1))
-          (should (eq (get-text-property 0 'face result) 'success)))))))
-
-(ert-deftest agent-shell--context-usage-indicator-detailed-test ()
-  "Test `agent-shell--context-usage-indicator' detailed mode."
-  (let ((agent-shell--state
-         (list (cons :buffer (current-buffer))
-               (cons :usage (list (cons :context-used 30000)
-                                  (cons :context-size 200000)
-                                  (cons :total-tokens 30000))))))
-    (cl-letf (((symbol-function 'agent-shell--state)
-               (lambda () agent-shell--state)))
-      (let ((agent-shell-show-context-usage-indicator 'detailed))
-        (let ((result (agent-shell--context-usage-indicator)))
-          (should result)
-          (should (string-match-p "30k/200k" (substring-no-properties result)))
-          (should (string-match-p "15%%" (substring-no-properties result)))
-          (should (eq (get-text-property 0 'face result) 'success)))))))
-
-(ert-deftest agent-shell--context-usage-indicator-detailed-warning-test ()
-  "Test `agent-shell--context-usage-indicator' detailed mode with warning face."
-  (let ((agent-shell--state
-         (list (cons :buffer (current-buffer))
-               (cons :usage (list (cons :context-used 140000)
-                                  (cons :context-size 200000)
-                                  (cons :total-tokens 140000))))))
-    (cl-letf (((symbol-function 'agent-shell--state)
-               (lambda () agent-shell--state)))
-      (let ((agent-shell-show-context-usage-indicator 'detailed))
-        (let ((result (agent-shell--context-usage-indicator)))
-          (should (eq (get-text-property 0 'face result) 'warning)))))))
-
-(ert-deftest agent-shell--context-usage-indicator-nil-test ()
-  "Test `agent-shell--context-usage-indicator' returns nil when disabled."
-  (let ((agent-shell--state
-         (list (cons :buffer (current-buffer))
-               (cons :usage (list (cons :context-used 50000)
-                                  (cons :context-size 200000)
-                                  (cons :total-tokens 50000))))))
-    (cl-letf (((symbol-function 'agent-shell--state)
-               (lambda () agent-shell--state)))
-      (let ((agent-shell-show-context-usage-indicator nil))
-        (should-not (agent-shell--context-usage-indicator))))))
-
 ;;; Idle notification tests
 
 (ert-deftest agent-shell--idle-notification-start-sets-timer-and-hook-test ()
@@ -2119,7 +2061,7 @@ code block content
         (agent-shell--idle-notification-start)
         (should-not (map-elt agent-shell--state :idle-notification-timer))
         (should-not (memq #'agent-shell--idle-notification-cancel
-                          (buffer-local-value 'post-command-hook (current-buffer)))))))
+                          (buffer-local-value 'post-command-hook (current-buffer))))))))
 
 (ert-deftest agent-shell-alert--detect-terminal-term-program-test ()
   "Test terminal detection via TERM_PROGRAM."