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/texlive.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/texlive.scm')
| -rw-r--r-- | tests/texlive.scm | 38 |
1 files changed, 19 insertions, 19 deletions
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 @@ completely compatible with Plain TeX.") #: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 |