aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2022-06-11 11:57:25 -0400
committerStefan Monnier2022-06-11 11:57:25 -0400
commit36b5050ec436d2703005cc862edc510ff6a3b4cf (patch)
tree75a8e87c5e43042f0eb82301cfdd5b6e3cc659ae
parent51def94e9c0ce81511ce1364c9adf2cd047a38bc (diff)
downloademacs-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.el6
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