mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-17 12:30:38 +02:00
Code Releases Activity

gnu: emacs-sly: Skip failing test.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-sly) [arguments]: Improve style.
{phases}: Add phase patch-tests to ignore a single failing test.
[native-inputs]: Add sbcl.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Nicolas Graves 2025-03-20 11:08:46 +01:00 • committed by Liliana Marie Prikler
parent ebd3437bba
commit d26d4bf431
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 40 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -18169,42 +18169,47 @@ e.g., the expression you've just evaluated would briefly flash and so on.")
"15nyr02ykkws4q79jcmxcawddg8sgq9v5l8k7jv7gg3hnpzxjlb2")))) "15nyr02ykkws4q79jcmxcawddg8sgq9v5l8k7jv7gg3hnpzxjlb2"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(native-inputs (native-inputs
(list texinfo)) (list sbcl texinfo))
(arguments (arguments
`(#:include (cons* "^contrib\\/" "^lib\\/" "^slynk\\/" %default-include) (list
#:phases #:include #~(cons* "^contrib\\/" "^lib\\/" "^slynk\\/" %default-include)
;; The package provides autoloads. #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'make-autoloads) (delete 'make-autoloads) ; The package provides autoloads.
(add-before 'install 'install-doc (add-before 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let* ((info-dir (string-append #$output "/share/info"))
(info-dir (string-append out "/share/info")) (doc-dir (string-append #$output "/share/doc/"
(doc-dir (string-append out "/share/doc/" #$name "-" #$version))
,name "-" ,version)) (doc-files '( ;; "doc/sly-refcard.pdf" ; See sly-refcard.pdf below.
(doc-files '( ;; "doc/sly-refcard.pdf" ; See sly-refcard.pdf below. "README.md" "NEWS.md" "PROBLEMS.md"
"README.md" "NEWS.md" "PROBLEMS.md" "CONTRIBUTING.md")))
"CONTRIBUTING.md"))) (with-directory-excursion "doc"
(with-directory-excursion "doc" (substitute* "Makefile"
(substitute* "Makefile" (("infodir=/usr/local/info")
(("infodir=/usr/local/info") (string-append "infodir=" info-dir))
(string-append "infodir=" info-dir)) ;; Don't rebuild contributors.texi since we are not in
;; Don't rebuild contributors.texi since we are not in ;; the git repo.
;; the git repo. (("contributors.texi: Makefile texinfo-tabulate.awk")
(("contributors.texi: Makefile texinfo-tabulate.awk") "contributors.texi:"))
"contributors.texi:")) (invoke "make" "html/index.html")
(invoke "make" "html/index.html") (invoke "make" "sly.info")
(invoke "make" "sly.info") ;; TODO: We need minimal texlive with "preprint" package
;; TODO: We need minimal texlive with "preprint" package ;; (for fullpage.sty). (invoke "make" "sly-refcard.pdf")
;; (for fullpage.sty). (invoke "make" "sly-refcard.pdf") (install-file "sly.info" info-dir)
(install-file "sly.info" info-dir) (copy-recursively "html" (string-append doc-dir "/html")))
(copy-recursively "html" (string-append doc-dir "/html"))) (for-each (lambda (f)
(for-each (lambda (f) (install-file f doc-dir)
(install-file f doc-dir) (delete-file f))
(delete-file f)) doc-files)
doc-files) (delete-file-recursively "doc"))))
(delete-file-recursively "doc") (add-before 'check 'patch-tests
#t)))))) (lambda _
(setenv "HOME" (dirname (getcwd)))
(substitute* "test/sly-stickers-tests.el"
(("\
\\(define-sly-ert-test stickers-when-invalid-dont-stick .*" all)
(string-append all " (skip-unless nil)\n"))))))))
(home-page "https://github.com/joaotavora/sly") (home-page "https://github.com/joaotavora/sly")
(synopsis "Sylvester the Cat's Common Lisp IDE") (synopsis "Sylvester the Cat's Common Lisp IDE")
(description (description