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.
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

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))))