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
1 changed files with 2 additions and 2 deletions

View File

@ -909,7 +909,7 @@
(test-assert "fold-packages, hidden package" (test-assert "fold-packages, hidden package"
;; There are two public variables providing "guile@2.0" ('guile-final' in ;; 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. ;; should show up.
(match (fold-packages (lambda (p r) (match (fold-packages (lambda (p r)
(if (and (string=? (package-name p) "guile") (if (and (string=? (package-name p) "guile")
@ -919,7 +919,7 @@
r)) r))
'()) '())
((one) ((one)
(eq? one guile-2.0/fixed)))) (eq? one guile-2.0))))
(test-assert "find-packages-by-name" (test-assert "find-packages-by-name"
(match (find-packages-by-name "hello") (match (find-packages-by-name "hello")