bug#44745: tests/lint.scm fails building guix with guile-2.2

[zimoun <zimon.toutoune@gmail.com>]

Hi Vagrant,

On Thu, 19 Nov 2020 at 16:35, Vagrant Cascadian <vagrant@debian.org> wrote:

> test-name: archival: missing content
> location: /build/guix-EdK9LP/guix-1.2.0~rc2/tests/lint.scm:921
> source:
> + (test-assert
> +   "archival: missing content"
> +   (let* ((origin
> +            (origin
> +              (method url-fetch)
> +              (uri "http://example.org/foo.tgz")
> +              (sha256 (make-bytevector 32))))
> +          (warnings
> +            (with-http-server
> +              '((404 "Not archived."))
> +              (parameterize
> +                ((%swh-base-url (%local-url)))
> +                (check-archival
> +                  (dummy-package "x" (source origin)))))))
> +     (warning-contains? "not archived" warnings)))
> actual-value: #f
> actual-error:
> + (keyword-argument-error
> +   #<procedure http-request (uri #:key body port method version keep-alive? headers decode-body? streaming? request)>
> +   "Unrecognized keyword"
> +   ()
> +   (#:verify-certificate?))
> result: FAIL
>

I remember issues fixed by 722ad41c44a499d2250c79527ef7d069ca728de0
which maybe introduce a regression for Guile 2.2.

--8<---------------cut here---------------start------------->8---
+;; XXX: Work around a bug in Guile 3.0.2 where #:verify-certificate? would
+;; be ignored (<https://bugs.gnu.org/40486>).
+(define* (http-get* uri #:rest rest)
+  (apply http-request uri #:method 'GET rest))
+(define* (http-post* uri #:rest rest)
--8<---------------cut here---------------end--------------->8---

Maybe it is related.


All the best,
simon