branch master updated: tests: Fix gnu-maintenance tests.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

htgoebel pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new d7a9d72bb0 tests: Fix gnu-maintenance tests.
d7a9d72bb0 is described below

commit d7a9d72bb02a2a3b1a99183655bf878547116032
Author: Hartmut Goebel <h.goebel@crazy-compilers.com>
AuthorDate: Sun Jan 1 21:22:04 2023 +0100

    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>
---
 tests/gnu-maintenance.scm | 6 +++---
 1 file 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