tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-07 05:30:38 +02:00
Code Activity

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
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tests/packages.scm
View File

@@ -1326,6 +1326,15 @@
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))))