From be72a42f041f95bd819971a8eb3fc1349e24c1d8 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sun, 2 Mar 2025 15:20:11 +0100 Subject: [PATCH] Strengthen widget-get/put tests * test/lisp/wid-edit-tests.el (widget-test-editable-field-widget-get/put): Test on inherited properties. (cherry picked from commit 932397ce52ec0fa112afcd8d52324b8cdfbb66af) --- test/lisp/wid-edit-tests.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/test/lisp/wid-edit-tests.el b/test/lisp/wid-edit-tests.el index 1a3a35ff496..cf74a19a0ea 100644 --- a/test/lisp/wid-edit-tests.el +++ b/test/lisp/wid-edit-tests.el @@ -33,7 +33,18 @@ (should (eq (widget-put widget :size 1) 1)) (should (equal (widget-put widget :format "foo") "foo")) (should (eq (widget-get widget :size) 1)) - (should (equal (widget-get widget :format) "foo"))))) + (should (equal (widget-get widget :format) "foo")) + + ;; test get/put for inherited properties + (should-not (plist-member (cdr widget) :validate)) + (should (eq (widget-get widget :validate) 'widget-field-validate)) + (should (eq (widget-put widget :validate 'my-silly-validate) + 'my-silly-validate)) + (should (plist-member (cdr widget) :validate)) + (should (eq (widget-get widget :validate) 'my-silly-validate)) + (should (eq (widget-get (get (widget-type widget) 'widget-type) + :validate) + 'widget-field-validate))))) (ert-deftest widget-at () (with-temp-buffer -- 2.39.5