apteryx pushed a commit to branch master
in repository guix.
commit edffb3554ff8cbe84c633445cb0df26ac1eae93f
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Tue Apr 18 10:04:22 2023 -0400
tests: Re-add debug output to a package tests.
* tests/packages.scm ("fold-available-packages with/without cache"):
Re-introduce debugging output.
---
tests/packages.scm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/tests/packages.scm b/tests/packages.scm
index ef97fca86d..5e8eac99dc 100644
--- a/tests/packages.scm
+++ b/tests/packages.scm
@@ -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)))))
