mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

Fix 2 testsuite tests for MS-Windows

Browse Source 
* test/lisp/ibuffer-tests.el (test-buffer-list): Don't try to
create files with "*" in their names.
* test/src/editfns-tests.el (format-time-string-with-zone): Adapt
results to MS-Windows build.  Reported by Fabrice Popineau
<fabrice.popineau@gmail.com>.
This commit is contained in:
Eli Zaretskii 2017-09-20 10:16:11 +03:00
parent 965cffd89c
commit f16a8d5dbd
2 changed files with 35 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
test/lisp/ibuffer-tests.el
View File

@ -456,11 +456,14 @@
(funcall create-non-file-buffer "ibuf-test-8a"
:mode #'artist-mode))
(bufB (funcall create-non-file-buffer "*ibuf-test-8b*" :size 32))
(bufC (funcall create-file-buffer "ibuf-test8c" :suffix "*"
:size 64))
(bufD (funcall create-file-buffer "*ibuf-test8d" :size 128))
(bufE (funcall create-file-buffer "*ibuf-test8e" :suffix "*<2>"
:size 16))
(bufC (or (memq system-type '(ms-dos windows-nt))
(funcall create-file-buffer "ibuf-test8c" :suffix "*"
:size 64)))
(bufD (or (memq system-type '(ms-dos windows-nt))
(funcall create-file-buffer "*ibuf-test8d" :size 128)))
(bufE (or (memq system-type '(ms-dos windows-nt))
(funcall create-file-buffer "*ibuf-test8e"
:suffix "*<2>" :size 16)))
(bufF (and (funcall create-non-file-buffer "*ibuf-test8f*")
(funcall create-non-file-buffer "*ibuf-test8f*"
:size 8))))
@ -479,22 +482,28 @@
(name . "test.*8b")
(size-gt . 31)
(not visiting-file)))))
(should (ibuffer-included-in-filters-p
bufC '((and (not (starred-name))
(visiting-file)
(name . "8c[^*]*\\*")
(size-lt . 65)))))
(should (ibuffer-included-in-filters-p
bufD '((and (not (starred-name))
(visiting-file)
(name . "\\`\\*.*test8d")
(size-lt . 129)
(size-gt . 127)))))
(should (ibuffer-included-in-filters-p
bufE '((and (starred-name)
(visiting-file)
(name . "8e.*?\\*<[[:digit:]]+>")
(size-gt . 10)))))
;; MS-DOS and MS-Windows don't allow "*" in file names.
(or (memq system-type '(ms-dos windows-nt))
(should (ibuffer-included-in-filters-p
bufC '((and (not (starred-name))
(visiting-file)
(name . "8c[^*]*\\*")
(size-lt . 65))))))
;; MS-DOS and MS-Windows don't allow "*" in file names.
(or (memq system-type '(ms-dos windows-nt))
(should (ibuffer-included-in-filters-p
bufD '((and (not (starred-name))
(visiting-file)
(name . "\\`\\*.*test8d")
(size-lt . 129)
(size-gt . 127))))))
;; MS-DOS and MS-Windows don't allow "*" in file names.
(or (memq system-type '(ms-dos windows-nt))
(should (ibuffer-included-in-filters-p
bufE '((and (starred-name)
(visiting-file)
(name . "8e.*?\\*<[[:digit:]]+>")
(size-gt . 10))))))
(should (ibuffer-included-in-filters-p
bufF '((and (starred-name)
(not (visiting-file))

6
test/src/editfns-tests.el
View File

@ -169,7 +169,11 @@
;; Negative UTC offset, as a Lisp integer.
(should (string-equal
(format-time-string format look -28800)
"1972-06-30 15:59:59.999 -0800 (-08)"))
;; MS-Windows build replaces unrecognizable TZ values,
;; such as "-08", with "ZZZ".
(if (eq system-type 'windows-nt)
"1972-06-30 15:59:59.999 -0800 (ZZZ)"
"1972-06-30 15:59:59.999 -0800 (-08)")))
;; Positive UTC offset that is not an hour multiple, as a string.
(should (string-equal
(format-time-string format look "IST-5:30")