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/texlive.scm | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

(limited to 'tests/texlive.scm')

diff --git a/tests/texlive.scm b/tests/texlive.scm
index c3631861ce..7d7ad332b4 100644
--- a/tests/texlive.scm
+++ b/tests/texlive.scm
@@ -174,27 +174,27 @@ (define %fake-tlpdb
                                              #:package-database
                                              (lambda _ %fake-tlpdb))))
           (match result
-            (('package
-               ('inherit ('simple-texlive-package
+            (`(package
+                (inherit (simple-texlive-package
                           "texlive-texsis"
-                          ('list "bibtex/bst/texsis/"
-                                 "doc/man/man1/"
-                                 "doc/otherformats/texsis/base/"
-                                 "tex/texsis/base/"
-                                 "tex/texsis/config/")
-                          ('base32 (? string? hash))
+                          (list "bibtex/bst/texsis/"
+                                "doc/man/man1/"
+                                "doc/otherformats/texsis/base/"
+                                "tex/texsis/base/"
+                                "tex/texsis/config/")
+                          (base32 ,(? string? hash))
                           #:trivial? #t))
-               ('version . any)
-               ('propagated-inputs
-                ('list 'texlive-cm
-                       'texlive-hyphen-base
-                       'texlive-knuth-lib
-                       'texlive-plain
-                       'texlive-tex))
-               ('home-page (? string?))
-               ('synopsis (? string?))
-               ('description (? string?))
-               ('license 'lppl))
+                (version ,_)
+                (propagated-inputs
+                 (list texlive-cm
+                       texlive-hyphen-base
+                       texlive-knuth-lib
+                       texlive-plain
+                       texlive-tex))
+                (home-page ,(? string?))
+                (synopsis ,(? string?))
+                (description ,(? string?))
+                (license lppl))
              #true)
             (_
              (begin
-- 
cgit v1.2.3