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

tests: Add a debug output to "fold-available-packages with/without cache".

Browse source 
This should help to debug test failures due to duplicated packages.

* tests/packages ("fold-available-packages with/without cache"): Print
duplicated packages.
This commit is contained in:
Mathieu Othacehe 2020-08-24 11:51:26 +02:00
parent 2f2dbde921
commit afc3cd84d1
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/packages.scm
View file

@ -1326,6 +1326,15 @@ (define from-cache
result))
'()))))))
(define (find-duplicates l)
(match l
(() '())
((head . tail)
(if (member head tail)
(cons head (find-duplicates tail))
(find-duplicates tail)))))
(pk (find-duplicates from-cache))
(and (equal? (delete-duplicates from-cache) from-cache)
(lset= equal? no-cache from-cache))))