amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-google-translate: Fix tests.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-google-translate)[#:phases]:
Add ‘disable-failing-tests’.
[native-inputs]: Add emacs-el-mock and emacs-ert-runner.
This commit is contained in:
Liliana Marie Prikler 2025-03-13 20:43:00 +01:00
parent 3ea11b69dd
commit 30aeb92eea
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 24 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

24
gnu/packages/emacs-xyz.scm
View file

@ -30529,6 +30529,30 @@ conversion scenarios.")
(base32
"0rwpij2bm8d4jq2w5snkp88mfryplw8166dsrjm407n2p6xr48zx"))))
(build-system emacs-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-before 'check 'disable-failing-tests
(lambda _
(let-syntax
((disable-tests
(syntax-rules ()
((_ file ())
(syntax-error "test names list must not be empty"))
((_ file (test-name ...))
(substitute* file
(((string-append "^\\(ert-deftest " test-name ".*") all)
(string-append all "(skip-unless nil)\n")) ...)))))
;; These tests fail due to a missing requirement:
;; (void-function facemenu-set-face)
(disable-tests
"test/google-translate-core-ui-test.el"
("test-google-translate--suggestion"
"test-google-translate--text-phonetic/show-phonetic"
"test-google-translate--translation-phonetic/show-phonetic"
"test-google-translate--translated-text"))))))))
(native-inputs (list emacs-el-mock emacs-ert-runner))
(home-page "https://github.com/atykhonov/google-translate")
(synopsis "Emacs interface to Google Translate")
(description