diff options
| -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))) |