* 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.
(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