ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Adjust `package-field-location' test for Guile <= 2.0.6.

Browse source 
* tests/packages.scm ("package-field-location"): Check the result of
  `read-at' against both VALUE and (FIELD VALUE).
  Reported by Matthew Lien - 練喆明" <bluet@bluet.org>.
This commit is contained in:
Ludovic Courtès 2013-07-08 22:53:31 +02:00
parent caddc24fa4
commit ee48b283fa
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/packages.scm
View file

@ -70,10 +70,14 @@ (define read-at
(goto port line column) (goto port line column)
(read port)))))) (read port))))))
(and (equal? (read-at (package-field-location %bootstrap-guile 'name)) ;; Until Guile 2.0.6 included, source properties were added only to pairs.
(package-name %bootstrap-guile)) ;; Thus, check against both VALUE and (FIELD VALUE).
(equal? (read-at (package-field-location %bootstrap-guile 'version)) (and (member (read-at (package-field-location %bootstrap-guile 'name))
(package-version %bootstrap-guile)) (let ((name (package-name %bootstrap-guile)))
(list name `(name ,name))))
(member (read-at (package-field-location %bootstrap-guile 'version))
(let ((version (package-version %bootstrap-guile)))
(list version `(version ,version))))
(not (package-field-location %bootstrap-guile 'does-not-exist))))) (not (package-field-location %bootstrap-guile 'does-not-exist)))))
(test-assert "package-transitive-inputs" (test-assert "package-transitive-inputs"