guix: import texlive: Handle versions.

* guix/import/texlive.scm (texlive-repository):
(texlive-repository-location):
(svn-command):
(version->revision):
(current-day):
(latest-texlive-tag):
(texlive->svn-multi-reference): New variables.
(tlpdb-file) Remove function.
(tlpdb): Add VERSION argument.
* guix/import/texlive.scm (list-upstream-inputs): Add VERSION and DATABASE
arguments.
(tlpdb->package): Do not use fixed version.  Instead, make use of the version
provided as an argument.  Add DATABASE argument for testing.
(texlive->guix-package): Do not memoize.  Allow providing any TeX Live release
tag as version.  Default to latest tag.  Add DATABASE argument for testing.
Improve docstring.

* tests/texlive.scm ("texlive->guix-package, no docfiles"):
("texlive->guix-package"):
("texlive->guix-package, with METAFONT files"):
("texlive->guix-package, with catalogue entry, no inputs"):
("texlive->guix-package, multiple licenses"):
("texlive->guix-package, meta-package"):
("texlive->guix-package, with TeX format"):
("texlive->guix-package, execute but no TeX format"):
("texlive->guix-package, translate dependencies"):
("texlive->guix-package, lonely `hyphen-base' dependency and ARCH"):
("texlive->guix-package, single script, no extension"):
("texlive->guix-package, multiple scripts, with extensions"):
("texlive->guix-package, script with associated input"):
("texlive->guix-package, propagated binaries, no script"):
("texlive->guix-package, propagated binaries and scripts"):
("texlive->guix-package, with skipped propagated binaries"): Update tests.

Change-Id: I7576b6e31e9ec3ff84258b71d0c4dd180d2b5c38

1 files changed, 32 insertions, 32 deletions

diff --git a/tests/texlive.scm b/tests/texlive.scm
index bfd3f57f20..427d4b2cf7 100644
--- a/tests/texlive.scm
+++ b/tests/texlive.scm
@@ -369,8 +369,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "example"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-example")
@@ -403,8 +403,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "texsis"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-texsis")
@@ -449,8 +449,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "trsym"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name _)
@@ -483,8 +483,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "12many"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-12many")
@@ -520,8 +520,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "chs-physics-report"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-chs-physics-report")
@@ -556,8 +556,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "collection-texworks"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-collection-texworks")
@@ -592,8 +592,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "lollipop"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-lollipop")
@@ -629,8 +629,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "adforn"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-adforn")
@@ -661,8 +661,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "collection-basic"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-collection-basic")
@@ -696,8 +696,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "tex"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-tex")
@@ -731,8 +731,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "authorindex"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-authorindex")
@@ -765,8 +765,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "cyrillic-bin"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-cyrillic-bin")
@@ -800,8 +800,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "pax"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-pax")
@@ -836,8 +836,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "vlna"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-vlna")
@@ -870,8 +870,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "m-tx"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-m-tx")
@@ -905,8 +905,8 @@ completely compatible with Plain TeX.")
              (lambda ()
                (display "source")))))
         (let ((result (texlive->guix-package "web"
-                                             #:package-database
-                                             (lambda _ %fake-tlpdb))))
+                                             #:version "0"
+                                             #:database %fake-tlpdb)))
           (match result
             (('package
                ('name "texlive-web")