me/guix
Archived
1
0
Fork 0
Code Activity

gnu: emacs-ess: Fix build.

Browse source 
* gnu/packages/statistics.scm (emacs-ess)[arguments]<#:phases>: Re-instate
DISABLE-ETESTS function, which properly disables some tests in the
"ess-test-r-eval.el" file.

Change-Id: I71a6683e9e561f03658f871cabd0cbb36c298199
This commit is contained in:
Nicolas Goaziou 2024-04-11 10:29:29 +02:00
parent c1c9d6b3cd
commit d564e04ded
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 20 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
gnu/packages/statistics.scm
View file

@ -6888,19 +6888,35 @@ Java package that provides routines for various statistical distributions.")
(((string-append "^\\(ert-deftest " test-name ".*") (((string-append "^\\(ert-deftest " test-name ".*")
all) all)
(string-append all "(skip-unless nil)\n")) (string-append all "(skip-unless nil)\n"))
...))))) ...))))
(disable-etests ;different test syntax
(syntax-rules ()
((_ file ())
(syntax-error "test names list must not be empty"))
((_ file (test-name ...))
(emacs-batch-edit-file file
'(progn
(mapc (lambda (test)
(goto-char (point-min))
(search-forward
(format "etest-deftest %s " test))
(beginning-of-line)
(kill-sexp))
(list test-name ...))
(basic-save-buffer)))))))
(disable-tests (list "test/ess-test-inf.el" (disable-tests (list "test/ess-test-inf.el"
"test/ess-test-r.el") "test/ess-test-r.el")
("ess--derive-connection-path" ("ess--derive-connection-path"
"ess-eval-line-test" "ess-eval-line-test"
"ess-eval-region-test" "ess-eval-region-test"
"ess-mock-remote-process" "ess-mock-remote-process"
"ess-r-eval-sink-freeze-test"
"ess-r-eval-ns-env-roxy-tracebug-test"
"ess-r-load-ESSR-github-fetch-no" "ess-r-load-ESSR-github-fetch-no"
"ess-r-load-ESSR-github-fetch-yes" "ess-r-load-ESSR-github-fetch-yes"
"ess-set-working-directory-test" "ess-set-working-directory-test"
"ess-test-r-startup-directory"))))) "ess-test-r-startup-directory"))
(disable-etests "test/ess-test-r-eval.el"
("ess-r-eval-ns-env-roxy-tracebug-test"
"ess-r-eval-sink-freeze-test")))))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (invoke "make" "test")))))))) (when tests? (invoke "make" "test"))))))))