;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2015 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-base32)
  #:use-module (guix hash)
  #:use-module (guix base32)
  #:use-module (guix utils)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-34)
  #:use-module (srfi srfi-64)
  #:use-module (ice-9 rdelim)
  #:use-module (ice-9 popen)
  #:use-module (ice-9 match)
  #:use-module (rnrs bytevectors)
  #:use-module (rnrs io ports))

;; Test the (guix base32) module.

(define %nix-hash
  (or (and=> (getenv "NIX_HASH")
             (match-lambda
              ("" #f)
              (val val)))
      "nix-hash"))

(define %have-nix-hash?
  ;; Note: Use `system', not `system*', because of <http://bugs.gnu.org/13166>.
  (false-if-exception
   (zero? (system (string-append %nix-hash " --version")))))

(test-begin "base32")

(test-assert "bytevector->base32-string"
  (fold (lambda (bv expected result)
          (and result
               (string=? (bytevector->base32-string bv)
                         expected)))
        #t

        ;; Examples from RFC 4648.
        (map string->utf8 '("" "f" "fo" "foo" "foob" "fooba" "foobar"))
        '(""
          "my"
          "mzxq"
          "mzxw6"
          "mzxw6yq"
          "mzxw6ytb"
          "mzxw6ytboi")))

(test-assert "base32-string->bytevector"
  (every (lambda (bv)
           (equal? (base32-string->bytevector
                    (bytevector->base32-string bv))
                   bv))
         ;; Examples from RFC 4648.
         (map string->utf8 '("" "f" "fo" "foo" "foob" "fooba" "foobar"))))

(test-assert "nix-base32-string->bytevector"
  (every (lambda (bv)
           (equal? (nix-base32-string->bytevector
                    (bytevector->nix-base32-string bv))
                   bv))
         ;; Examples from RFC 4648.
         (map string->utf8 '("" "f" "fo" "foo" "foob" "fooba" "foobar"))))

(test-equal "&invalid-base32-character"
  #\e
  (guard (c ((invalid-base32-character? c)
             (invalid-base32-character-value c)))
    (nix-base32-string->bytevector
     (string-append (make-string 51 #\a) "e"))))

;; The following test requires `nix-hash' in $PATH.
(unless %have-nix-hash?
  (test-skip 1))

(test-assert "sha256 & bytevector->nix-base32-string"
  (let ((file (search-path %load-path "tests/test.drv")))
    (equal? (bytevector->nix-base32-string
             (sha256 (call-with-input-file file get-bytevector-all)))
            (let* ((c (format #f "~a --type sha256 --base32 --flat \"~a\""
                              %nix-hash file))
                   (p (open-input-pipe c))
                   (l (read-line p)))
              (close-pipe p)
              l))))

(test-end)
4b2f879a8e0bdbb89'>gnu: liferea: Add missing inputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>These new inputs are referenced by the package but was missing in
the package definition. Some of these inputs might have been used
by the package indirectly via propagation from other inputs.

* gnu/packages/syndication.scm (liferea) [inputs]: Add glib, libsoup,
pango and sqlite.

Signed-off-by: Efraim Flashner &lt;efraim@flashner.co.il&gt;
</span></span></td><td>Raghav Gururajan</td></tr>
<tr><td><span title='2021-01-28 12:32:08 +0200'>2021-01-28</span></td><td><a href='/guix/commit/gnu/packages/syndication.scm?id=a929ede800b4d8c0966a1dee425a0c56014dce30'>gnu: liferea: Disable static libraries.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/syndication.scm (liferea)[arguments]: Add
'--disable-static' to configure-flags.

Signed-off-by: Efraim Flashner &lt;efraim@flashner.co.il&gt;
</span></span></td><td>Raghav Gururajan</td></tr>
<tr><td><span title='2021-01-11 10:47:40 +0200'>2021-01-11</span></td><td><a href='/guix/commit/gnu/packages/syndication.scm?id=5aa45d34773863d6519d4ec66318a694edafccbd'>gnu: newsboat: Update to 2.22.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/syndication.scm (newsboat): Update to 2.22.1.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-01-11 10:44:28 +0200'>2021-01-11</span></td><td><a href='/guix/commit/gnu/packages/syndication.scm?id=205c4ae2f7c60a6491df7c2c598eac71d369eb08'>gnu: liferea: Add source file-name.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/syndication.scm (liferea)[source]: Add file-name field.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-01-10 12:09:00 +0100'>2021-01-10</span></td><td><a href='/guix/commit/gnu/packages/syndication.scm?id=3af7dc15a6397c6c1b1712e6ff8994074f2919e4'>gnu: Updated liferea to 1.13.4.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/syndiction.scm (liferea): Updated to 1.13.4.
[source]: Switched to git-download.
[native-inputs]: Added autotools, automake, libtool.

Signed-off-by: Nicolas Goaziou &lt;mail@nicolasgoaziou.fr&gt;
</span></span></td><td>raingloom</td></tr>
: Remove calls to
'manifest-entry-with-transformations'.
* tests/guix-package.sh: Add test.
* tests/transformations.scm ("options-&gt;transformation + package-&gt;manifest-entry"):
New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-01-19 17:45:39 +0100'>2021-01-19</span></td><td><a href='/guix/commit/tests/transformations.scm?id=9ab817b2a4601b4a6755983590ed7d93ebdc8d09'>transformations: Add '--with-latest'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/upstream.scm (upstream-source-compiler): New procedure.
(%updaters): Set! it.
* guix/transformations.scm (transform-package-latest): New procedure.
(%transformations): Add 'with-latest'.
(%transformation-options, show-transformation-options-help/detailed):
Add '--with-latest'.
* tests/transformations.scm ("options-&gt;transformation, with-latest"):
New test.
* doc/guix.texi (Package Transformation Options): Document it.
</span></span></td><td>Ludovic Courtès</td></tr>