aboutsummaryrefslogtreecommitdiffstats
path: root/test/lisp
diff options
context:
space:
mode:
authorStefan Kangas2020-02-05 13:22:56 +0100
committerStefan Kangas2020-02-05 13:22:56 +0100
commitbb9723b0e2c8d555fede7153ed684ae63d3d94c2 (patch)
tree48500f9df9fd149baedfbe5309ff9bd4ca0195cc /test/lisp
parentaea12d4903136c057bb14d3fd7683bf7a4e1eff6 (diff)
downloademacs-bb9723b0e2c8d555fede7153ed684ae63d3d94c2.tar.gz
emacs-bb9723b0e2c8d555fede7153ed684ae63d3d94c2.zip
Don't use obsolete function in package-tests.el
* test/lisp/emacs-lisp/package-tests.el (package-test-update-archives, package-test-signed): Use 'revert-buffer' instead of obsolete 'package-menu-refresh'.
Diffstat (limited to 'test/lisp')
-rw-r--r--test/lisp/emacs-lisp/package-tests.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/test/lisp/emacs-lisp/package-tests.el b/test/lisp/emacs-lisp/package-tests.el
index adf917aef46..05770d6b58a 100644
--- a/test/lisp/emacs-lisp/package-tests.el
+++ b/test/lisp/emacs-lisp/package-tests.el
@@ -450,7 +450,7 @@ Must called from within a `tar-mode' buffer."
450 "Test updating package archives." 450 "Test updating package archives."
451 (with-package-test () 451 (with-package-test ()
452 (let ((buf (package-list-packages))) 452 (let ((buf (package-list-packages)))
453 (package-menu-refresh) 453 (revert-buffer)
454 (search-forward-regexp "^ +simple-single") 454 (search-forward-regexp "^ +simple-single")
455 (package-menu-mark-install) 455 (package-menu-mark-install)
456 (package-menu-execute) 456 (package-menu-execute)
@@ -458,7 +458,7 @@ Must called from within a `tar-mode' buffer."
458 (let ((package-test-data-dir 458 (let ((package-test-data-dir
459 (expand-file-name "package-resources/newer-versions" package-test-file-dir))) 459 (expand-file-name "package-resources/newer-versions" package-test-file-dir)))
460 (setq package-archives `(("gnu" . ,package-test-data-dir))) 460 (setq package-archives `(("gnu" . ,package-test-data-dir)))
461 (package-menu-refresh) 461 (revert-buffer)
462 462
463 ;; New version should be available and old version should be installed 463 ;; New version should be available and old version should be installed
464 (goto-char (point-min)) 464 (goto-char (point-min))
@@ -470,7 +470,7 @@ Must called from within a `tar-mode' buffer."
470 470
471 (package-menu-mark-upgrades) 471 (package-menu-mark-upgrades)
472 (package-menu-execute) 472 (package-menu-execute)
473 (package-menu-refresh) 473 (revert-buffer)
474 (should (package-installed-p 'simple-single '(1 4))))))) 474 (should (package-installed-p 'simple-single '(1 4)))))))
475 475
476(ert-deftest package-test-update-archives-async () 476(ert-deftest package-test-update-archives-async ()
@@ -632,7 +632,7 @@ Must called from within a `tar-mode' buffer."
632 (should (progn (package-install 'signed-bad) 'noerror))) 632 (should (progn (package-install 'signed-bad) 'noerror)))
633 ;; Check if the installed package status is updated. 633 ;; Check if the installed package status is updated.
634 (let ((buf (package-list-packages))) 634 (let ((buf (package-list-packages)))
635 (package-menu-refresh) 635 (revert-buffer)
636 (should (re-search-forward 636 (should (re-search-forward
637 "^\\s-+signed-good\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-" 637 "^\\s-+signed-good\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-"
638 nil t)) 638 nil t))