bug#37748: 'guix' fails tests on non-x86_64 systems

["Ludovic Courtès" <ludo@gnu.org>]

Hi Marius,

Marius Bakke <mbakke@fastmail.com> 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.

Thanks,
Ludo’.