aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorStefan Monnier2023-05-26 12:23:59 -0400
committerStefan Monnier2023-05-26 12:23:59 -0400
commite77e986a9b7d735c0e39198c8b80a34a29005fc5 (patch)
tree33fd67fcefc3d423adcf65059e03a8631503aacc /test
parent321ed8ebae8f84e0f8ae6cf2012f0f8830d9fda9 (diff)
downloademacs-e77e986a9b7d735c0e39198c8b80a34a29005fc5.tar.gz
emacs-e77e986a9b7d735c0e39198c8b80a34a29005fc5.zip
package-tests.el: Add test for last change
* test/lisp/emacs-lisp/package-tests.el (package-test-desc-from-buffer): Make sure the absence of the terminating comment does not matter.
Diffstat (limited to 'test')
-rw-r--r--test/lisp/emacs-lisp/package-tests.el11
1 files changed, 8 insertions, 3 deletions
diff --git a/test/lisp/emacs-lisp/package-tests.el b/test/lisp/emacs-lisp/package-tests.el
index 0016fb586b7..113b4ec12a8 100644
--- a/test/lisp/emacs-lisp/package-tests.el
+++ b/test/lisp/emacs-lisp/package-tests.el
@@ -219,9 +219,14 @@ Must called from within a `tar-mode' buffer."
219 219
220(ert-deftest package-test-desc-from-buffer () 220(ert-deftest package-test-desc-from-buffer ()
221 "Parse an elisp buffer to get a `package-desc' object." 221 "Parse an elisp buffer to get a `package-desc' object."
222 (with-package-test (:basedir (ert-resource-directory) :file "simple-single-1.3.el") 222 (with-package-test (:basedir (ert-resource-directory)
223 (should (package-test--compatible-p 223 :file "simple-single-1.3.el")
224 (package-buffer-info) simple-single-desc 'kind))) 224 (let ((pi (package-buffer-info)))
225 (should (package-test--compatible-p pi simple-single-desc 'kind))
226 ;; The terminating line is not mandatory any more.
227 (re-search-forward "^;;; .* ends here")
228 (delete-region (match-beginning 0) (point-max))
229 (should (equal (package-buffer-info) pi))))
225 (with-package-test (:basedir (ert-resource-directory) :file "simple-depend-1.0.el") 230 (with-package-test (:basedir (ert-resource-directory) :file "simple-depend-1.0.el")
226 (should (package-test--compatible-p 231 (should (package-test--compatible-p
227 (package-buffer-info) simple-depend-desc 'kind))) 232 (package-buffer-info) simple-depend-desc 'kind)))