mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 12:40:49 -08:00
Code Issues Projects Releases Wiki Activity

; Fix last change to filelock-tests.el

Browse source 
* test/src/filelock-tests.el (filelock-tests-file-locked-p-spoiled)
(filelock-tests-unlock-spoiled)
(filelock-tests-kill-buffer-spoiled): Expect 'permission-denied' only
on MS-Windows.
This commit is contained in:
Eli Zaretskii 2021-12-19 17:44:32 +02:00
parent cc63704815
commit c139d289df
1 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

18
test/src/filelock-tests.el
View file

@ -123,7 +123,9 @@ the case)."
(filelock-tests--spoil-lock-file buffer-file-truename)
(let ((err (should-error (file-locked-p (buffer-file-name)))))
(should (equal (seq-subseq err 0 2)
'(permission-denied "Testing file lock")))))))
(if (eq system-type 'windows-nt)
'(permission-denied "Testing file lock")
'(file-error "Testing file lock"))))))))
(ert-deftest filelock-tests-unlock-spoiled ()
"Check that `unlock-buffer' fails if the lockfile is \"spoiled\"."
@ -144,8 +146,11 @@ the case)."
(lambda (err) (push err errors))))
(unlock-buffer))
(should (consp errors))
(should (equal '(permission-denied "Unlocking file")
(seq-subseq (car errors) 0 2)))
(should (equal
(if (eq system-type 'windows-nt)
'(permission-denied "Unlocking file")
'(file-error "Unlocking file"))
(seq-subseq (car errors) 0 2)))
(should (equal (length errors) 1))))))
(ert-deftest filelock-tests-kill-buffer-spoiled ()
@ -174,8 +179,11 @@ the case)."
(lambda (err) (push err errors))))
(kill-buffer))
(should (consp errors))
(should (equal '(permission-denied "Unlocking file")
(seq-subseq (car errors) 0 2)))
(should (equal
(if (eq system-type 'windows-nt)
'(permission-denied "Unlocking file")
'(file-error "Unlocking file"))
(seq-subseq (car errors) 0 2)))
(should (equal (length errors) 1))))))
(provide 'filelock-tests)