mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-18 12:47:33 -05:00
c05ceaf2b6
Previously, test cases could fail if some process was listening at a hard-coded port. This patch eliminates most of these potential failures, by automatically assigning an unbound port. This should allow for building multiple guix trees in parallel outside a build container, though this is currently untested. The test "home-page: Connection refused" in tests/lint.scm still hardcodes port 9999, however. * guix/tests/http.scm (http-server-can-listen?): remove now unused procedure. (%http-server-port): default to port 0, meaning the OS will automatically choose a port. (open-http-server-socket): remove the false statement claiming this procedure is exported and also return the allocated port number. (%local-url): raise an error if the port is obviously unbound. (call-with-http-server): set %http-server-port to the allocated port while the thunk is called. * tests/derivations.scm: adjust test cases to use automatically assign a port. As there is no risk of a port conflict now, do not make any tests conditional upon 'http-server-can-listen?' anymore. * tests/elpa.scm: likewise. * tests/lint.scm: likewise, and add a TODO comment about a port that is still hard-coded. * tests/texlive.scm: likewise. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
116 lines
4.3 KiB
Scheme
116 lines
4.3 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")))
|
|
|
|
(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")
|