emacs-29 38c6abe4d0 1/3: ; ert-x: Add test for buffer read-only state

[Eli Zaretskii]

branch: emacs-29
commit 38c6abe4d0b6bc6b5dfc32ab7b9b5095adf82da0
Author: Richard Hansen <rhansen@rhansen.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    ; ert-x: Add test for buffer read-only state
    
    This test should have been included with commit
    29b7d740006fe2190a729bd1c30ccab9356cee36.
    * test/lisp/emacs-lisp/ert-x-tests.el
    (ert-test-with-test-buffer-selected/read-only): New test.
    (Bug#60189)
---
 test/lisp/emacs-lisp/ert-x-tests.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/test/lisp/emacs-lisp/ert-x-tests.el 
b/test/lisp/emacs-lisp/ert-x-tests.el
index 63e7cd7608..f14d54cd9f 100644
--- a/test/lisp/emacs-lisp/ert-x-tests.el
+++ b/test/lisp/emacs-lisp/ert-x-tests.el
@@ -90,6 +90,11 @@
   (ert-with-test-buffer-selected ()
     (should (null inhibit-modification-hooks))))
 
+(ert-deftest ert-test-with-test-buffer-selected/read-only ()
+  (ert-with-test-buffer-selected ()
+    (should (null inhibit-read-only))
+    (should (null buffer-read-only))))
+
 (ert-deftest ert-test-with-test-buffer-selected/return-value ()
   (should (equal (ert-with-test-buffer-selected () "foo") "foo")))