mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-20 11:33:09 -08:00
Code Issues Projects Releases Wiki Activity

fileio-tests.el (test-non-regular-insert): Fix thinko

Browse source 
* test/src/fileio-tests.el (fileio-tests--non-regular-insert): Rename
from `test-non-regular-insert` and make it into a test rather than
a broken function.  Oh, and make it work while at it.
This commit is contained in:
Stefan Monnier 2022-06-11 11:57:25 -04:00
parent 51def94e9c
commit 36b5050ec4
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/src/fileio-tests.el
View file

@ -138,7 +138,7 @@ Also check that an encoding error can appear in a symlink."
(should (and (file-name-absolute-p name)
(not (eq (aref name 0) ?~))))))
(ert-deftest fileio-test--expand-file-name-null-bytes ()
(ert-deftest fileio-tests--expand-file-name-null-bytes ()
"Test that `expand-file-name' checks for null bytes in filenames."
(should-error (expand-file-name (concat "file" (char-to-string ?\0) ".txt"))
:type 'wrong-type-argument)
@ -193,11 +193,11 @@ Also check that an encoding error can appear in a symlink."
(should (equal (file-name-concat "" "bar") "bar"))
(should (equal (file-name-concat "" "") "")))
(defun test-non-regular-insert ()
(ert-deftest fileio-tests--non-regular-insert ()
(skip-unless (file-exists-p "/dev/urandom"))
(with-temp-buffer
(should-error (insert-file-contents "/dev/urandom" nil 5 10))
(insert-file-contents "/dev/urandom" nil nil 10)
(should (= (point-max) 10))))
(should (= (buffer-size) 10))))
;;; fileio-tests.el ends here