;;; 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")
 href='/guix/tree/gnu/packages/xiph.scm?id=8e1cd1a2c53a2944012d5b2c1670e7203cdf91b6'>tree</a><a href='/guix/commit/gnu/packages/xiph.scm?id=8e1cd1a2c53a2944012d5b2c1670e7203cdf91b6'>commit</a><a href='/guix/diff/gnu/packages/xiph.scm?id=8e1cd1a2c53a2944012d5b2c1670e7203cdf91b6'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/xiph.scm'>
<input type='hidden' name='id' value='8e1cd1a2c53a2944012d5b2c1670e7203cdf91b6'/><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=8e1cd1a2c53a2944012d5b2c1670e7203cdf91b6'>root</a>/<a href='/guix/log/gnu?id=8e1cd1a2c53a2944012d5b2c1670e7203cdf91b6'>gnu</a>/<a href='/guix/log/gnu/packages?id=8e1cd1a2c53a2944012d5b2c1670e7203cdf91b6'>packages</a>/<a href='/guix/log/gnu/packages/xiph.scm?id=8e1cd1a2c53a2944012d5b2c1670e7203cdf91b6'>xiph.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/gnu/packages/xiph.scm?id=8e1cd1a2c53a2944012d5b2c1670e7203cdf91b6&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-02-16 13:14:26 -0500'>2018-02-16</span></td><td><a href='/guix/commit/gnu/packages/xiph.scm?id=150062f19060687dbf8e2cbe6a22c2f8600e7c4e'>Merge branch 'master' into core-updates</a></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-02-16 11:15:01 +0100'>2018-02-16</span></td><td><a href='/guix/commit/gnu/packages/xiph.scm?id=2b33c4d6775cf0c0a1e0551b1c12ad555d2ba6c5'>gnu: opusfile: Update to 0.10.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-01-19 23:59:20 -0500'>2018-01-19</span></td><td><a href='/guix/commit/gnu/packages/xiph.scm?id=e074a655dd6497daafbd62737e3b63f3d5aa7985'>Merge branch 'master' into core-updates</a></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-01-15 07:29:11 +0100'>2018-01-15</span></td><td><a href='/guix/commit/gnu/packages/xiph.scm?id=06c8258b513e8fe2b3b3fe70610e343655836a4e'>gnu: opusfile: Update to 0.9.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-01-15 07:29:06 +0100'>2018-01-15</span></td><td><a href='/guix/commit/gnu/packages/xiph.scm?id=2e33e6b18b41309b1546ea9ad320a195afb24351'>gnu: xiph: Use HTTPS for home pages where possible.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-01-11 14:22:58 -0800'>2018-01-11</span></td><td><a href='/guix/commit/gnu/packages/xiph.scm?id=e6ebc7b13225f0eddc404b7d8e136120b962181e'>gnu: libvorbis: Integrate grafted patches.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2018-01-11 14:13:17 -0800'>2018-01-11</span></td><td><a href='/guix/commit/gnu/packages/xiph.scm?id=138c08899ba73049de8afd2b74a8cf6845a1d9e1'>gnu: libvorbis: Fix CVE-2017-{14632,14633}.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2017-10-20 16:23:48 +0300'>2017-10-20</span></td><td><a href='/guix/commit/gnu/packages/xiph.scm?id=f71ce2824d8838109c7ad812f4284de16a3b0afc'>gnu: speexdsp: Fix building on aarch64-linux.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-10-19 12:17:44 +0200'>2017-10-19</span></td><td><a href='/guix/commit/gnu/packages/xiph.scm?id=b79813a19a8892c48bea1e0a9279265616be66d7'>gnu: speex: Build and install 'speexdec' and 'speexenc'.</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>
<tr><td><span title='2017-07-24 17:37:05 -0400'>2017-07-24</span></td><td><a href='/guix/commit/gnu/packages/xiph.scm?id=fce8285e4b0f2e055e36e7c4d60ed9a4ca0c8712'>gnu: opus: Update to 1.2.1.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>