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