diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-11-11 18:10:59 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-11-11 23:17:43 +0100 |
| commit | c6cb7243fbf4dfb7766874e403ce0f74f05933a3 (patch) | |
| tree | 7b1f70d1bf37de61d1d6c5f8b1268846c0558265 | |
| parent | 9a35e4c5bd5c4148f32336c3a156d14a895fc5dd (diff) | |
| download | guix-c6cb7243fbf4dfb7766874e403ce0f74f05933a3.tar.gz | |
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.
| -rw-r--r-- | guix/gnu-maintenance.scm | 2 | ||||
| -rw-r--r-- | 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))) |