civodul pushed a commit to branch master
in repository guix.
commit c6cb7243fbf4dfb7766874e403ce0f74f05933a3
Author: Ludovic Courtès <[email protected]>
AuthorDate: Fri Nov 11 18:10:59 2022 +0100
gnu-maintenance: 'release-file?' excludes "valgrind-3.20.0.RC1.tar.bz2".
* guix/gnu-maintenance.scm (%alpha-tarball-rx): Add "." before
"(alpha|beta|...)".
* tests/gnu-maintenance.scm ("release-file?"): Add test for Valgrind.
---
guix/gnu-maintenance.scm | 2 +-
tests/gnu-maintenance.scm | 3 ++-
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index a1b73e6316..3ba4b86a4f 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -252,7 +252,7 @@ network to check in GNU's database."
(make-regexp
"^([^.]+)[-_][vV]?([0-9]|[^-])+(-(src|[sS]ource|gnu[0-9]))?\\.(tar\\.|tgz|zip$)"))
(define %alpha-tarball-rx
- (make-regexp
"^.*-.*[0-9](-|~)?(alpha|beta|rc|RC|cvs|svn|git)-?[0-9\\.]*\\.tar\\."))
+ (make-regexp
"^.*-.*[0-9](-|~|\\.)?(alpha|beta|rc|RC|cvs|svn|git)-?[0-9\\.]*\\.tar\\."))
(define (release-file? project file)
"Return #f if FILE is not a release tarball of PROJECT, otherwise return
diff --git a/tests/gnu-maintenance.scm b/tests/gnu-maintenance.scm
index abe74d799c..fcaa2a068e 100644
--- a/tests/gnu-maintenance.scm
+++ b/tests/gnu-maintenance.scm
@@ -47,7 +47,8 @@
("guile" "guile-2.0.11.tar.gz.sig")
("mit-scheme" "mit-scheme-9.2-i386.tar.gz")
("mit-scheme" "mit-scheme-9.2-doc-pdf.tar.gz")
- ("gnutls" "gnutls-3.2.18-w32.zip")))))
+ ("gnutls" "gnutls-3.2.18-w32.zip")
+ ("valgrind" "valgrind-3.20.0.RC1.tar.bz2")))))
(test-assert "tarball->version"
(let ((tarball->version (@@ (guix gnu-maintenance) tarball->version)))
