tests: Re-add debug output to a package tests.
* tests/packages.scm ("fold-available-packages with/without cache"): Re-introduce debugging output.master
parent
a9f4b6ecd0
commit
edffb3554f
|
@ -1774,6 +1774,9 @@
|
|||
;; exponential behavior.
|
||||
(let ((set1 duplicates1 (list->set* from-cache))
|
||||
(set2 duplicates2 (list->set* no-cache)))
|
||||
;; For easier debugging.
|
||||
(pk 'from-cache-duplicates: duplicates1)
|
||||
(pk 'no-cache-duplicates: duplicates2)
|
||||
(and (null? duplicates1) (null? duplicates2)
|
||||
(every (cut set-contains? set1 <>) no-cache)
|
||||
(every (cut set-contains? set2 <>) from-cache)))))
|
||||
|
|
Reference in New Issue