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:
parent
946465bbaf
commit
b66d6d52cc
|
@ -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")
|
||||||
|
|
Loading…
Reference in New Issue