me
/
guix
Archived
1
0
Fork 0

tests: Fix gnu-maintenance tests.

The regression was introduce with commit
a274a6a1ac ("upstream-updater: Rename record
field.")

* tests/tests/gnu-maintenance.scm: ("latest-html-release, scheme-less URIs",
  "latest-html-release, no signature", "latest-html-release, signature"):
  Replace upstream-updater-latest by upstream-updater-import.

Reported-by: Ricardo Wurmus <rekado@elephly.net>
master
Hartmut Goebel 2023-01-01 21:22:04 +01:00
parent 6b1fc3a55f
commit d7a9d72bb0
No known key found for this signature in database
GPG Key ID: 634A8DFFD3F631DF
1 changed files with 3 additions and 3 deletions

View File

@ -79,7 +79,7 @@
(uri (string-append (%local-url) "/foo-1.tar.gz")))) (uri (string-append (%local-url) "/foo-1.tar.gz"))))
(properties (properties
`((release-monitoring-url . ,(%local-url)))))) `((release-monitoring-url . ,(%local-url))))))
(define update ((upstream-updater-latest %generic-html-updater) package)) (define update ((upstream-updater-import %generic-html-updater) package))
(define expected-new-url "http://another-site/foo-2.tar.gz") (define expected-new-url "http://another-site/foo-2.tar.gz")
(and (pk 'u update) (and (pk 'u update)
(equal? (upstream-source-version update) "2") (equal? (upstream-source-version update) "2")
@ -104,7 +104,7 @@
(uri (string-append (%local-url) "/foo-1.tar.gz")))) (uri (string-append (%local-url) "/foo-1.tar.gz"))))
(properties (properties
`((release-monitoring-url . ,(%local-url)))))) `((release-monitoring-url . ,(%local-url))))))
(define update ((upstream-updater-latest %generic-html-updater) package)) (define update ((upstream-updater-import %generic-html-updater) package))
(define expected-new-url (define expected-new-url
(string-append (%local-url) "/foo-2.tar.gz")) (string-append (%local-url) "/foo-2.tar.gz"))
(and (pk 'u update) (and (pk 'u update)
@ -135,7 +135,7 @@
(uri (string-append (%local-url) "/foo-1.tar.gz")))) (uri (string-append (%local-url) "/foo-1.tar.gz"))))
(properties (properties
`((release-monitoring-url . ,(%local-url)))))) `((release-monitoring-url . ,(%local-url))))))
(define update ((upstream-updater-latest %generic-html-updater) package)) (define update ((upstream-updater-import %generic-html-updater) package))
(define expected-new-url (define expected-new-url
(string-append (%local-url) "/foo-2.tar.gz")) (string-append (%local-url) "/foo-2.tar.gz"))
(define expected-signature-url (define expected-signature-url