tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 13:10:33 +02:00
Code Activity

gnu-maintenance: ‘generic-html’ recognizes ‘release-file-regexp’ property.

Browse Source 
* guix/gnu-maintenance.scm (package-release-file?): New procedure.
(tarball->version): Add optional parameter and honor it.
(import-html-release): Use ‘package-release-file?’ and pass second argument to
‘tarball->version’.
* tests/gnu-maintenance.scm ("latest-html-release, 'release-file-regexp' property")
("latest-html-release, invalid 'release-file-regexp' property"): New tests.
* doc/guix.texi (Invoking guix refresh): Document it.

Change-Id: Ia9328418fdd2faf118e4ec9d5fbde4a279e100ed
Reviewed-by: Maxim Cournoyer <maxim@guixotic.coop>
This commit is contained in:
Ludovic Courtès
2025-11-04 14:22:08 +01:00
parent 830562e5cd
commit 1ce270fb85
3 changed files with 121 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
tests/gnu-maintenance.scm
View File

@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2021, 2025 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2023-2024 Maxim Cournoyer <maxim@guixotic.coop>
;;;
@@ -27,7 +27,7 @@
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-64)
#:use-module ((web client) #:select (current-http-proxy))
#:use-module ((web uri) #:select (uri? uri->string))
#:use-module ((web uri) #:select (uri? uri->string string->uri uri-path))
#:use-module (ice-9 match))
(test-begin "gnu-maintenance")
@@ -91,6 +91,60 @@
(equal? (upstream-source-version update) "2")
(equal? (list expected-new-url) (upstream-source-urls update))))))
(test-equal "latest-html-release, 'release-file-regexp' property"
'("foo"
"1.2.3"
("/dl/FOO1.2.3.tgz"))
(with-http-server
`((200 "<html xmlns=\"http://www.w3.org/1999/xhtml\">
<head>
<title>Releases with unusual file names</title>
</head>
<body
<a href=\"FOO1.2.3.tgz\">version 1.2</a>
</body>
</html>"))
(let ()
(define package
(dummy-package "foo"
(source
(dummy-origin
(uri (string-append (%local-url #:path "/dl")
"/FOO1.0.0.tar.gz"))))
(properties
`((release-monitoring-url . ,(%local-url #:path "/dl/"))
(release-file-regexp . "FOO([0-9\\.]+)\\.tgz")))))
(define update
((upstream-updater-import %generic-html-updater) package))
(list (upstream-source-package update)
(upstream-source-version update)
(map (compose uri-path string->uri)
(upstream-source-urls update))))))
(test-assert "latest-html-release, invalid 'release-file-regexp' property"
(with-http-server
`((200 "<html xmlns=\"http://www.w3.org/1999/xhtml\">
<head>
<title>Releases with unusual file names</title>
</head>
<body
<a href=\"FOO1.2.3.tgz\">version 1.2</a>
</body>
</html>"))
(let ()
(define package
(dummy-package "foo"
(source
(dummy-origin
(uri (string-append (%local-url #:path "/dl")
"/FOO1.0.0.tar.gz"))))
(properties
`((release-monitoring-url . ,(%local-url #:path "/dl/"))
(release-file-regexp . "FOO[0-9\\.]+\\.tgz")))))
(not ((upstream-updater-import %generic-html-updater) package)))))
(test-assert "latest-html-release, no signature"
(with-http-server
`((200 "<html xmlns=\"http://www.w3.org/1999/xhtml\">