diff options
Diffstat (limited to 'tests/test-gptel-tools-read-buffer.el')
| -rw-r--r-- | tests/test-gptel-tools-read-buffer.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/test-gptel-tools-read-buffer.el b/tests/test-gptel-tools-read-buffer.el index 75efd604..0a854835 100644 --- a/tests/test-gptel-tools-read-buffer.el +++ b/tests/test-gptel-tools-read-buffer.el @@ -40,6 +40,14 @@ (should (equal (cj/read-buffer--get-content (current-buffer)) "from buffer object")))) +(ert-deftest test-gptel-tools-read-buffer-boundary-widened-content () + "Boundary: returns the whole buffer even when the buffer is narrowed." + (with-temp-buffer + (insert "visible\nhidden\n") + (narrow-to-region (point-min) (line-end-position)) + (should (equal (cj/read-buffer--get-content (current-buffer)) + "visible\nhidden\n")))) + (ert-deftest test-gptel-tools-read-buffer-boundary-strips-text-properties () "Boundary: the returned string has no text properties." (with-temp-buffer @@ -56,5 +64,11 @@ (should-error (cj/read-buffer--get-content "test-gptel-tools-read-buffer-absent"))) +(ert-deftest test-gptel-tools-read-buffer-error-killed-buffer-object () + "Error: a killed buffer object signals clearly." + (let ((buffer (generate-new-buffer "test-gptel-tools-read-buffer-killed"))) + (kill-buffer buffer) + (should-error (cj/read-buffer--get-content buffer)))) + (provide 'test-gptel-tools-read-buffer) ;;; test-gptel-tools-read-buffer.el ends here |