;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2015, 2020 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 (gcrypt 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 match)
  #:use-module (rnrs bytevectors)
  #:use-module (rnrs io ports))

;; Test the (guix base32) module.

(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"))))

(test-end)
ist nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/node.scm?id=685399c27dee4b2720d98267050257dd16f1ffc4&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-12-22 17:47:15 +0100'>2023-12-22</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=96b6e7b1a4e23fe6271ad49a5cb0ca96d539c989'>gnu: node-lts: Update to 18.19.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/node.scm (node-lts): Update to 18.19.0.

Change-Id: Ide542157571774da6d70fc114ec095f645a79b8b
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>TakeV</td></tr>
<tr><td><span title='2023-11-05 12:37:18 +0100'>2023-11-05</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=ab94e80601a5b23f44e7455b3443457b4a99a1e5'>gnu: node-lts: Update to 18.18.2.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/node.scm (node-lts): Update to 18.18.2.
[arguments]&lt;phases&gt;: Add 'install-node-gyp-wrapper phase.

Change-Id: I6b17de33313505558a8fa9560126adef486fd0e3
</span></span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2023-08-31 19:45:56 +0200'>2023-08-31</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=9b8085ebceb6d1d1849fbf0e57158e3e1b31637b'>gnu: node-lts: Update to 18.17.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/node.scm (node-lts): Update to 18.17.1.
</span></span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2023-08-31 19:45:53 +0200'>2023-08-31</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=bab5e7a116d1a47c3aa2d5922230dea5d2623dd2'>gnu: llhttp-bootstrap: Update to 6.0.11.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/node.scm (llhttp-bootstrap): Update to 6.0.11.
</span></span></td><td>Jelle Licht</td></tr>
o ee3226e9d54891c7e696912245e4904435be191c.

* guix/scripts/substitute.scm (display-narinfo-data): Add 'port'
parameter and honor it.
(process-query): Likewise.
(process-substitution): Likewise.
(%error-to-file-descriptor-4?, with-redirected-error-port): Remove.
(%reply-file-descriptor): New variable.
(guix-substitute): Remove use of 'with-redirected-error-port'.  Define
'reply-port' and pass it to 'process-query' and 'process-substitution'.
* nix/libstore/build.cc (SubstitutionGoal::handleChildOutput): Swap
'builderOut' and 'fromAgent'.
* nix/libstore/local-store.cc (LocalStore::getLineFromSubstituter):
Likewise.
* tests/substitute.scm &lt;top level&gt;: Set '%reply-file-descriptor'
rather than '%error-to-file-descriptor-4?'.
</span></span></td><td>Ludovic Courtès</td></tr>