diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-gptel-tools-git-diff.el | 137 | ||||
| -rw-r--r-- | tests/test-gptel-tools-git-log.el | 135 | ||||
| -rw-r--r-- | tests/test-gptel-tools-git-status.el | 98 |
3 files changed, 370 insertions, 0 deletions
diff --git a/tests/test-gptel-tools-git-diff.el b/tests/test-gptel-tools-git-diff.el new file mode 100644 index 00000000..59666a32 --- /dev/null +++ b/tests/test-gptel-tools-git-diff.el @@ -0,0 +1,137 @@ +;;; test-gptel-tools-git-diff.el --- Tests for git_diff gptel tool -*- lexical-binding: t; -*- + +;;; Commentary: +;; Tests run against real temp git repos under HOME via `process-file'. + +;;; Code: + +(require 'ert) +(require 'cl-lib) + +(eval-and-compile + (add-to-list 'load-path (expand-file-name "tests" user-emacs-directory)) + (add-to-list 'load-path (expand-file-name "gptel-tools" user-emacs-directory)) + (setq load-prefer-newer t) + (unless (featurep 'gptel) + (defvar gptel-tools nil) + (defun gptel-make-tool (&rest _args) nil) + (defun gptel-get-tool (&rest _args) nil) + (provide 'gptel))) + +(require 'git_diff) + +;; ---------- helpers + +(defun test-gptel-tools-git-diff--with-repo (fn) + "Create a temp git repo under HOME with one committed file, call FN." + (let* ((name (format ".test-gptel-tools-git-diff-%s" + (format-time-string "%s%N"))) + (dir (expand-file-name name "~"))) + (unwind-protect + (progn + (make-directory dir) + (let ((default-directory dir)) + (call-process "git" nil nil nil "init" "--quiet") + (call-process "git" nil nil nil "config" "user.email" "test@x") + (call-process "git" nil nil nil "config" "user.name" "Test") + (with-temp-file (expand-file-name "f.txt" dir) + (insert "original\n")) + (call-process "git" nil nil nil "add" "f.txt") + (call-process "git" nil nil nil "commit" "--quiet" "-m" "initial")) + (funcall fn dir)) + (when (file-exists-p dir) (delete-directory dir t))))) + +;; ---------- build-args + +(ert-deftest test-gptel-tools-git-diff-build-args-no-refs () + "Normal: no refs / no file → bare diff args." + (should (equal (cj/gptel-git-diff--build-args nil nil nil) + '("-c" "color.ui=false" "diff")))) + +(ert-deftest test-gptel-tools-git-diff-build-args-with-ref1 () + "Normal: REF1 appended." + (should (equal (cj/gptel-git-diff--build-args "HEAD~1" nil nil) + '("-c" "color.ui=false" "diff" "HEAD~1")))) + +(ert-deftest test-gptel-tools-git-diff-build-args-with-both-refs () + "Normal: REF1 and REF2 both appended." + (should (equal (cj/gptel-git-diff--build-args "HEAD~1" "HEAD" nil) + '("-c" "color.ui=false" "diff" "HEAD~1" "HEAD")))) + +(ert-deftest test-gptel-tools-git-diff-build-args-with-file () + "Normal: FILE appended after `--'." + (should (equal (cj/gptel-git-diff--build-args nil nil "foo.txt") + '("-c" "color.ui=false" "diff" "--" "foo.txt")))) + +(ert-deftest test-gptel-tools-git-diff-build-args-boundary-empty-strings () + "Boundary: empty-string REF/FILE values are ignored." + (should (equal (cj/gptel-git-diff--build-args "" "" "") + '("-c" "color.ui=false" "diff")))) + +;; ---------- truncate + +(ert-deftest test-gptel-tools-git-diff-truncate-under-cap () + "Normal: short input returns unchanged." + (should (equal (cj/gptel-git-diff--truncate "small diff") "small diff"))) + +(ert-deftest test-gptel-tools-git-diff-truncate-over-cap () + "Boundary: output exceeding the cap is truncated with a marker." + (let* ((cap cj/gptel-git-diff--max-output-bytes) + (huge (make-string (+ cap 1000) ?x)) + (out (cj/gptel-git-diff--truncate huge))) + (should (string-match-p "\\[truncated:" out)) + (should (> (length huge) (length out))))) + +;; ---------- validate-path + +(ert-deftest test-gptel-tools-git-diff-validate-path-normal () + "Normal: validator accepts a git working tree." + (test-gptel-tools-git-diff--with-repo + (lambda (dir) + (should (equal (cj/gptel-git-diff--validate-path dir) dir))))) + +(ert-deftest test-gptel-tools-git-diff-validate-path-error-outside-home () + "Error: path outside HOME signals." + (should-error (cj/gptel-git-diff--validate-path "/etc"))) + +(ert-deftest test-gptel-tools-git-diff-validate-path-error-not-a-repo () + "Error: non-git directory signals." + (let ((dir (make-temp-file + (expand-file-name ".test-gptel-tools-git-diff-" "~") t))) + (unwind-protect + (should-error (cj/gptel-git-diff--validate-path dir)) + (when (file-exists-p dir) (delete-directory dir t))))) + +;; ---------- run + +(ert-deftest test-gptel-tools-git-diff-run-no-changes () + "Boundary: a clean tree with no refs returns the no-diff marker." + (test-gptel-tools-git-diff--with-repo + (lambda (dir) + (let ((out (cj/gptel-git-diff--run dir))) + (should (string-match-p "No diff" out)))))) + +(ert-deftest test-gptel-tools-git-diff-run-unstaged-change () + "Normal: an unstaged edit appears as a real diff." + (test-gptel-tools-git-diff--with-repo + (lambda (dir) + (with-temp-file (expand-file-name "f.txt" dir) + (insert "changed\n")) + (let ((out (cj/gptel-git-diff--run dir))) + (should (string-match-p "^-original" out)) + (should (string-match-p "^\\+changed" out)))))) + +(ert-deftest test-gptel-tools-git-diff-run-narrow-to-file () + "Normal: FILE argument narrows the diff." + (test-gptel-tools-git-diff--with-repo + (lambda (dir) + (with-temp-file (expand-file-name "f.txt" dir) + (insert "changed\n")) + (with-temp-file (expand-file-name "g.txt" dir) + (insert "second file\n")) + (let ((out (cj/gptel-git-diff--run dir nil nil "f.txt"))) + (should (string-match-p "f.txt" out)) + (should-not (string-match-p "g.txt" out)))))) + +(provide 'test-gptel-tools-git-diff) +;;; test-gptel-tools-git-diff.el ends here diff --git a/tests/test-gptel-tools-git-log.el b/tests/test-gptel-tools-git-log.el new file mode 100644 index 00000000..708819b6 --- /dev/null +++ b/tests/test-gptel-tools-git-log.el @@ -0,0 +1,135 @@ +;;; test-gptel-tools-git-log.el --- Tests for git_log gptel tool -*- lexical-binding: t; -*- + +;;; Commentary: +;; Tests run against real temp git repos under HOME via `process-file'. + +;;; Code: + +(require 'ert) +(require 'cl-lib) + +(eval-and-compile + (add-to-list 'load-path (expand-file-name "tests" user-emacs-directory)) + (add-to-list 'load-path (expand-file-name "gptel-tools" user-emacs-directory)) + (setq load-prefer-newer t) + (unless (featurep 'gptel) + (defvar gptel-tools nil) + (defun gptel-make-tool (&rest _args) nil) + (defun gptel-get-tool (&rest _args) nil) + (provide 'gptel))) + +(require 'git_log) + +;; ---------- helpers + +(defun test-gptel-tools-git-log--with-repo (commit-count fn) + "Create a temp git repo under HOME with COMMIT-COUNT empty commits. +Call FN with the absolute path, clean up after." + (let* ((name (format ".test-gptel-tools-git-log-%s" + (format-time-string "%s%N"))) + (dir (expand-file-name name "~"))) + (unwind-protect + (progn + (make-directory dir) + (let ((default-directory dir)) + (call-process "git" nil nil nil "init" "--quiet") + (call-process "git" nil nil nil "config" "user.email" "test@x") + (call-process "git" nil nil nil "config" "user.name" "Test") + (dotimes (i commit-count) + (call-process "git" nil nil nil "commit" "--allow-empty" + "--quiet" "-m" (format "commit %d" i)))) + (funcall fn dir)) + (when (file-exists-p dir) (delete-directory dir t))))) + +;; ---------- effective-count + +(ert-deftest test-gptel-tools-git-log-effective-count-defaults-on-nil () + "Boundary: nil N → default count." + (should (= (cj/gptel-git-log--effective-count nil) + cj/gptel-git-log--default-count))) + +(ert-deftest test-gptel-tools-git-log-effective-count-defaults-on-non-integer () + "Boundary: non-integer N → default count." + (should (= (cj/gptel-git-log--effective-count "ten") + cj/gptel-git-log--default-count)) + (should (= (cj/gptel-git-log--effective-count 0.5) + cj/gptel-git-log--default-count))) + +(ert-deftest test-gptel-tools-git-log-effective-count-clamps-low () + "Boundary: N below 1 → default count." + (should (= (cj/gptel-git-log--effective-count 0) + cj/gptel-git-log--default-count)) + (should (= (cj/gptel-git-log--effective-count -5) + cj/gptel-git-log--default-count))) + +(ert-deftest test-gptel-tools-git-log-effective-count-caps-high () + "Boundary: N above max → max." + (should (= (cj/gptel-git-log--effective-count 1000) + cj/gptel-git-log--max-count))) + +(ert-deftest test-gptel-tools-git-log-effective-count-normal () + "Normal: a valid N passes through." + (should (= (cj/gptel-git-log--effective-count 5) 5))) + +;; ---------- validate-path + +(ert-deftest test-gptel-tools-git-log-validate-path-normal () + "Normal: validator accepts a git working tree." + (test-gptel-tools-git-log--with-repo + 1 + (lambda (dir) + (should (equal (cj/gptel-git-log--validate-path dir) dir))))) + +(ert-deftest test-gptel-tools-git-log-validate-path-error-outside-home () + "Error: path outside HOME signals." + (should-error (cj/gptel-git-log--validate-path "/etc"))) + +(ert-deftest test-gptel-tools-git-log-validate-path-error-not-a-repo () + "Error: directory outside any git working tree signals." + (let ((dir (make-temp-file + (expand-file-name ".test-gptel-tools-git-log-" "~") t))) + (unwind-protect + (should-error (cj/gptel-git-log--validate-path dir)) + (when (file-exists-p dir) (delete-directory dir t))))) + +;; ---------- run + +(ert-deftest test-gptel-tools-git-log-run-default-count () + "Normal: default count limits output to that many commits." + (test-gptel-tools-git-log--with-repo + 30 + (lambda (dir) + (let* ((out (cj/gptel-git-log--run dir)) + (lines (split-string (string-trim out) "\n"))) + (should (= (length lines) cj/gptel-git-log--default-count)))))) + +(ert-deftest test-gptel-tools-git-log-run-honors-n () + "Normal: an explicit N limits output to N commits." + (test-gptel-tools-git-log--with-repo + 10 + (lambda (dir) + (let* ((out (cj/gptel-git-log--run dir 3)) + (lines (split-string (string-trim out) "\n"))) + (should (= (length lines) 3)))))) + +(ert-deftest test-gptel-tools-git-log-run-empty-repo () + "Boundary: a repo with no commits returns the empty-result marker." + (let* ((name (format ".test-gptel-tools-git-log-empty-%s" + (format-time-string "%s%N"))) + (dir (expand-file-name name "~"))) + (unwind-protect + (progn + (make-directory dir) + (let ((default-directory dir)) + (call-process "git" nil nil nil "init" "--quiet")) + ;; git log on a no-commits repo errors in some versions, but + ;; our wrapper turns "no commits" into the no-match marker. + (let ((res (ignore-errors (cj/gptel-git-log--run dir)))) + ;; Either path is acceptable: error captured (nil) or the + ;; explicit "No commits matching" marker. + (should (or (null res) + (string-match-p "No commits" res))))) + (when (file-exists-p dir) (delete-directory dir t))))) + +(provide 'test-gptel-tools-git-log) +;;; test-gptel-tools-git-log.el ends here diff --git a/tests/test-gptel-tools-git-status.el b/tests/test-gptel-tools-git-status.el new file mode 100644 index 00000000..734abb31 --- /dev/null +++ b/tests/test-gptel-tools-git-status.el @@ -0,0 +1,98 @@ +;;; test-gptel-tools-git-status.el --- Tests for git_status gptel tool -*- lexical-binding: t; -*- + +;;; Commentary: +;; Tests run against real temp git repos under HOME via `process-file'. +;; The tool is read-only so repos are torn down per test. + +;;; Code: + +(require 'ert) +(require 'cl-lib) + +(eval-and-compile + (add-to-list 'load-path (expand-file-name "tests" user-emacs-directory)) + (add-to-list 'load-path (expand-file-name "gptel-tools" user-emacs-directory)) + (setq load-prefer-newer t) + (unless (featurep 'gptel) + (defvar gptel-tools nil) + (defun gptel-make-tool (&rest _args) nil) + (defun gptel-get-tool (&rest _args) nil) + (provide 'gptel))) + +(require 'git_status) + +;; ---------- helpers + +(defun test-gptel-tools-git-status--with-repo (fn) + "Create a temp git repo under HOME, call FN with its absolute path, clean up." + (let* ((name (format ".test-gptel-tools-git-status-%s" + (format-time-string "%s%N"))) + (dir (expand-file-name name "~"))) + (unwind-protect + (progn + (make-directory dir) + (let ((default-directory dir)) + (call-process "git" nil nil nil "init" "--quiet") + (call-process "git" nil nil nil "config" "user.email" "test@x") + (call-process "git" nil nil nil "config" "user.name" "Test") + (call-process "git" nil nil nil "commit" "--allow-empty" + "--quiet" "-m" "initial")) + (funcall fn dir)) + (when (file-exists-p dir) (delete-directory dir t))))) + +;; ---------- validate-path + +(ert-deftest test-gptel-tools-git-status-validate-path-normal () + "Normal: validator accepts a directory inside a git working tree." + (test-gptel-tools-git-status--with-repo + (lambda (dir) + (should (equal (cj/gptel-git-status--validate-path dir) dir))))) + +(ert-deftest test-gptel-tools-git-status-validate-path-error-outside-home () + "Error: path outside HOME signals." + (should-error (cj/gptel-git-status--validate-path "/etc"))) + +(ert-deftest test-gptel-tools-git-status-validate-path-error-not-a-directory () + "Error: path that's not a directory signals." + (let ((file (make-temp-file + (expand-file-name ".test-gptel-tools-git-status-" "~")))) + (unwind-protect + (should-error (cj/gptel-git-status--validate-path file)) + (when (file-exists-p file) (delete-file file))))) + +(ert-deftest test-gptel-tools-git-status-validate-path-error-not-a-repo () + "Error: directory outside any git working tree signals." + (let ((dir (make-temp-file + (expand-file-name ".test-gptel-tools-git-status-" "~") t))) + (unwind-protect + (should-error (cj/gptel-git-status--validate-path dir)) + (when (file-exists-p dir) (delete-directory dir t))))) + +;; ---------- run + +(ert-deftest test-gptel-tools-git-status-run-clean-tree () + "Normal: a clean repo returns the clean-tree marker." + (test-gptel-tools-git-status--with-repo + (lambda (dir) + (let ((out (cj/gptel-git-status--run dir))) + (should (string-match-p "Clean working tree" out)))))) + +(ert-deftest test-gptel-tools-git-status-run-dirty-tree-includes-file () + "Normal: an untracked file appears in the output." + (test-gptel-tools-git-status--with-repo + (lambda (dir) + (with-temp-file (expand-file-name "new.txt" dir) (insert "x")) + (let ((out (cj/gptel-git-status--run dir))) + (should (string-match-p "new.txt" out)) + (should (string-match-p "^\\?\\?" out)))))) + +(ert-deftest test-gptel-tools-git-status-run-includes-branch () + "Normal: the `--branch' line surfaces in the output." + (test-gptel-tools-git-status--with-repo + (lambda (dir) + (with-temp-file (expand-file-name "f.txt" dir) (insert "x")) + (let ((out (cj/gptel-git-status--run dir))) + (should (string-match-p "^## " out)))))) + +(provide 'test-gptel-tools-git-status) +;;; test-gptel-tools-git-status.el ends here |