From: Stefan Kangas <stefankangas@gmail.com>
Date: Sun, 2 Mar 2025 01:16:11 +0000 (+0100)
Subject: ; Add test for last change
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e2b437003195467aba899282c61429429fcc12a;p=emacs.git

; Add test for last change

* test/lisp/wid-edit-tests.el
(widget-test-editable-field-widget-get/put): Check return value of
widget-put.  (Bug#76664)

(cherry picked from commit 49e3ef343784adaf967d1ff02a8499eb4d7d1ddd)
---

diff --git a/test/lisp/wid-edit-tests.el b/test/lisp/wid-edit-tests.el
index e99347f1666..1a3a35ff496 100644
--- a/test/lisp/wid-edit-tests.el
+++ b/test/lisp/wid-edit-tests.el
@@ -30,8 +30,8 @@
                                  "My Name")))
       (should (eq (widget-get widget :size) 13))
       (should (equal (widget-get widget :format) "Name: %v "))
-      (widget-put widget :size 1)
-      (widget-put widget :format "foo")
+      (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")))))