aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
Diffstat (limited to 'test/src')
-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