diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-05-31 23:50:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-05-31 23:50:06 +0200 |
| commit | 654fcf9971bb01389d577be07c6ec0f68940c743 (patch) | |
| tree | 59ff22f02c9b265adc4b8f596b9924b586895248 /tests/elpa.scm | |
| parent | 9f7cd1fcaf99c8e8430d0b29335220701664dc54 (diff) | |
| download | guix-654fcf9971bb01389d577be07c6ec0f68940c743.tar guix-654fcf9971bb01389d577be07c6ec0f68940c743.tar.gz | |
tests: Use quasiquoted 'match' patterns for package sexps.
Turns out it's easier to read.
* tests/cpan.scm ("cpan->guix-package"): Use a quasiquoted pattern.
* tests/elpa.scm (eval-test-with-elpa): Likewise.
* tests/gem.scm ("gem->guix-package")
("gem->guix-package with a specific version")
("gem-recursive-import")
("gem-recursive-import with a specific version"): Likewise.
* tests/hexpm.scm ("hexpm-recursive-import"): Likewise.
* tests/opam.scm ("opam->guix-package"): Likewise.
* tests/pypi.scm ("pypi->guix-package, no wheel")
("pypi->guix-package, wheels")
("pypi->guix-package, no usable requirement file.")
("pypi->guix-package, package name contains \"-\" followed by digits"):
Likewise.
* tests/texlive.scm ("texlive->guix-package"): Likewise.
Diffstat (limited to 'tests/elpa.scm')
| -rw-r--r-- | tests/elpa.scm | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/tests/elpa.scm b/tests/elpa.scm index 56008fe014..f6d008cd09 100644 --- a/tests/elpa.scm +++ b/tests/elpa.scm @@ -66,20 +66,20 @@ (200 "fake tarball contents")) (parameterize ((current-http-proxy (%local-url))) (match (elpa->guix-package pkg #:repo 'gnu/http) - (('package - ('name "emacs-auctex") - ('version "11.88.6") - ('source - ('origin - ('method 'url-fetch) - ('uri ('string-append - "http://elpa.gnu.org/packages/auctex-" 'version ".tar")) - ('sha256 ('base32 (? string? hash))))) - ('build-system 'emacs-build-system) - ('home-page "http://www.gnu.org/software/auctex/") - ('synopsis "Integrated environment for *TeX*") - ('description "This is the description.") - ('license 'license:gpl3+)) + (`(package + (name "emacs-auctex") + (version "11.88.6") + (source + (origin + (method url-fetch) + (uri (string-append + "http://elpa.gnu.org/packages/auctex-" version ".tar")) + (sha256 (base32 ,(? string? hash))))) + (build-system emacs-build-system) + (home-page "http://www.gnu.org/software/auctex/") + (synopsis "Integrated environment for *TeX*") + (description "This is the description.") + (license license:gpl3+)) #t) (x (pk 'fail x #f)))))) |