diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-06-11 11:57:25 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-06-11 11:57:25 -0400 |
| commit | 36b5050ec436d2703005cc862edc510ff6a3b4cf (patch) | |
| tree | 75a8e87c5e43042f0eb82301cfdd5b6e3cc659ae /test/src/fileio-tests.el | |
| parent | 51def94e9c0ce81511ce1364c9adf2cd047a38bc (diff) | |
| download | emacs-36b5050ec436d2703005cc862edc510ff6a3b4cf.tar.gz | |
fileio-tests.el (test-non-regular-insert): Fix thinko
* 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.
Diffstat (limited to 'test/src/fileio-tests.el')
| -rw-r--r-- | test/src/fileio-tests.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/src/fileio-tests.el b/test/src/fileio-tests.el index a9a43781d49..29f11fc4725 100644 --- a/test/src/fileio-tests.el +++ b/test/src/fileio-tests.el @@ -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 |