;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2021 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (test-gnu-maintenance)
  #:use-module (guix gnu-maintenance)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-64)
  #:use-module (ice-9 match))

(test-begin "gnu-maintenance")

(test-assert "release-file?"
  (and (every (lambda (project+file)
                (apply release-file? project+file))
              '(("gcc" "gcc-5.3.0.tar.bz2")
                ("texmacs" "TeXmacs-1.0.7.9-src.tar.gz")
                ("icecat" "icecat-38.4.0-gnu1.tar.bz2")
                ("mit-scheme" "mit-scheme-9.2.tar.gz")
                ("mediainfo" "mediainfo_20.09.tar.xz")
                ("exiv2" "exiv2-0.27.3-Source.tar.gz")
                ("mpg321" "mpg321_0.3.2.orig.tar.gz")
                ("bvi" "bvi-1.4.1.src.tar.gz")
                ("hostscope" "hostscope-V2.1.tgz")))
       (every (lambda (project+file)
                (not (apply release-file? project+file)))
              '(("guile" "guile-www-1.1.1.tar.gz")
                ("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")))))

(test-assert "tarball->version"
  (let ((tarball->version (@@ (guix gnu-maintenance) tarball->version)))
    (every (match-lambda
             ((file version)
              (equal? (tarball->version file) version)))
           '(("coreutils-8.32.tar.gz" "8.32")
             ("mediainfo_20.09.tar.xz" "20.09")
             ("exiv2-0.27.3-Source.tar.gz" "0.27.3")
             ("mpg321_0.3.2.orig.tar.gz" "0.3.2")
             ("bvi-1.4.1.src.tar.gz" "1.4.1")))))

(test-end)
list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/emacs.scm?id=7b2e4ccce29495a2f1c5bd13b0566fa7e0ef0cf0&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-03-25 21:03:39 +0100'>2021-03-25</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=f5ef08c4373995aa7ba271f0d3110421f922d436'>gnu: emacs: Update to 27.2.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-02-01 18:53:28 -0500'>2021-02-01</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=5ecc09551b0394e59406ef7898bc084236d84c97'>gnu: emacs-next-pgtk: Update to 28.0.50-1.ae18c8e.</a><span class='msg-avail'>...</span></td><td>Léo Le Bouter</td></tr>
<tr><td><span title='2021-01-31 21:49:58 +0100'>2021-01-31</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=8d2465fcfef96552517bef7d182a04255d5707c2'>gnu: emacs: Make strip-double-wrap more robust</a><span class='msg-avail'>...</span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2020-12-01 00:10:48 +0100'>2020-12-01</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=50b18b5c10803a910cf29718e9c35261e65f5d93'>gnu: emacs-next-pgtk: Update to savannah feature/pgtk branch.</a><span class='msg-avail'>...</span></td><td>Ryan Prior</td></tr>
<tr><td><span title='2020-11-26 23:39:16 +0100'>2020-11-26</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=2a1eda5a9ba55aca4a205408c8f3988ffff7e03b'>gnu: Add emacs-next-pgtk.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2020-11-11 21:37:11 +0100'>2020-11-11</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=b05c96d93d974723142846f94790f349913c0df5'>gnu: emacs.scm: Remove unused module import.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-11-03 12:07:18 +0100'>2020-11-03</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=c41c089ad0d686a2de1728147a1a2d921fa7c44c'>Revert "gnu: emacs: Make strip-double-wrap more robust."</a><span class='msg-avail'>...</span></td><td>Nicolas Goaziou</td></tr>
<tr><td><span title='2020-11-03 10:30:03 +0100'>2020-11-03</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=b107a19ffb6a6abb7bde3436f3fa359071bd1f5c'>gnu: emacs: Make strip-double-wrap more robust.</a><span class='msg-avail'>...</span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2020-10-01 11:03:56 -0400'>2020-10-01</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=f88fea0eaa5796303790450ee4543a6d7e61a06e'>gnu: emacs-next: Fix load path and version.</a><span class='msg-avail'>...</span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2020-09-02 17:17:37 +0200'>2020-09-02</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=562f7e3fdb01924749ff78aacdee0dc7eedab0d9'>gnu: Add emacs-next.</a><span class='msg-avail'>...</span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2020-08-31 08:48:54 +0200'>2020-08-31</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=68be4da83087d0faff227c61ca93c7679230c998'>gnu: emacs: Strip double wrap.</a><span class='msg-avail'>...</span></td><td>Leo Prikler</td></tr>
<tr><td><span title='2020-08-29 15:58:53 +0200'>2020-08-29</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=6c77a5040604ebb7c0196f47520cf5fcc30c2087'>Revert "gnu: emacs: Strip double wrap."</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-08-29 13:24:50 +0200'>2020-08-29</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=0ec6b8afd7e7a6c288fbf48c5779f2e0bdaffb55'>gnu: emacs: Strip double wrap.</a><span class='msg-avail'>...</span></td><td>Leo Prikler</td></tr>
<tr><td><span title='2020-08-28 00:13:51 -0400'>2020-08-28</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=36a09d185343375a5cba370431870f9c4435d623'>gnu: emacs: Update to 27.1.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2020-08-03 12:26:02 +0200'>2020-08-03</span></td><td><a href='/guix/commit/gnu/packages/emacs.scm?id=f574f859ee7343d894ecf7318fa53b7a73426775'>gnu: emacs: Ignore empty XIM styles.</a><span class='msg-avail'>...</span></td><td>Leo Prikler</td></tr>