mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-12 09:51:05 -07:00
Code Issues Projects Releases Wiki Activity

Tests for 7 editor primitives previously not covered.

Browse source 
- byte-to-position
      - byte-to-string
      - insert-byte
      - insert-buffer-substring
      - insert-before-markers-and-inherit
      - field-string-and-delete
      - constrain-to-field
This commit is contained in:
Eric S. Raymond 2026-02-25 10:18:39 -05:00
parent 8992eea7d5
commit bb403e70ae
1 changed files with 83 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

83
test/src/editfns-tests.el
View file

@ -938,4 +938,87 @@ sufficiently large to avoid truncation."
(pos-bol 2) (pos-eol 2))
(should (equal (buffer-string) "toto\nEmacs forever!\n"))))
;; Additional coverage for editfns primitives used in batch mode.
(ert-deftest editfns-tests--byte-to-position ()
(with-temp-buffer
(insert "éa")
(let* ((b1 (position-bytes 1))
(b2 (position-bytes 2)))
(should (= b1 1))
(should (> b2 b1))
(should (= (byte-to-position b1) 1))
(should (= (byte-to-position b2) 2))
;; Byte position in the middle of a multibyte character maps back
;; to the character head.
(should (= (byte-to-position (1- b2)) 1))
(should-not (byte-to-position 0))
(should-not (byte-to-position (1+ (position-bytes (point-max))))))))
(ert-deftest editfns-tests--byte-to-string ()
(let ((s (byte-to-string 65)))
(should (stringp s))
(should (not (multibyte-string-p s)))
(should (= (length s) 1))
(should (= (aref s 0) 65)))
(should-error (byte-to-string -1))
(should-error (byte-to-string 256)))
(ert-deftest editfns-tests--insert-byte ()
(with-temp-buffer
(insert-byte ?A 3)
(should (equal (buffer-string) "AAA")))
(with-temp-buffer
(insert-byte 200 1)
(should (= (aref (buffer-string) 0) 200)))
(should-error (with-temp-buffer (insert-byte 256 1))))
(ert-deftest editfns-tests--insert-buffer-substring ()
(with-temp-buffer
(let ((source (current-buffer)))
(insert "abcDEF")
(put-text-property 4 6 'foo t)
(with-temp-buffer
(insert "X")
(insert-buffer-substring source 2 5)
(should (equal (buffer-string) "XbcD"))
(should-not (get-text-property 2 'foo))
(should (get-text-property 4 'foo))))))
(ert-deftest editfns-tests--insert-before-markers-and-inherit ()
(with-temp-buffer
(insert (propertize "a" 'foo t))
(let ((m (point-marker)))
(insert-before-markers-and-inherit "b")
(should (equal (buffer-string) "ab"))
(should (= (marker-position m) (point)))
(should (eq (get-text-property 2 'foo) t)))))
(ert-deftest editfns-tests--field-string-and-delete ()
(with-temp-buffer
(insert "abcDEFghi")
(put-text-property 1 4 'field 'a)
(put-text-property 4 7 'field 'b)
(put-text-property 7 10 'field 'c)
(let ((s (field-string-no-properties 2)))
(should (equal s "abc"))
(should-not (text-properties-at 0 s)))
(should (equal (field-string-no-properties 5) "DEF"))
(delete-field 5)
(should (equal (buffer-string) "abcghi"))
(should (equal (field-string-no-properties 5) "ghi"))))
(ert-deftest editfns-tests--constrain-to-field ()
(let ((inhibit-field-text-motion nil))
(with-temp-buffer
(insert "abcDEFghi")
(put-text-property 1 4 'field 'a)
(put-text-property 4 7 'field 'b)
(put-text-property 7 10 'field 'c)
(should (= (constrain-to-field 2 5) 4))
(should (= (constrain-to-field 8 5) 7))
(goto-char 2)
(should (= (constrain-to-field nil 5) 4))
(should (= (point) 4)))))
;;; editfns-tests.el ends here