Mirrors
/
flycheck.el
mirror of https://github.com/flycheck/flycheck.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

ci: Fix arguments that contain whitespaces

pull/2007/head
jcs090218 2023-02-25 23:20:19 -08:00
parent 2f73050144
commit 66dfa653af
6 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
.github/workflows/test.yml vendored
View File

@ -31,6 +31,15 @@ jobs:
with:
version: ${{ matrix.emacs-version }}
# Remove expired DST Root CA X3 certificate. Workaround for
# https://debbugs.gnu.org/cgi/bugreport.cgi?bug=51038 bug on Emacs 27.x or lower.
# https://github.com/jcs090218/setup-emacs-windows/issues/156#issuecomment-1126671598
- name: Workaround for Emacs 27.x or lower's Windows build from GNU FTP
if: ${{ runner.os == 'Windows' && (matrix.emacs-version == '26.3' || matrix.emacs-version == '27.2') }}
run: |
gci cert:\LocalMachine\Root\DAC9024F54D8F6DF94935FB1732638CA6AD77C13
gci cert:\LocalMachine\Root\DAC9024F54D8F6DF94935FB1732638CA6AD77C13 | Remove-Item
- uses: emacs-eask/setup-eask@master
with:
version: 'snapshot'

2
Eask
View File

@ -66,5 +66,3 @@
(depends-on "typescript-mode")
(depends-on "web-mode")
(depends-on "yaml-mode"))
(setq network-security-level 'low) ; see https://github.com/jcs090218/setup-emacs-windows/issues/156#issuecomment-932956432

6
Makefile
View File

@ -119,15 +119,15 @@ compile:
.PHONY: specs
specs: compile
$(EASK) exec buttercup -L . --pattern "'$(PATTERN)'" test/specs
$(EASK) exec buttercup -L . test/specs
.PHONY: unit
unit: compile
$(RUNTEST) "'(and (not (tag external-tool)) $(SELECTOR))'"
$(RUNTEST) '(and (not (tag external-tool)) $(SELECTOR))'
.PHONY: integ
integ: compile
$(RUNTEST) "'(and (tag external-tool) $(SELECTOR))'"
$(RUNTEST) '(and (tag external-tool) $(SELECTOR))'
.PHONY: images
images: $(IMGS)

2
test/specs/test-gpg.el
View File

@ -102,6 +102,8 @@ This function is ABSOLUTELY INSECURE, use only and exclusively for testing."
(it "recognizes an encrypted buffer"
(assume (version<= "25" emacs-version))
;; XXX: Don't test on Windows
(assume (not (memq system-type '(cygwin windows-nt ms-dos))))
(assume (flycheck/gnupg21-available-p) "gpg not installed")
;; Create a temporary file name. Do NOT use `make-temp-file' here,

2
test/specs/test-melpa-package.el
View File

@ -63,7 +63,7 @@ version."
(when version
(let* ((name (format "flycheck-%s" version))
(url (format "http://melpa.org/packages/%s.tar" name)))
(with-timeout (5)
(with-timeout (30)
(url-copy-file url filename)))
(when (file-exists-p filename)

13
test/specs/test-util.el
View File

@ -100,8 +100,11 @@
(before-each
(setq temp-dir (make-temp-file "flycheck-exec-find-root" 'dir-flag)
program-path (expand-file-name
"dir/flycheck-testprog.program" temp-dir))
(make-directory (expand-file-name "dir" temp-dir))
(if (memq system-type '(cygwin windows-nt ms-dos))
"dir/flycheck-testprog.bat"
"dir/flycheck-testprog.program")
temp-dir))
(make-directory (expand-file-name "dir" temp-dir) t)
(write-region "" nil program-path)
(set-file-modes program-path
(logior 73 (file-modes program-path))))
@ -111,21 +114,21 @@
(it "resolves the path when given an existing program name"
(let* ((default-directory temp-dir)
(exec-path (list (expand-file-name "dir" temp-dir)))
(exec-suffixes '(".program"))
(exec-suffixes '(".program" ".bat"))
(result (flycheck-default-executable-find
"flycheck-testprog")))
(expect result :to-equal program-path)))
(it "resolves the path when given an existing relative program path"
(let* ((default-directory temp-dir)
(exec-suffixes '(".program"))
(exec-suffixes '(".program" ".bat"))
(result (flycheck-default-executable-find
"dir/flycheck-testprog")))
(expect result :to-equal program-path)))
(it "resolves the path when given an existing absolute program path"
(let* ((default-directory temp-dir)
(exec-suffixes '(".program"))
(exec-suffixes '(".program" ".bat"))
(result (flycheck-default-executable-find
(expand-file-name "dir/flycheck-testprog" temp-dir))))
(expect result :to-equal program-path)))))))