diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-04-18 10:04:22 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-04-18 11:23:47 -0400 |
| commit | edffb3554ff8cbe84c633445cb0df26ac1eae93f (patch) | |
| tree | ae2fdbc39a30f31dc5fd619fc923ec3e426a2f31 /tests/packages.scm | |
| parent | a9f4b6ecd00112ae4fb04dfbe0f9cc86b042dbc5 (diff) | |
| download | guix-edffb3554ff8cbe84c633445cb0df26ac1eae93f.tar guix-edffb3554ff8cbe84c633445cb0df26ac1eae93f.tar.gz | |
tests: Re-add debug output to a package tests.
* tests/packages.scm ("fold-available-packages with/without cache"):
Re-introduce debugging output.
Diffstat (limited to 'tests/packages.scm')
| -rw-r--r-- | tests/packages.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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))))) |