From 6924320aebce9ba885877da45e43d8d573da8bf6 Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Fri, 20 Nov 2020 18:37:30 -0300 Subject: [PATCH] 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. --- test/lisp/cus-edit-tests.el | 10 ++++++---- 1 file 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 -- 2.39.5