Take care of a FIXME in cus-edit-tests.el

* test/lisp/cus-edit-tests.el (cus-edit-tests-customize-saved/show-obsolete):
Add a fake saved-value property, to be able check that the obsolete
option is present in the Customize buffer.  Expect the test to pass
now.
This commit is contained in:
Mauro Aranda 2020-11-20 18:37:30 -03:00
parent 86d87d2431
commit 6924320aeb

View file

@ -70,11 +70,13 @@
(should (search-forward cus-edit-tests--obsolete-option-tag nil t))))
(ert-deftest cus-edit-tests-customize-saved/show-obsolete ()
;; FIXME: How to test for saved options?
:expected-result :failed
(with-cus-edit-test "*Customize Saved*"
(customize-saved)
(should (search-forward cus-edit-tests--obsolete-option-tag nil t))))
(unwind-protect
(progn
(put 'cus-edit-tests--obsolete-option-tag 'saved-value '(t))
(customize-saved)
(should (search-forward cus-edit-tests--obsolete-option-tag nil t)))
(put 'cus-edit-tests--obsolete-option-tag 'saved-value nil))))
(provide 'cus-edit-tests)
;;; cus-edit-tests.el ends here