;;; 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/etc/release-manifest.scm?id=87ac76d4ba8eb8318f287b83e90e516ddccaf709'>tree</a><a href='/guix/commit/etc/release-manifest.scm?id=87ac76d4ba8eb8318f287b83e90e516ddccaf709'>commit</a><a href='/guix/diff/etc/release-manifest.scm?id=87ac76d4ba8eb8318f287b83e90e516ddccaf709'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/etc/release-manifest.scm'>
<input type='hidden' name='id' value='87ac76d4ba8eb8318f287b83e90e516ddccaf709'/><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=87ac76d4ba8eb8318f287b83e90e516ddccaf709'>root</a>/<a href='/guix/log/etc?id=87ac76d4ba8eb8318f287b83e90e516ddccaf709'>etc</a>/<a href='/guix/log/etc/release-manifest.scm?id=87ac76d4ba8eb8318f287b83e90e516ddccaf709'>release-manifest.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/etc/release-manifest.scm?id=87ac76d4ba8eb8318f287b83e90e516ddccaf709&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-11-08 16:58:30 +0100'>2020-11-08</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=19e2898c802b13343f53326cc976e8376b73f75d'>maint: Reduce the package set for "i586-gnu".</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/release-manifest.scm (%base-packages/hurd): New variable.
(%base-manifest): Use it when SYSTEM is "i586-gnu".
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-10-13 21:17:40 +0200'>2020-10-13</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=1197b8b20f4fca4ce03bbc5fa75e18d54e3717c0'>installer: Add Emacs EXWM desktop environment.</a><span class='msg-avail'>...<span class='msg-tooltip'>Suggested by zenny via IRC.

* gnu/installer/services.scm (%system-services): Add emacs, emacs-exwm,
emacs-desktop-environment.
* etc/release-manifest.scm (%system-packages): Likewise.
* gnu/system/examples/lightweight-desktop.tmpl: Likewise.
* gnu/tests/install.scm (installation-target-desktop-os-for-gui-tests)
[packages]: Likewise
* gnu/installer/newt/services.scm (run-desktop-environments-cbt-page): Make
one entry taller.
</span></span></td><td>Jan (janneke) Nieuwenhuizen</td></tr>
<tr><td><span title='2020-04-15 19:26:55 +0200'>2020-04-15</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=bd21acf6c390e4fe87eb6053f0b5185d6ecbcf9f'>Merge branch 'master' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-04-14 16:01:05 +0200'>2020-04-14</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=bab1f340b35078dcfd3cbac67ad56393b53bb46b'>maint: Ensure substitutes are available for '%default-xorg-modules'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/release-manifest.scm (%system-packages): Append
%DEFAULT-XORG-MODULES.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-04-14 16:01:05 +0200'>2020-04-14</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=8e8d984fd6db77bb5c1bec66369e5e99470d416f'>maint: Actually check for the availablility of system packages.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/release-manifest.scm (%system-manifest): New variable.
&lt;top level&gt;: Add it in 'concatenate-manifests' call.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-04-08 13:05:34 +0200'>2020-04-08</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=b1f56712c00a39c36ddd87fa42e3a19a28a75ffd'>maint: Adjust release manifest for Guile 3.0 switch.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/release-manifest.scm (%packages-to-cross-build): Refer to
GUILE-3.0/FIXED instead of GUILE-2.2/FIXED.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-04-08 00:05:46 +0200'>2020-04-08</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=0eb799e6696202316b7e5062ba21bff9ece7a789'>maint: Cross-build GUILE-2.2/FIXED.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/release-manifest.scm (%packages-to-cross-build): Replace
"guile@2.2" with GUILE-2.2/FIXED.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-04-07 12:31:36 +0200'>2020-04-07</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=1e6fe44da874b96695047dbd3d2b0cc070de9b44'>maint: Remove GCC from the packages to cross-build.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/release-manifest.scm (%packages-to-cross-build): Remove GCC.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-04-04 18:52:35 +0200'>2020-04-04</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=d8c8bfcc1f7c2e8226abebc6227261c8617f90d0'>maint: Remove unsupported cross-compilation jobs from 'release-manifest.scm'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/release-manifest.scm (%packages-to-cross-build-for-mingw): New
variable.
(%cross-manifest): Use it.  Remove "riscv64-linux-gnu" from %CROSS-TARGETS.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-13 17:33:38 +0100'>2020-03-13</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=f292c5019111f92b6850afdca4b59f4146b9be3b'>maint: Add 'etc/release-manifest.scm'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/release-manifest.scm: New file.
* gnu/ci.scm (%cross-targets): Export.
* build-aux/check-available-binaries.scm: Remove.
* Makefile.am (EXTRA_DIST): Add 'etc/release-manifest.scm' and remove
'build-aux/check-available-binaries.scm'.
(assert-binaries-available): Rewrite using 'guix weather -m'.
</span></span></td><td>Ludovic Courtès</td></tr>