From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 2 Mar 2025 14:20:11 +0000 (+0100)
Subject: Strengthen widget-get/put tests
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be72a42f041f95bd819971a8eb3fc1349e24c1d8;p=emacs.git

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)
---

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