aboutsummaryrefslogtreecommitdiff
path: root/tests/test-ai-vterm--default-geometry.el
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test-ai-vterm--default-geometry.el')
-rw-r--r--tests/test-ai-vterm--default-geometry.el56
1 files changed, 0 insertions, 56 deletions
diff --git a/tests/test-ai-vterm--default-geometry.el b/tests/test-ai-vterm--default-geometry.el
deleted file mode 100644
index f8ec08c9..00000000
--- a/tests/test-ai-vterm--default-geometry.el
+++ /dev/null
@@ -1,56 +0,0 @@
-;;; test-ai-vterm--default-geometry.el --- Tests for host-aware display defaults -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;; ai-vterm's default display geometry is host-aware: a laptop opens the
-;; agent from the bottom (75% height), a desktop opens it from the right
-;; (50% width). `cj/--ai-vterm-default-direction' and
-;; `cj/--ai-vterm-default-size' encapsulate the `env-laptop-p' branch;
-;; they feed the default fallbacks in `cj/--ai-vterm-capture-state' and
-;; `cj/--ai-vterm-display-saved'.
-;;
-;; `env-laptop-p' is stubbed per-test so the assertions are deterministic
-;; regardless of the host the suite runs on.
-
-;;; Code:
-
-(require 'ert)
-(require 'cl-lib)
-
-(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
-(require 'ai-vterm)
-
-(ert-deftest test-ai-vterm--default-direction-laptop ()
- "Normal: on a laptop the default direction is `below'."
- (cl-letf (((symbol-function 'env-laptop-p) (lambda () t)))
- (should (eq (cj/--ai-vterm-default-direction) 'below))))
-
-(ert-deftest test-ai-vterm--default-direction-desktop ()
- "Normal: on a desktop the default direction is `right'."
- (cl-letf (((symbol-function 'env-laptop-p) (lambda () nil)))
- (should (eq (cj/--ai-vterm-default-direction) 'right))))
-
-(ert-deftest test-ai-vterm--default-size-laptop ()
- "Normal: on a laptop the default size is `cj/ai-vterm-laptop-height'."
- (let ((cj/ai-vterm-laptop-height 0.75)
- (cj/ai-vterm-desktop-width 0.5))
- (cl-letf (((symbol-function 'env-laptop-p) (lambda () t)))
- (should (= (cj/--ai-vterm-default-size) 0.75)))))
-
-(ert-deftest test-ai-vterm--default-size-desktop ()
- "Normal: on a desktop the default size is `cj/ai-vterm-desktop-width'."
- (let ((cj/ai-vterm-laptop-height 0.75)
- (cj/ai-vterm-desktop-width 0.5))
- (cl-letf (((symbol-function 'env-laptop-p) (lambda () nil)))
- (should (= (cj/--ai-vterm-default-size) 0.5)))))
-
-(ert-deftest test-ai-vterm--default-size-respects-custom-values ()
- "Boundary: the helper returns the customized values, not the literals."
- (let ((cj/ai-vterm-laptop-height 0.6)
- (cj/ai-vterm-desktop-width 0.33))
- (cl-letf (((symbol-function 'env-laptop-p) (lambda () t)))
- (should (= (cj/--ai-vterm-default-size) 0.6)))
- (cl-letf (((symbol-function 'env-laptop-p) (lambda () nil)))
- (should (= (cj/--ai-vterm-default-size) 0.33)))))
-
-(provide 'test-ai-vterm--default-geometry)
-;;; test-ai-vterm--default-geometry.el ends here