04/12: gnu-maintenance: 'release-file?' excludes "valgrind-3.20.0.RC1.tar.bz2".

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit c6cb7243fbf4dfb7766874e403ce0f74f05933a3
Author: Ludovic Courtès <ludo@gnu.org>
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)))