diff options
| author | Stefan Monnier | 2022-06-11 11:57:25 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2022-06-11 11:57:25 -0400 |
| commit | 36b5050ec436d2703005cc862edc510ff6a3b4cf (patch) | |
| tree | 75a8e87c5e43042f0eb82301cfdd5b6e3cc659ae | |
| parent | 51def94e9c0ce81511ce1364c9adf2cd047a38bc (diff) | |
| download | emacs-36b5050ec436d2703005cc862edc510ff6a3b4cf.tar.gz emacs-36b5050ec436d2703005cc862edc510ff6a3b4cf.zip | |
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.
| -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." | |||
| 138 | (should (and (file-name-absolute-p name) | 138 | (should (and (file-name-absolute-p name) |
| 139 | (not (eq (aref name 0) ?~)))))) | 139 | (not (eq (aref name 0) ?~)))))) |
| 140 | 140 | ||
| 141 | (ert-deftest fileio-test--expand-file-name-null-bytes () | 141 | (ert-deftest fileio-tests--expand-file-name-null-bytes () |
| 142 | "Test that `expand-file-name' checks for null bytes in filenames." | 142 | "Test that `expand-file-name' checks for null bytes in filenames." |
| 143 | (should-error (expand-file-name (concat "file" (char-to-string ?\0) ".txt")) | 143 | (should-error (expand-file-name (concat "file" (char-to-string ?\0) ".txt")) |
| 144 | :type 'wrong-type-argument) | 144 | :type 'wrong-type-argument) |
| @@ -193,11 +193,11 @@ Also check that an encoding error can appear in a symlink." | |||
| 193 | (should (equal (file-name-concat "" "bar") "bar")) | 193 | (should (equal (file-name-concat "" "bar") "bar")) |
| 194 | (should (equal (file-name-concat "" "") ""))) | 194 | (should (equal (file-name-concat "" "") ""))) |
| 195 | 195 | ||
| 196 | (defun test-non-regular-insert () | 196 | (ert-deftest fileio-tests--non-regular-insert () |
| 197 | (skip-unless (file-exists-p "/dev/urandom")) | 197 | (skip-unless (file-exists-p "/dev/urandom")) |
| 198 | (with-temp-buffer | 198 | (with-temp-buffer |
| 199 | (should-error (insert-file-contents "/dev/urandom" nil 5 10)) | 199 | (should-error (insert-file-contents "/dev/urandom" nil 5 10)) |
| 200 | (insert-file-contents "/dev/urandom" nil nil 10) | 200 | (insert-file-contents "/dev/urandom" nil nil 10) |
| 201 | (should (= (point-max) 10)))) | 201 | (should (= (buffer-size) 10)))) |
| 202 | 202 | ||
| 203 | ;;; fileio-tests.el ends here | 203 | ;;; fileio-tests.el ends here |