summary refs log tree commit diff
path: root/tests
diff options
context:
space:
mode:
authorHartmut Goebel <h.goebel@crazy-compilers.com>2023-01-01 21:22:04 +0100
committerHartmut Goebel <h.goebel@crazy-compilers.com>2023-01-02 00:06:51 +0100
commitd7a9d72bb02a2a3b1a99183655bf878547116032 (patch)
tree353afb35c84e215d8590301c4d2ae32e21e62b09 /tests
parent6b1fc3a55f0e75ddfd60d8b4c5be74dc8e207178 (diff)
downloadguix-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.scm6
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