diff options
| author | Mauro Aranda <maurooaranda@gmail.com> | 2020-11-20 18:37:30 -0300 |
|---|---|---|
| committer | Mauro Aranda <maurooaranda@gmail.com> | 2020-11-20 18:37:30 -0300 |
| commit | 6924320aebce9ba885877da45e43d8d573da8bf6 (patch) | |
| tree | 460ea63e40727bd89f01504c03d208eb281a1166 /test/lisp/cus-edit-tests.el | |
| parent | 86d87d24310f087fef99fa959156b024626bf2d2 (diff) | |
| download | emacs-6924320aebce9ba885877da45e43d8d573da8bf6.tar.gz emacs-6924320aebce9ba885877da45e43d8d573da8bf6.tar.bz2 emacs-6924320aebce9ba885877da45e43d8d573da8bf6.zip | |
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.
Diffstat (limited to 'test/lisp/cus-edit-tests.el')
| -rw-r--r-- | test/lisp/cus-edit-tests.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/lisp/cus-edit-tests.el b/test/lisp/cus-edit-tests.el index 4d148b4f411..114e461b7ac 100644 --- a/test/lisp/cus-edit-tests.el +++ b/test/lisp/cus-edit-tests.el @@ -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 |