From 654fcf9971bb01389d577be07c6ec0f68940c743 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 31 May 2023 23:50:06 +0200
Subject: 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.
---
 tests/elpa.scm | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'tests/elpa.scm')

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 @@ (define (eval-test-with-elpa pkg)
                       (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))))))
-- 
cgit v1.2.3