From: Stefan Kangas <stefan@marxist.se>
Date: Sat, 16 Jul 2022 16:13:56 +0000 (+0200)
Subject: New test for make_symbol_constant
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~1886^2~893
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=71b58ade86c7efc1019f88a9a3768877a2127c24;p=emacs.git

New test for make_symbol_constant

* test/src/data-tests.el (data-tests-make_symbol_constant): New
test.
---

diff --git a/test/src/data-tests.el b/test/src/data-tests.el
index 7d8535f5f37..7ce2995e562 100644
--- a/test/src/data-tests.el
+++ b/test/src/data-tests.el
@@ -768,4 +768,8 @@ comparing the subr with a much slower Lisp implementation."
                          (default-value 'last-coding-system-used))
                    '(no-conversion bug34318)))))
 
+(ert-deftest data-tests-make_symbol_constant ()
+  "Can't set variable marked with 'make_symbol_constant'."
+  (should-error (setq most-positive-fixnum 1) :type 'setting-constant))
+
 ;;; data-tests.el ends here