tests: Fix 'fold-packages' for hidden packages.

* tests/packages.scm ("fold-packages, hidden package"): Expect
GUILE-2.0, not GUILE-2.0/FIXED.  This is a followup to
c62a31ca80.
This commit is contained in:
Ludovic Courtès 2016-11-08 23:31:36 +01:00
parent 946465bbaf
commit b66d6d52cc
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -909,7 +909,7 @@ (define read-at
(test-assert "fold-packages, hidden package"
;; There are two public variables providing "guile@2.0" ('guile-final' in
;; commencement.scm and 'guile-2.0/fixed' in guile.scm), but only the latter
;; commencement.scm and 'guile-2.0' in guile.scm), but only the latter
;; should show up.
(match (fold-packages (lambda (p r)
(if (and (string=? (package-name p) "guile")
@ -919,7 +919,7 @@ (define read-at
r))
'())
((one)
(eq? one guile-2.0/fixed))))
(eq? one guile-2.0))))
(test-assert "find-packages-by-name"
(match (find-packages-by-name "hello")