diff options
Diffstat (limited to 'tests/test-ai-config--apply-model-selection.el')
| -rw-r--r-- | tests/test-ai-config--apply-model-selection.el | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/tests/test-ai-config--apply-model-selection.el b/tests/test-ai-config--apply-model-selection.el deleted file mode 100644 index 4ccd6d7a0..000000000 --- a/tests/test-ai-config--apply-model-selection.el +++ /dev/null @@ -1,45 +0,0 @@ -;;; test-ai-config--apply-model-selection.el --- Tests for cj/--gptel-apply-model-selection -*- lexical-binding: t; -*- - -;;; Commentary: -;; cj/--gptel-apply-model-selection is the apply step extracted from the -;; interactive cj/gptel-change-model: it sets gptel-backend/gptel-model globally -;; or buffer-locally and returns the confirmation message. The extraction also -;; dropped a dead `(if (stringp model) ...)' branch (model is always a symbol by -;; that point). - -;;; Code: - -(require 'ert) - -(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory)) -(require 'ai-config) - -(defvar gptel-backend) -(defvar gptel-model) - -(ert-deftest test-ai-config-apply-model-global-sets-globals () - "Normal: global scope assigns the global vars and reports (global)." - (let ((gptel-backend nil) (gptel-model nil)) - (let ((msg (cj/--gptel-apply-model-selection "global" 'mybackend 'mymodel "MyAI"))) - (should (eq gptel-backend 'mybackend)) - (should (eq gptel-model 'mymodel)) - (should (string-match-p "MyAI" msg)) - (should (string-match-p "mymodel" msg)) - (should (string-match-p "global" msg))))) - -(ert-deftest test-ai-config-apply-model-buffer-sets-buffer-locals () - "Normal: buffer scope makes the vars buffer-local and reports (buffer-local)." - (let ((gptel-backend 'orig) (gptel-model 'origm)) - (with-temp-buffer - (let ((msg (cj/--gptel-apply-model-selection "buffer" 'be 'mo "Name"))) - (should (local-variable-p 'gptel-backend)) - (should (local-variable-p 'gptel-model)) - (should (eq gptel-backend 'be)) - (should (eq gptel-model 'mo)) - (should (string-match-p "buffer-local" msg)))) - ;; outside the temp buffer the globals are untouched - (should (eq gptel-backend 'orig)) - (should (eq gptel-model 'origm)))) - -(provide 'test-ai-config--apply-model-selection) -;;; test-ai-config--apply-model-selection.el ends here |
