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:
parent
86d87d2431
commit
6924320aeb
1 changed files with 6 additions and 4 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue