~ruther/guix-local

edffb3554ff8cbe84c633445cb0df26ac1eae93f — Maxim Cournoyer 3 years ago a9f4b6e
tests: Re-add debug output to a package tests.

* tests/packages.scm ("fold-available-packages with/without cache"):
Re-introduce debugging output.
1 files changed, 3 insertions(+), 0 deletions(-)

M tests/packages.scm
M tests/packages.scm => tests/packages.scm +3 -0
@@ 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)))))