;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2017 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-base16)
  #:use-module (guix base16)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-64)
  #:use-module (rnrs bytevectors))

(test-begin "base16")

(test-assert "bytevector->base16-string->bytevector"
  (every (lambda (bv)
           (equal? (base16-string->bytevector
                    (bytevector->base16-string bv))
                   bv))
         (map string->utf8 '("" "f" "fo" "foo" "foob" "fooba" "foobar"))))

(test-end "base16")
ef='/guix/tree/tests/read-print.scm?id=c4618ca13f1cefeb1dbfe619ca09f32925b84732'>tree</a><a href='/guix/commit/tests/read-print.scm?id=c4618ca13f1cefeb1dbfe619ca09f32925b84732'>commit</a><a href='/guix/diff/tests/read-print.scm?id=c4618ca13f1cefeb1dbfe619ca09f32925b84732'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/read-print.scm'>
<input type='hidden' name='id' value='c4618ca13f1cefeb1dbfe619ca09f32925b84732'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=c4618ca13f1cefeb1dbfe619ca09f32925b84732'>root</a>/<a href='/guix/log/tests?id=c4618ca13f1cefeb1dbfe619ca09f32925b84732'>tests</a>/<a href='/guix/log/tests/read-print.scm?id=c4618ca13f1cefeb1dbfe619ca09f32925b84732'>read-print.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/read-print.scm?id=c4618ca13f1cefeb1dbfe619ca09f32925b84732&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-09-20 19:24:31 +0200'>2022-09-20</span></td><td><a href='/guix/commit/tests/read-print.scm?id=7a698da0d04d75f1c49f9ae9f358070acab0f781'>read-print: Correctly support multiple same-named newline forms.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-02 10:49:35 +0200'>2022-09-02</span></td><td><a href='/guix/commit/tests/read-print.scm?id=82968362ead0ed59c64ee8a21fec346c9265a149'>read-print: Define forms for which \n, \t, etc. are not escaped.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-01 18:31:26 +0200'>2022-09-01</span></td><td><a href='/guix/commit/tests/read-print.scm?id=c3b1cfe76b7038f4030d7d207ffc417fed9a7ead'>read-print: Guess the base to use for integers being printed.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-10 16:53:58 +0200'>2022-08-10</span></td><td><a href='/guix/commit/tests/read-print.scm?id=ebda12e1d2c64480bb7d5977e580d8b2eabeb503'>read-print: Report missing closing parens instead of looping.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:54:25 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=6db3b34d7203639ef4286c237a6e536259f92352'>read-print: Add 'case' and 'cond' special forms.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:54:24 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=445a0d134ce735577d1e22f210c2e5ceafc56762'>read-print: Support printing multi-line comments.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=90ef692e9b48732ae2e3921ff5d101e186506a85'>read-print: 'canonicalize-comment' leaves top-level comments unchanged.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=9b00c97de41165beefe3eff936470f8e081ca600'>read-print: Add code to read and write sequences of expressions/blanks.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=077324a16fd6c7d2307bfa52a9863ca25cfc6a52'>read-print: Recognize page breaks.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=f687e27e0385c7f9bab8d967293061158fc3f504'>read-print: Read and render vertical space.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:31 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=5817e222faf46f76fbdb66ba8fd6c8cd643aefb5'>style: Move reader and printer to (guix read-print).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>