Ludovic Courtès <[email protected]> skribis: > Marius Bakke <[email protected]> skribis: > >> test-name: fold-available-packages with/without cache >> location: >> /tmp/guix-build-guix-1.0.1-7.fc1fe72.drv-0/source/tests/packages.scm:1110 >> source: >> + (test-assert >> + "fold-available-packages with/without cache" >> + (let () >> + (define no-cache >> + (fold-available-packages >> + (lambda* (name version result #:rest rest) >> + (cons (cons* name version rest) result)) >> + '())) >> + (define from-cache >> + (call-with-temporary-directory >> + (lambda (cache) >> + (generate-package-cache cache) >> + (mock ((guix describe) current-profile (const cache)) >> + (mock ((gnu packages) >> + cache-is-authoritative? >> + (const #t)) >> + (fold-available-packages >> + (lambda* (name version result #:rest rest) >> + (cons (cons* name version rest) result)) >> + '())))))) >> + (and (equal? >> + (delete-duplicates from-cache) >> + from-cache) >> + (lset= equal? no-cache from-cache)))) >> actual-value: #f >> result: FAIL > > Oops! Commit 88da011592a679776088b64b8d11575563c3f867 fixes it. > > I’m testing ‘guix’ packages updated to that commit and will push > tomorrow if everything goes well and nobody beats me at it.
Done in 062158cd7e89ccd40381ca96ce016c841507cedb. Ludo'.
