;;; 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")
log</a><a href='/guix/tree/gnu/packages/storage.scm?id=0726d4ea7cb882dd1d3887303e260aba433dd1ef'>tree</a><a href='/guix/commit/gnu/packages/storage.scm?id=0726d4ea7cb882dd1d3887303e260aba433dd1ef'>commit</a><a href='/guix/diff/gnu/packages/storage.scm?id=0726d4ea7cb882dd1d3887303e260aba433dd1ef'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/storage.scm'>
<input type='hidden' name='id' value='0726d4ea7cb882dd1d3887303e260aba433dd1ef'/><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=0726d4ea7cb882dd1d3887303e260aba433dd1ef'>root</a>/<a href='/guix/log/gnu?id=0726d4ea7cb882dd1d3887303e260aba433dd1ef'>gnu</a>/<a href='/guix/log/gnu/packages?id=0726d4ea7cb882dd1d3887303e260aba433dd1ef'>packages</a>/<a href='/guix/log/gnu/packages/storage.scm?id=0726d4ea7cb882dd1d3887303e260aba433dd1ef'>storage.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/storage.scm?id=0726d4ea7cb882dd1d3887303e260aba433dd1ef&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2017-11-17 22:36:26 +0100'>2017-11-17</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=ac257f127ac5e1fd4758d3a05e4a19fde3af4e01'>gnu: Move testing packages from python.scm to check.scm.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/python.scm (python-behave-web-api, python2-behave-web-api,
python-mock, python2-mock, python-mock-2, python-nose, python2-nose,
python-nose2, python2-nose2, python-unittest2, python2-unittest2,
python-pytest, python2-pytest, python-pytest-3.0, python2-pytest-3.0,
python-pytest-cov, python2-pytest-cov, python-pytest-runner,
python2-pytest-runner, python-pytest-mock, python2-pytest-mock,
python-pytest-xdist, python2-pytest-xdist, python-scripttest,
python2-scripttest, python-testtools, python2-testtools, python-testscenarios,
python2-testscenarios, python-testresources, python2-testresources,
python-subunit, python2-subunit, python-fixtures, python2-fixtures,
python-testrepository, python2-testrepository, python-coverage,
python2-coverage, python-cov-core, python2-cov-core, python-testpath,
python2-testpath, python-testlib, python2-testlib, python-pytest-cache,
python2-pytest-cache, python-pytest-localserver, python-pytest-xprocess,
python-pytest-subtesthack, python2-pytest-subtesthack, python-hypothesis,
python2-hypothesis, python-lit, python2-lit, python-pytest-pep8,
python2-pytest-pep8, python-pytest-flakes, python2-pytest-flakes,
python2-coverage-test-runner, python-pylint, python2-pylint,
python-paramunittest, python2-python-paramunittest, python-pytest-warnings,
python2-pytest-warnings, python-pytest-capturelog, python2-pytest-capturelog,
python-pytest-catchlog, python2-pytest-catchlog, python-nosexcover,
python2-nosexcover, python-discover, python2-discover, behave, python-rednose,
python2-rednose, python-nose-randomly, python2-nose-randomly,
python-nose-timer, python2-nose-timer): Move from here...
* gnu/packages/check.scm: ...to here.
* gnu/packages/admin.scm,
gnu/packages/android.scm,
gnu/packages/backup.scm,
gnu/packages/bioinformatics.scm,
gnu/packages/calendar.scm,
gnu/packages/dav.scm,
gnu/packages/django.scm,
gnu/packages/freedesktop.scm,
gnu/packages/haskell.scm,
gnu/packages/image.scm,
gnu/packages/irc.scm,
gnu/packages/jrnl.scm,
gnu/packages/ldc.scm,
gnu/packages/libffi.scm,
gnu/packages/mail.scm,
gnu/packages/mpd.scm,
gnu/packages/openstack.scm,
gnu/packages/package-management.scm,
gnu/packages/password-utils.scm,
gnu/packages/python-crypto.scm,
gnu/packages/python-web.scm,
gnu/packages/rdf.scm,
gnu/packages/statistics.scm,
gnu/packages/storage.scm,
gnu/packages/time.scm,
gnu/packages/tls.scm,
gnu/packages/tor.scm,
gnu/packages/tryton.scm: Adjust accordingly.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2017-04-26 11:39:33 +0200'>2017-04-26</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=ce09f04ea0b565f9096926a931eebc167ae10a37'>gnu: ceph: Update to 12.0.2.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/storage.scm (ceph): Update to 12.0.2.
[arguments]&lt;#:phases&gt;: Disable new test.
* gnu/packages/patches/ceph-disable-cpu-optimizations.patch: Adjust.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-04-15 18:51:00 +0200'>2017-04-15</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=8c326cf644b2fda3f33eb8816387ff1bd2acc640'>gnu: ceph: Disable failing test.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/patches/ceph-disable-unittest-throttle.patch: New file.
* gnu/local.mk (dist_patch_DATA): Add it.
* gnu/packages/storage.scm (ceph)[source]: Use it.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-03-30 22:32:36 +0200'>2017-03-30</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=c3c25082e820fc3e376a757a48124924b92d816a'>gnu: ceph: Update to 12.0.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/storage.scm (ceph): Update to 12.0.1.
[arguments]: Disable one new test.
* gnu/packages/patches/ceph-disable-cpu-optimizations.patch: Adjust context.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-03-28 16:35:37 +0200'>2017-03-28</span></td><td><a href='/guix/commit/gnu/packages/storage.scm?id=dcfe44cbce97e887d033b6adefd7669f47c36e4f'>gnu: Add ceph.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/storage.scm,
  gnu/packages/patches/ceph-disable-cpu-optimizations.patch,
  gnu/packages/patches/ceph-skip-collect-sys-info-test.patch,
  gnu/packages/patches/ceph-skip-unittest_blockdev.patch: New files.
* gnu/local.mk (GNU_SYSTEM_MODULES, dist_patch_DATA): Register it.
</span></span></td><td>Marius Bakke</td></tr>