tests: Add a debug output to "fold-available-packages with/without cache".
This should help to debug test failures due to duplicated packages. * tests/packages ("fold-available-packages with/without cache"): Print duplicated packages.master
parent
2f2dbde921
commit
afc3cd84d1
|
@ -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))))
|
||||
|
||||
|
|
Reference in New Issue