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

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

Ludovic Courtès <ludo@gnu.org> skribis:

> 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.

Done in 062158cd7e89ccd40381ca96ce016c841507cedb.

Ludo'.