diff options
| author | Hartmut Goebel <h.goebel@crazy-compilers.com> | 2023-01-01 21:22:04 +0100 |
|---|---|---|
| committer | Hartmut Goebel <h.goebel@crazy-compilers.com> | 2023-01-02 00:06:51 +0100 |
| commit | d7a9d72bb02a2a3b1a99183655bf878547116032 (patch) | |
| tree | 353afb35c84e215d8590301c4d2ae32e21e62b09 /tests | |
| parent | 6b1fc3a55f0e75ddfd60d8b4c5be74dc8e207178 (diff) | |
| download | guix-d7a9d72bb02a2a3b1a99183655bf878547116032.tar.gz | |
tests: Fix gnu-maintenance tests.
The regression was introduce with commit
a274a6a1acb99738f02de7b226e6a0d3883ec353 ("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>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gnu-maintenance.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/gnu-maintenance.scm b/tests/gnu-maintenance.scm index fcaa2a068e..516e02ec6a 100644 --- a/tests/gnu-maintenance.scm +++ b/tests/gnu-maintenance.scm @@ -79,7 +79,7 @@ (uri (string-append (%local-url) "/foo-1.tar.gz")))) (properties `((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") (and (pk 'u update) (equal? (upstream-source-version update) "2") @@ -104,7 +104,7 @@ (uri (string-append (%local-url) "/foo-1.tar.gz")))) (properties `((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 (string-append (%local-url) "/foo-2.tar.gz")) (and (pk 'u update) @@ -135,7 +135,7 @@ (uri (string-append (%local-url) "/foo-1.tar.gz")))) (properties `((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 (string-append (%local-url) "/foo-2.tar.gz")) (define expected-signature-url |