File tree Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -450,15 +450,15 @@ Must called from within a `tar-mode' buffer."
450
450
" Test updating package archives."
451
451
(with-package-test ()
452
452
(let ((buf (package-list-packages )))
453
- (package-menu-refresh )
453
+ (revert-buffer )
454
454
(search-forward-regexp " ^ +simple-single" )
455
455
(package-menu-mark-install )
456
456
(package-menu-execute )
457
457
(should (package-installed-p 'simple-single ))
458
458
(let ((package-test-data-dir
459
459
(expand-file-name " package-resources/newer-versions" package-test-file-dir)))
460
460
(setq package-archives `((" gnu" . , package-test-data-dir )))
461
- (package-menu-refresh )
461
+ (revert-buffer )
462
462
463
463
; ; New version should be available and old version should be installed
464
464
(goto-char (point-min ))
@@ -470,7 +470,7 @@ Must called from within a `tar-mode' buffer."
470
470
471
471
(package-menu-mark-upgrades )
472
472
(package-menu-execute )
473
- (package-menu-refresh )
473
+ (revert-buffer )
474
474
(should (package-installed-p 'simple-single '(1 4 )))))))
475
475
476
476
(ert-deftest package-test-update-archives-async ()
@@ -632,7 +632,7 @@ Must called from within a `tar-mode' buffer."
632
632
(should (progn (package-install 'signed-bad ) 'noerror )))
633
633
; ; Check if the installed package status is updated.
634
634
(let ((buf (package-list-packages )))
635
- (package-menu-refresh )
635
+ (revert-buffer )
636
636
(should (re-search-forward
637
637
" ^\\ s-+signed-good\\ s-+\\ (\\ S-+\\ )\\ s-+\\ (\\ S-+\\ )\\ s-"
638
638
nil t ))
You can’t perform that action at this time.
0 commit comments