3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
guix/tests/texlive.scm
Ludovic Courtès 6f918d69b4
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 14:22:08 +01:00

119 lines
4.4 KiB
Scheme

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; 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)
#:use-module (guix tests http)
#:use-module (guix build utils)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-64)
#:use-module (srfi srfi-26)
#:use-module (web client)
#:use-module (ice-9 match))
(test-begin "texlive")
(define xml
"\
<entry id=\"foo\">
<name>foo</name>
<caption>Foomatic frobnication in LuaLaTeX</caption>
<authorref id=\"rekado\"/>
<license type=\"lppl1.3\"/>
<version number=\"2.6a\"/>
<description>
<p>
Foo is a package for LuaLaTeX. It provides an interface to frobnicate gimbals
in a foomatic way with the LuaTeX engine.
</p>
<p>
The package requires the bar and golly
bundles for extremely special specialties.
</p>
</description>
<ctan path=\"/macros/latex/contrib/foo\" file=\"true\"/>
<texlive location=\"foo\"/>
<keyval key=\"topic\" value=\"tests\"/>
null
</entry>")
(define sxml
'(*TOP* (entry (@ (id "foo"))
(name "foo")
(caption "Foomatic frobnication in LuaLaTeX")
(authorref (@ (id "rekado")))
(license (@ (type "lppl1.3")))
(version (@ (number "2.6a")))
(description
(p "\n Foo is a package for LuaLaTeX. It provides an interface to frobnicate gimbals\n in a foomatic way with the LuaTeX engine.\n ")
(p "\n The package requires the bar and golly\n bundles for extremely special specialties.\n "))
(ctan (@ (path "/macros/latex/contrib/foo") (file "true")))
(texlive (@ (location "foo")))
(keyval (@ (value "tests") (key "topic")))
"\n null\n")))
;; Avoid collisions with other tests.
(%http-server-port 10200)
(test-equal "fetch-sxml: returns SXML for valid XML"
sxml
(with-http-server `((200 ,xml))
(parameterize ((current-http-proxy (%local-url)))
(fetch-sxml "foo"))))
;; TODO:
(test-assert "sxml->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))
(mkdir-p directory)
(with-output-to-file (string-append directory "/foo")
(lambda ()
(display "source")))))
(let ((result (sxml->package sxml)))
(match result
(('package
('name "texlive-latex-foo")
('version "2.6a")
('source ('origin
('method 'svn-fetch)
('uri ('texlive-ref "latex" "foo"))
('sha256
('base32
(? string? hash)))))
('build-system 'texlive-build-system)
('arguments ('quote (#:tex-directory "latex/foo")))
('home-page "http://www.ctan.org/pkg/foo")
('synopsis "Foomatic frobnication in LuaLaTeX")
('description
"Foo is a package for LuaLaTeX. It provides an interface to \
frobnicate gimbals in a foomatic way with the LuaTeX engine. The package \
requires the bar and golly bundles for extremely special specialties.")
('license 'lppl1.3+))
#t)
(_
(begin
(format #t "~s\n" result)
(pk 'fail result #f)))))))
(test-end "texlive")