ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Re-add debug output to a package tests.

Browse source 
* tests/packages.scm ("fold-available-packages with/without cache"):
Re-introduce debugging output.
This commit is contained in:
Maxim Cournoyer 2023-04-18 10:04:22 -04:00
parent 6834f24096
commit 1b0a095a81
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tests/packages.scm
View file

@ -1774,6 +1774,9 @@ (define (list->set* lst)
;; exponential behavior. ;; exponential behavior.
(let ((set1 duplicates1 (list->set* from-cache)) (let ((set1 duplicates1 (list->set* from-cache))
(set2 duplicates2 (list->set* no-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) (and (null? duplicates1) (null? duplicates2)
(every (cut set-contains? set1 <>) no-cache) (every (cut set-contains? set1 <>) no-cache)
(every (cut set-contains? set2 <>) from-cache))))) (every (cut set-contains? set2 <>) from-cache)))))