ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions
guix/tests/texlive.scm

565 lines
24 KiB
Scheme
Raw Normal View History

guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
;;; GNU Guix --- Functional package management for GNU
tests: Adjust texlive importer tests. This is a follow-up to commit be7b314f3fe22273e935accac22f313e44d3d970. * tests/texlive.scm: Add version field to expected output.
2022-07-22 17:01:54 -04:00
;;; Copyright © 2017, 2022 Ricardo Wurmus <rekado@elephly.net>
guix: import: Update texlive importer according to new build system. * guix/import/texlive.scm (tlpdb->package): Generate a package that doesn't need SIMPLE-TEXLIVE-PACKAGE. * guix/import/utils.scm (package->definition): Remove special case for `simple-texlive-package'. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package"): Update test. ("texlive->guix-package, no docfiles"): New test.
2023-05-05 11:22:03 -04:00
;;; Copyright © 2023 Nicolas Goaziou <mail@nicolasgoaziou.fr>
guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (test-texlive)
#:use-module (gnu packages tex)
#:use-module (guix import texlive)
#:use-module (guix tests)
import: texlive: Avoid uses of '@@' in tests. * guix/import/texlive.scm (fetch-sxml, sxml->package): Export. * tests/texlive.scm <top level>: Call '%http-server-port'. ("fetch-sxml: returns SXML for valid XML"): Use 'with-http-server' and set 'current-http-proxy' instead of using 'mock'. ("sxml->package"): Remove use of '@@'.
2020-01-17 07:50:53 -05:00
#:use-module (guix tests http)
guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
#:use-module (guix build utils)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-64)
#:use-module (srfi srfi-26)
import: texlive: Avoid uses of '@@' in tests. * guix/import/texlive.scm (fetch-sxml, sxml->package): Export. * tests/texlive.scm <top level>: Call '%http-server-port'. ("fetch-sxml: returns SXML for valid XML"): Use 'with-http-server' and set 'current-http-proxy' instead of using 'mock'. ("sxml->package"): Remove use of '@@'.
2020-01-17 07:50:53 -05:00
#:use-module (web client)
guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
#:use-module (ice-9 match))
(test-begin "texlive")
tests: Replace texlive importer tests. * tests/texlive.scm (xml, sxml): Remove variables. ("fetch-sxml: returns SXML for valid XML", "sxml->package"): Remove tests. ("texlive->guix-package"): Add new test.
2021-11-17 16:39:52 -05:00
(define %fake-tlpdb
guix: import: Improve home-page generation in texlive importer. * guix/import/texlive.scm (tlpdb): Also register `catalogue' key. (tlpdb->package): First try to use catalogue for the home-page, then the name. * tests/texlive.scm (%fake-tlpdb): Add tests data. ("texlive->guix-package, with catalogue entry, no inputs"): New test.
2023-05-14 18:45:54 -04:00
'(("12many"
. ((name
. "12many")
(catalogue
. "one2many")
(shortdesc
. "Generalising mathematical index sets")
(longdesc
. "In the discrete branches of mathematics...")
(docfiles
. ("texmf-dist/doc/latex/12many/12many.pdf"
"texmf-dist/doc/latex/12many/README"))
(srcfiles
. ("texmf-dist/source/latex/12many/12many.dtx"
"texmf-dist/source/latex/12many/12many.ins"))
(runfiles
. ("texmf-dist/tex/latex/12many/12many.sty"))
(catalogue-license . "lppl")))
guix: Let texlive importer suggest format creation. * guix/import/texlive.scm (tlpdb): Store "execute" entries. (tlpdb->package): Add #:CREATE-FORMATS argument when there is an AddFormat execute action. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package, with TeX format"): ("texlive->guix-package, execute but no TeX format"): New tests.
2023-06-04 07:15:27 -04:00
("adforn"
(name . "adforn")
(shortdesc . "OrnementsADF font with TeX/LaTeX support")
(longdesc . "The bundle provides the Ornements ADF font...")
(execute "addMap OrnementsADF.map")
(docfiles
"texmf-dist/doc/fonts/adforn/COPYING"
"texmf-dist/doc/fonts/adforn/NOTICE"
"texmf-dist/doc/fonts/adforn/README"
"texmf-dist/doc/fonts/adforn/adforn.pdf")
(runfiles
"texmf-dist/fonts/afm/arkandis/adforn/OrnementsADF.afm"
"texmf-dist/fonts/enc/dvips/adforn/OrnementsADF.enc"
"texmf-dist/fonts/map/dvips/adforn/OrnementsADF.map"
"texmf-dist/fonts/tfm/arkandis/adforn/OrnementsADF.tfm"
"texmf-dist/fonts/type1/arkandis/adforn/OrnementsADF.pfb"
"texmf-dist/tex/latex/adforn/adforn.sty"
"texmf-dist/tex/latex/adforn/uornementsadf.fd")
(catalogue-license . "lppl gpl2"))
guix: import: Fix multiple licenses output in texlive importer. * guix/import/texlive.scm (string->license): Add missing case and try first to split license strings before giving up. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package, multiple licenses"): New test.
2023-05-17 04:57:23 -04:00
("chs-physics-report"
. ((name . "ch-physics-report")
(shortdesc . "Physics lab reports...")
(longdesc . "This package may...")
(docfiles
.
("texmf-dist/doc/latex/chs-physics-report/README.txt"
"texmf-dist/doc/latex/chs-physics-report/chs-physics-report.pdf"))
(runfiles
.
("texmf-dist/tex/latex/chs-physics-report/chs-physics-report.sty"))
(catalogue-license . "pd cc-by-sa-3")))
guix: import: Improve importing texlive meta packages. * guix/import/texlive.scm (tlpdb->package): Generate more appropriate source, home page and license fields when importing meta packages, i.e., TeX Live collections and schemes. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package, meta-package"): New test.
2023-05-27 15:39:26 -04:00
("collection-texworks"
(name . "collection-texworks")
(shortdesc . "TeXworks editor...")
(longdesc . "See http...")
(depend "texworks" "collection-basic"))
guix: import: Improve home-page generation in texlive importer. * guix/import/texlive.scm (tlpdb): Also register `catalogue' key. (tlpdb->package): First try to use catalogue for the home-page, then the name. * tests/texlive.scm (%fake-tlpdb): Add tests data. ("texlive->guix-package, with catalogue entry, no inputs"): New test.
2023-05-14 18:45:54 -04:00
("example"
guix: import: Update texlive importer according to new build system. * guix/import/texlive.scm (tlpdb->package): Generate a package that doesn't need SIMPLE-TEXLIVE-PACKAGE. * guix/import/utils.scm (package->definition): Remove special case for `simple-texlive-package'. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package"): Update test. ("texlive->guix-package, no docfiles"): New test.
2023-05-05 11:22:03 -04:00
. ((name . "example")
(shortdesc . "Typeset examples...")
(longdesc . "The package makes it easier...")
(runfiles
.
("texmf-dist/tex/latex/example/example.sty"))
(catalogue-license . "gpl")))
guix: Let texlive importer suggest format creation. * guix/import/texlive.scm (tlpdb): Store "execute" entries. (tlpdb->package): Add #:CREATE-FORMATS argument when there is an AddFormat execute action. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package, with TeX format"): ("texlive->guix-package, execute but no TeX format"): New tests.
2023-06-04 07:15:27 -04:00
("lollipop"
(name . "lollipop")
(shortdesc . "TeX made easy")
(longdesc . "Lollipop is TeX made easy...")
(execute "AddFormat name=lollipop engine=tex options=\"lollipop.ini\"...")
(docfiles
"texmf-dist/doc/otherformats/lollipop/README"
"texmf-dist/doc/otherformats/lollipop/manual/address.tex"
"texmf-dist/doc/otherformats/lollipop/manual/appendix.tex"
"texmf-dist/doc/otherformats/lollipop/manual/btxmac.tex"
"texmf-dist/doc/otherformats/lollipop/manual/comm.tex"
"texmf-dist/doc/otherformats/lollipop/manual/comment.tex"
"texmf-dist/doc/otherformats/lollipop/manual/example.tex"
"texmf-dist/doc/otherformats/lollipop/manual/extern.tex"
"texmf-dist/doc/otherformats/lollipop/manual/head.tex"
"texmf-dist/doc/otherformats/lollipop/manual/list.tex"
"texmf-dist/doc/otherformats/lollipop/manual/lollipop-manual.bib"
"texmf-dist/doc/otherformats/lollipop/manual/lollipop-manual.pdf")
(runfiles
"texmf-dist/tex/lollipop/lollipop-define.tex"
"texmf-dist/tex/lollipop/lollipop-document.tex"
"texmf-dist/tex/lollipop/lollipop-float.tex"
"texmf-dist/tex/lollipop/lollipop-fontdefs.tex"
"texmf-dist/tex/lollipop/lollipop-fonts.tex"
"texmf-dist/tex/lollipop/lollipop-heading.tex"
"texmf-dist/tex/lollipop/lollipop-lists.tex"
"texmf-dist/tex/lollipop/lollipop-output.tex"
"texmf-dist/tex/lollipop/lollipop-plain.tex"
"texmf-dist/tex/lollipop/lollipop-text.tex"
"texmf-dist/tex/lollipop/lollipop-tools.tex"
"texmf-dist/tex/lollipop/lollipop.ini"
"texmf-dist/tex/lollipop/lollipop.tex")
(catalogue-license . "gpl3"))
guix: import: Update texlive importer according to new build system. * guix/import/texlive.scm (tlpdb->package): Generate a package that doesn't need SIMPLE-TEXLIVE-PACKAGE. * guix/import/utils.scm (package->definition): Remove special case for `simple-texlive-package'. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package"): Update test. ("texlive->guix-package, no docfiles"): New test.
2023-05-05 11:22:03 -04:00
("stricttex"
tests: Replace texlive importer tests. * tests/texlive.scm (xml, sxml): Remove variables. ("fetch-sxml: returns SXML for valid XML", "sxml->package"): Remove tests. ("texlive->guix-package"): Add new test.
2021-11-17 16:39:52 -05:00
. ((name
. "stricttex")
(shortdesc
. "Strictly balanced brackets and numbers in command names")
(longdesc
. "This is a small, LuaLaTeX-only package providing you with three,
sometimes useful features: It allows you to make brackets [...] \"strict\",
meaning that each [ must be balanced by a ]. It allows you to use numbers in
command names, so that you can do stuff like \\newcommand\\pi12{\\pi_{12}}. It
allows you to use numbers and primes in command names, so that you can do
stuff like \\newcommand\\pi'12{\\pi '_{12}}.")
(docfiles
. ("texmf-dist/doc/lualatex/stricttex/README.md"
"texmf-dist/doc/lualatex/stricttex/stricttex.pdf"))
(runfiles
. ("texmf-dist/tex/lualatex/stricttex/stricttex.lua"
"texmf-dist/tex/lualatex/stricttex/stricttex.sty"))
(catalogue-license . "lppl1.3c")))
("texsis"
. ((name
. "texsis")
(shortdesc
. "Plain TeX macros for Physicists")
(longdesc
. "TeXsis is a TeX macro package which provides useful features for
typesetting research papers and related documents. For example, it includes
support specifically for: Automatic numbering of equations, figures, tables
and references; Simplified control of type sizes, line spacing, footnotes,
running headlines and footlines, and tables of contents, figures and tables;
Specialized document formats for research papers, preprints and \"e-prints\",
conference proceedings, theses, books, referee reports, letters, and
memoranda; Simplified means of constructing an index for a book or thesis;
Easy to use double column formatting; Specialized environments for lists,
theorems and proofs, centered or non-justified text, and listing computer
code; Specialized macros for easily constructing ruled tables. TeXsis was
originally developed for physicists, but others may also find it useful. It is
completely compatible with Plain TeX.")
guix: import: Update texlive importer according to new build system. * guix/import/texlive.scm (tlpdb->package): Generate a package that doesn't need SIMPLE-TEXLIVE-PACKAGE. * guix/import/utils.scm (package->definition): Remove special case for `simple-texlive-package'. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package"): Update test. ("texlive->guix-package, no docfiles"): New test.
2023-05-05 11:22:03 -04:00
(depend . ("tex" "plain" "knuth-lib" "hyphen-base" "cm"))
tests: Replace texlive importer tests. * tests/texlive.scm (xml, sxml): Remove variables. ("fetch-sxml: returns SXML for valid XML", "sxml->package"): Remove tests. ("texlive->guix-package"): Add new test.
2021-11-17 16:39:52 -05:00
(docfiles
. ("texmf-dist/doc/man/man1/texsis.1"
"texmf-dist/doc/man/man1/texsis.man1.pdf"
"texmf-dist/doc/otherformats/texsis/base/COPYING"
"texmf-dist/doc/otherformats/texsis/base/Example.tex"
"texmf-dist/doc/otherformats/texsis/base/Fonts.tex"
"texmf-dist/doc/otherformats/texsis/base/INSTALL"
"texmf-dist/doc/otherformats/texsis/base/Install.tex"
"texmf-dist/doc/otherformats/texsis/base/MANIFEST"
"texmf-dist/doc/otherformats/texsis/base/Manual.fgl"
"texmf-dist/doc/otherformats/texsis/base/Manual.ref"
"texmf-dist/doc/otherformats/texsis/base/Manual.tbl"
"texmf-dist/doc/otherformats/texsis/base/Manual.tex"
"texmf-dist/doc/otherformats/texsis/base/NEWS"
"texmf-dist/doc/otherformats/texsis/base/README"
"texmf-dist/doc/otherformats/texsis/base/TXSapxF.doc"
"texmf-dist/doc/otherformats/texsis/base/TXScover.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSdcol.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSdoc.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSdoc0.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSdocM.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSend.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSenvmt.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSeqns.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSfigs.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSfmts.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSfonts.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSinstl.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSintro.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSletr.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSmisc.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSprns.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSrefs.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSrevs.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSruled.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSsects.doc"
"texmf-dist/doc/otherformats/texsis/base/TXSsite.000"
"texmf-dist/doc/otherformats/texsis/base/TXSsymb.doc"
"texmf-dist/doc/otherformats/texsis/base/TXStags.doc"
"texmf-dist/doc/otherformats/texsis/base/index.tex"
"texmf-dist/doc/otherformats/texsis/base/letr"
"texmf-dist/doc/otherformats/texsis/base/penguin.eps"
"texmf-dist/doc/otherformats/texsis/base/penguin2.eps"
"texmf-dist/doc/otherformats/texsis/base/texsis.el"
"texmf-dist/doc/otherformats/texsis/base/texsis.lsm"))
(runfiles
. ("texmf-dist/bibtex/bst/texsis/texsis.bst"
"texmf-dist/tex/texsis/base/AIP.txs"
"texmf-dist/tex/texsis/base/CVformat.txs"
"texmf-dist/tex/texsis/base/Elsevier.txs"
"texmf-dist/tex/texsis/base/Exam.txs"
"texmf-dist/tex/texsis/base/Formletr.txs"
"texmf-dist/tex/texsis/base/IEEE.txs"
"texmf-dist/tex/texsis/base/PhysRev.txs"
"texmf-dist/tex/texsis/base/Spanish.txs"
"texmf-dist/tex/texsis/base/Swedish.txs"
"texmf-dist/tex/texsis/base/TXSconts.tex"
"texmf-dist/tex/texsis/base/TXSdcol.tex"
"texmf-dist/tex/texsis/base/TXSenvmt.tex"
"texmf-dist/tex/texsis/base/TXSeqns.tex"
"texmf-dist/tex/texsis/base/TXSfigs.tex"
"texmf-dist/tex/texsis/base/TXSfmts.tex"
"texmf-dist/tex/texsis/base/TXSfonts.tex"
"texmf-dist/tex/texsis/base/TXShead.tex"
"texmf-dist/tex/texsis/base/TXSinit.tex"
"texmf-dist/tex/texsis/base/TXSletr.tex"
"texmf-dist/tex/texsis/base/TXSmacs.tex"
"texmf-dist/tex/texsis/base/TXSmemo.tex"
"texmf-dist/tex/texsis/base/TXSprns.tex"
"texmf-dist/tex/texsis/base/TXSrefs.tex"
"texmf-dist/tex/texsis/base/TXSruled.tex"
"texmf-dist/tex/texsis/base/TXSsects.tex"
"texmf-dist/tex/texsis/base/TXSsite.tex"
"texmf-dist/tex/texsis/base/TXSsymb.tex"
"texmf-dist/tex/texsis/base/TXStags.tex"
"texmf-dist/tex/texsis/base/TXStitle.tex"
"texmf-dist/tex/texsis/base/Tablebod.txs"
"texmf-dist/tex/texsis/base/WorldSci.txs"
"texmf-dist/tex/texsis/base/color.txs"
"texmf-dist/tex/texsis/base/nuclproc.txs"
"texmf-dist/tex/texsis/base/printfont.txs"
"texmf-dist/tex/texsis/base/spine.txs"
"texmf-dist/tex/texsis/base/texsis.tex"
"texmf-dist/tex/texsis/base/thesis.txs"
"texmf-dist/tex/texsis/base/twin.txs"
"texmf-dist/tex/texsis/config/texsis.ini"))
guix: import: Handle native inputs in texlive importer. * guix/import/texlive.scm (tlpdb->package): Add TEXLIVE-METAFONT as a native input whenever font metrics are to be generated. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package, with METAFONT files"): New test.
2023-05-19 17:27:38 -04:00
(catalogue-license . "lppl")))
("trsym"
(name . "trsym")
(shortdesc . "Symbols for transformations")
(longdesc . "The bundle provides Metafont...")
(docfiles "texmf-dist/doc/latex/trsym/README"
"texmf-dist/doc/latex/trsym/manifest.txt"
"texmf-dist/doc/latex/trsym/trsym.pdf")
(srcfiles "texmf-dist/source/latex/trsym/trsym.dtx"
"texmf-dist/source/latex/trsym/trsym.ins")
(runfiles "texmf-dist/fonts/source/public/trsym/trsy.mf"
"texmf-dist/fonts/source/public/trsym/trsy10.mf"
"texmf-dist/fonts/source/public/trsym/trsy12.mf"
"texmf-dist/fonts/tfm/public/trsym/trsy10.tfm"
"texmf-dist/fonts/tfm/public/trsym/trsy12.tfm"
"texmf-dist/tex/latex/trsym/trsym.sty"
"texmf-dist/tex/latex/trsym/utrsy.fd")
(catalogue-license . "lppl"))))
guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
guix: import: Update texlive importer according to new build system. * guix/import/texlive.scm (tlpdb->package): Generate a package that doesn't need SIMPLE-TEXLIVE-PACKAGE. * guix/import/utils.scm (package->definition): Remove special case for `simple-texlive-package'. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package"): Update test. ("texlive->guix-package, no docfiles"): New test.
2023-05-05 11:22:03 -04:00
(test-assert "texlive->guix-package, no docfiles"
;; Replace network resources with sample data.
(mock ((guix build svn) svn-fetch
(lambda* (url revision directory
#:key (svn-command "svn")
(user-name #f)
(password #f)
(recursive? #t))
(mkdir-p directory)
(with-output-to-file (string-append directory "/foo")
(lambda ()
(display "source")))))
(let ((result (texlive->guix-package "example"
#:package-database
(lambda _ %fake-tlpdb))))
(match result
(('package
('name "texlive-example")
('version _)
('source ('texlive-origin
'name 'version
('list "tex/latex/example/")
('base32 (? string? hash))))
('build-system 'texlive-build-system)
('home-page (? string?))
('synopsis (? string?))
('description (? string?))
('license _))
#true)
(_
(begin
(format #t "~s~%" result)
(pk 'fail result #f)))))))
tests: Replace texlive importer tests. * tests/texlive.scm (xml, sxml): Remove variables. ("fetch-sxml: returns SXML for valid XML", "sxml->package"): Remove tests. ("texlive->guix-package"): Add new test.
2021-11-17 16:39:52 -05:00
(test-assert "texlive->guix-package"
guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
;; Replace network resources with sample data.
(mock ((guix build svn) svn-fetch
(lambda* (url revision directory
#:key (svn-command "svn")
(user-name #f)
tests: Replace texlive importer tests. * tests/texlive.scm (xml, sxml): Remove variables. ("fetch-sxml: returns SXML for valid XML", "sxml->package"): Remove tests. ("texlive->guix-package"): Add new test.
2021-11-17 16:39:52 -05:00
(password #f)
(recursive? #t))
guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
(mkdir-p directory)
(with-output-to-file (string-append directory "/foo")
(lambda ()
(display "source")))))
tests: Replace texlive importer tests. * tests/texlive.scm (xml, sxml): Remove variables. ("fetch-sxml: returns SXML for valid XML", "sxml->package"): Remove tests. ("texlive->guix-package"): Add new test.
2021-11-17 16:39:52 -05:00
(let ((result (texlive->guix-package "texsis"
#:package-database
(lambda _ %fake-tlpdb))))
guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
(match result
guix: import: Update texlive importer according to new build system. * guix/import/texlive.scm (tlpdb->package): Generate a package that doesn't need SIMPLE-TEXLIVE-PACKAGE. * guix/import/utils.scm (package->definition): Remove special case for `simple-texlive-package'. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package"): Update test. ("texlive->guix-package, no docfiles"): New test.
2023-05-05 11:22:03 -04:00
(('package
('name "texlive-texsis")
('version _)
('source ('texlive-origin
'name 'version
('list "bibtex/bst/texsis/"
"doc/man/man1/texsis.1"
"doc/man/man1/texsis.man1.pdf"
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.
2023-05-31 17:50:06 -04:00
"doc/otherformats/texsis/base/"
"tex/texsis/base/"
"tex/texsis/config/")
guix: import: Update texlive importer according to new build system. * guix/import/texlive.scm (tlpdb->package): Generate a package that doesn't need SIMPLE-TEXLIVE-PACKAGE. * guix/import/utils.scm (package->definition): Remove special case for `simple-texlive-package'. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package"): Update test. ("texlive->guix-package, no docfiles"): New test.
2023-05-05 11:22:03 -04:00
('base32 (? string? hash))))
('outputs ''("out" "doc"))
('build-system 'texlive-build-system)
('propagated-inputs
('list 'texlive-cm
'texlive-hyphen-base
'texlive-knuth-lib
'texlive-plain
'texlive-tex))
('home-page (? string?))
('synopsis (? string?))
('description (? string?))
('license 'lppl))
tests: Replace texlive importer tests. * tests/texlive.scm (xml, sxml): Remove variables. ("fetch-sxml: returns SXML for valid XML", "sxml->package"): Remove tests. ("texlive->guix-package"): Add new test.
2021-11-17 16:39:52 -05:00
#true)
guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
(_
(begin
tests: Replace texlive importer tests. * tests/texlive.scm (xml, sxml): Remove variables. ("fetch-sxml: returns SXML for valid XML", "sxml->package"): Remove tests. ("texlive->guix-package"): Add new test.
2021-11-17 16:39:52 -05:00
(format #t "~s~%" result)
guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
(pk 'fail result #f)))))))
guix: import: Handle native inputs in texlive importer. * guix/import/texlive.scm (tlpdb->package): Add TEXLIVE-METAFONT as a native input whenever font metrics are to be generated. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package, with METAFONT files"): New test.
2023-05-19 17:27:38 -04:00
(test-assert "texlive->guix-package, with METAFONT files"
;; Replace network resources with sample data.
(mock ((guix build svn) svn-fetch
(lambda* (url revision directory
#:key (svn-command "svn")
(user-name #f)
(password #f)
(recursive? #t))
(mkdir-p directory)
(with-output-to-file (string-append directory "/foo")
(lambda ()
(display "source")))))
(let ((result (texlive->guix-package "trsym"
#:package-database
(lambda _ %fake-tlpdb))))
(match result
(('package
('name _)
('version _)
('source _)
('outputs _)
('build-system _)
('native-inputs
('list 'texlive-metafont))
('home-page (? string?))
('synopsis (? string?))
('description (? string?))
('license _))
#true)
(_
(begin
(format #t "~s~%" result)
(pk 'fail result #f)))))))
guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
guix: import: Improve home-page generation in texlive importer. * guix/import/texlive.scm (tlpdb): Also register `catalogue' key. (tlpdb->package): First try to use catalogue for the home-page, then the name. * tests/texlive.scm (%fake-tlpdb): Add tests data. ("texlive->guix-package, with catalogue entry, no inputs"): New test.
2023-05-14 18:45:54 -04:00
(test-assert "texlive->guix-package, with catalogue entry, no inputs"
;; Replace network resources with sample data.
(mock ((guix build svn) svn-fetch
(lambda* (url revision directory
#:key (svn-command "svn")
(user-name #f)
(password #f)
(recursive? #t))
(mkdir-p directory)
(with-output-to-file (string-append directory "/foo")
(lambda ()
(display "source")))))
(let ((result (texlive->guix-package "12many"
#:package-database
(lambda _ %fake-tlpdb))))
(match result
(('package
('name "texlive-12many")
('version _)
('source ('texlive-origin
'name 'version
('list "doc/latex/12many/"
"source/latex/12many/"
"tex/latex/12many/")
('base32 (? string? hash))))
('outputs ''("out" "doc"))
('build-system 'texlive-build-system)
('home-page "https://ctan.org/pkg/one2many")
('synopsis (? string?))
('description (? string?))
('license 'lppl))
#true)
(_
(begin
(format #t "~s~%" result)
(pk 'fail result #f)))))))
guix: import: Fix multiple licenses output in texlive importer. * guix/import/texlive.scm (string->license): Add missing case and try first to split license strings before giving up. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package, multiple licenses"): New test.
2023-05-17 04:57:23 -04:00
(test-assert "texlive->guix-package, multiple licenses"
;; Replace network resources with sample data.
(mock ((guix build svn) svn-fetch
(lambda* (url revision directory
#:key (svn-command "svn")
(user-name #f)
(password #f)
(recursive? #t))
(mkdir-p directory)
(with-output-to-file (string-append directory "/foo")
(lambda ()
(display "source")))))
(let ((result (texlive->guix-package "chs-physics-report"
#:package-database
(lambda _ %fake-tlpdb))))
(match result
(('package
('name "texlive-chs-physics-report")
('version _)
('source ('texlive-origin
'name 'version
('list "doc/latex/chs-physics-report/"
"tex/latex/chs-physics-report/")
('base32 (? string? hash))))
('outputs ''("out" "doc"))
('build-system 'texlive-build-system)
('home-page (? string?))
('synopsis (? string?))
('description (? string?))
('license ('list 'public-domain 'cc-by-sa3.0)))
#true)
(_
(begin
(format #t "~s~%" result)
(pk 'fail result #f)))))))
guix: import: Improve importing texlive meta packages. * guix/import/texlive.scm (tlpdb->package): Generate more appropriate source, home page and license fields when importing meta packages, i.e., TeX Live collections and schemes. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package, meta-package"): New test.
2023-05-27 15:39:26 -04:00
(test-assert "texlive->guix-package, meta-package"
;; Replace network resources with sample data.
(mock ((guix build svn) svn-fetch
(lambda* (url revision directory
#:key (svn-command "svn")
(user-name #f)
(password #f)
(recursive? #t))
(mkdir-p directory)
(with-output-to-file (string-append directory "/foo")
(lambda ()
(display "source")))))
(let ((result (texlive->guix-package "collection-texworks"
#:package-database
(lambda _ %fake-tlpdb))))
(match result
(('package
('name "texlive-collection-texworks")
('version _)
('source #f)
('build-system 'texlive-build-system)
('propagated-inputs
('list 'texlive-collection-basic 'texlive-texworks))
('home-page "https://www.tug.org/texlive/")
('synopsis (? string?))
('description (? string?))
('license
('license:fsf-free "https://www.tug.org/texlive/copying.html")))
#true)
(_
(begin
(format #t "~s~%" result)
(pk 'fail result #f)))))))
guix: Let texlive importer suggest format creation. * guix/import/texlive.scm (tlpdb): Store "execute" entries. (tlpdb->package): Add #:CREATE-FORMATS argument when there is an AddFormat execute action. * tests/texlive.scm (%fake-tlpdb): Add test data. ("texlive->guix-package, with TeX format"): ("texlive->guix-package, execute but no TeX format"): New tests.
2023-06-04 07:15:27 -04:00
(test-assert "texlive->guix-package, with TeX format"
;; Replace network resources with sample data.
(mock ((guix build svn) svn-fetch
(lambda* (url revision directory
#:key (svn-command "svn")
(user-name #f)
(password #f)
(recursive? #t))
(mkdir-p directory)
(with-output-to-file (string-append directory "/foo")
(lambda ()
(display "source")))))
(let ((result (texlive->guix-package "lollipop"
#:package-database
(lambda _ %fake-tlpdb))))
(match result
(('package
('name "texlive-lollipop")
('version _)
('source ('texlive-origin
'name 'version
('list "doc/otherformats/lollipop/"
"tex/lollipop/")
('base32 (? string? hash))))
('outputs ''("out" "doc"))
('build-system 'texlive-build-system)
('arguments ('list '#:create-formats ('gexp ('list "lollipop"))))
('home-page (? string?))
('synopsis (? string?))
('description (? string?))
('license 'gpl3))
#true)
(_
(begin
(format #t "~s~%" result)
(pk 'fail result #f)))))))
(test-assert "texlive->guix-package, execute but no TeX format"
;; Replace network resources with sample data.
(mock ((guix build svn) svn-fetch
(lambda* (url revision directory
#:key (svn-command "svn")
(user-name #f)
(password #f)
(recursive? #t))
(mkdir-p directory)
(with-output-to-file (string-append directory "/foo")
(lambda ()
(display "source")))))
(let ((result (texlive->guix-package "adforn"
#:package-database
(lambda _ %fake-tlpdb))))
(match result
(('package
('name "texlive-adforn")
('version _)
('source _)
('outputs ''("out" "doc"))
('build-system 'texlive-build-system)
('home-page (? string?))
('synopsis (? string?))
('description (? string?))
('license _))
#true)
(_
(begin
(format #t "~s~%" result)
(pk 'fail result #f)))))))
guix: Add texlive importer. * guix/import/texlive.scm: New file. * guix/scripts/import/texlive.scm: New file. * Makefile.am (MODULES): Add them. * tests/texlive.scm: New file. * Makefile.am (SCM_TESTS): Add it. * guix/scripts/import.scm (importers): Add texlive importer. * doc/guix.texi (Invoking guix import): Document it.
2017-06-09 06:35:50 -04:00
(test-end "texlive")
Reference in a new issue Copy permalink