;;; 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)
og/tests/inferior.scm?id=269c1db41bd82f93c7ae5c62a4969a423e556183&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-03-21 22:16:02 +0100'>2020-03-21</span></td><td><a href='/guix/commit/tests/inferior.scm?id=d19b14c8349ce8cacb62619ab68953265daeeca7'>Merge branch 'master' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-03-19 15:14:08 +0100'>2020-03-19</span></td><td><a href='/guix/commit/tests/inferior.scm?id=1dca6aaafa9f842565deab1fe7e6929f25544551'>inferior: '&amp;inferior-exception' includes a stack trace.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/inferior.scm (port-&gt;inferior): Bump protocol to (0 1 1).
(&amp;inferior-exception)[stack]: New field.
(read-repl-response): Recognize 'exception' form for protocol (0 1 1).
* tests/inferior.scm ("&amp;inferior-exception"): Check the value returned
by 'inferior-exception-stack'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-17 15:46:15 +0100'>2020-03-17</span></td><td><a href='/guix/commit/tests/inferior.scm?id=9d0c2c6e5226bbd11e710bd4efa8f25e9ffb5a86'>tests: Fix up reference to 'guile-2.2'.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to b6bee63bed4f013064c0d902e7c8b83ed7514ade.

* tests/inferior.scm ("inferior-package-search-paths"): Refer to
'guile-3.0' instead of 'guile-2.2'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-12 11:52:38 +0100'>2020-03-12</span></td><td><a href='/guix/commit/tests/inferior.scm?id=f7537e30b892cef09d91902547c00e5fa9b66f3b'>inferior: Distinguish inferior exceptions.</a><span class='msg-avail'>...<span class='msg-tooltip'>This avoids ambiguities when looking at a backtrace where the exception
was actually thrown by an inferior in a very different context.

* guix/inferior.scm (&amp;inferior-exception): New condition type.
(read-repl-response): Add optional 'inferior' parameter.  Raise
'&amp;inferior-exception' instead of rethrowing to KEY when receiving an
'exception' message.
(read-inferior-response): Pass INFERIOR to 'read-repl-response'.
* tests/inferior.scm ("&amp;inferior-exception"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-09-21 16:48:36 +0200'>2019-09-21</span></td><td><a href='/guix/commit/tests/inferior.scm?id=71507435225f10d8d944ba183cbcc77ef953e0e5'>inferior: Propagate '&amp;store-protocol-error' error conditions.</a><span class='msg-avail'>...<span class='msg-tooltip'>Until now '&amp;store-protocol-error' conditions raised in the inferior
would not be correctly propagated because SRFI-35 records lack a read
syntax.

Reported at &lt;https://bugs.gnu.org/37449&gt;
by Carl Dong &lt;contact@carldong.me&gt;.

* guix/inferior.scm (port-&gt;inferior): Import (srfi srfi-34) in the inferior.
(inferior-eval-with-store): Define 'error?' and 'error-message'.  Wrap
call to PROC in 'guard'.  Check the response of INFERIOR for a
'store-protocol-error' or a 'result' tag.
* tests/inferior.scm ("inferior-eval-with-store, &amp;store-protocol-error"):
New test.
</span></span></td><td>Ludovic Courtès</td></tr>
01-31 22:23:41 -0500'>2021-01-31</span></td><td><a href='/guix/commit/build-aux/test-driver.scm?id=346210b1b2130112dd5f894c1d40afb37c1c51a5'>build: test-driver.scm: Enable colored test results by default.</a><span class='msg-avail'>...<span class='msg-tooltip'>The Automake parallel test harness does its own smart detection of the
terminal color capability and always provides the --color-tests argument to
the driver.  This change defaults the --color-tests argument to true when the
test driver is run on its own (not via Automake).

* build-aux/test-driver.scm (main): Set the default value of the --color-tests
argument to true when it's not explicitly provided.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-01-31 22:23:41 -0500'>2021-01-31</span></td><td><a href='/guix/commit/build-aux/test-driver.scm?id=13f299b2c98cce0ede3a8a37dd11832fdb3827bb'>build: test-driver.scm: Make output redirection optional.</a><span class='msg-avail'>...<span class='msg-tooltip'>This makes it easier (and less surprising) for users to experiment with the
custom Scheme test driver directly.  The behavior is unchanged from Automake's
point of view.

* build-aux/test-driver.scm (main): Make the --log-file and --trs-file
arguments optional and update doc.  Only open, redirect and close a port to a log file when
the --log-file option is provided.  Only open and close a port to a trs file
when the --trs-file option is provided.
(test-runner-gnu): Set OUT-PORT parameter default value to the current output
port.  Set the TRS-PORT parameter default value to a void port.  Update doc.
</span></span></td><td>Maxim Cournoyer</td></tr>