;;; 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/etc/committer.scm.in?id=7759f10d9c56dcb751be096e4e1cc6acbc762f21'>tree</a><a href='/guix/commit/etc/committer.scm.in?id=7759f10d9c56dcb751be096e4e1cc6acbc762f21'>commit</a><a href='/guix/diff/etc/committer.scm.in?id=7759f10d9c56dcb751be096e4e1cc6acbc762f21'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/etc/committer.scm.in'>
<input type='hidden' name='id' value='7759f10d9c56dcb751be096e4e1cc6acbc762f21'/><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=7759f10d9c56dcb751be096e4e1cc6acbc762f21'>root</a>/<a href='/guix/log/etc?id=7759f10d9c56dcb751be096e4e1cc6acbc762f21'>etc</a>/<a href='/guix/log/etc/committer.scm.in?id=7759f10d9c56dcb751be096e4e1cc6acbc762f21'>committer.scm.in</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/committer.scm.in?id=7759f10d9c56dcb751be096e4e1cc6acbc762f21&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-05-04 11:52:23 +0200'>2021-05-04</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=570b3d32b92fb2220c5ecd9302f4fa85947d4bff'>etc: Break long lines in commit messages.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (break-string): New procedure.
(change-commit-message): Use it.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-12 21:42:15 +0200'>2021-04-12</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=a6ac141ebb2efabbd47cbb04dfeb13779b7e50f6'>etc/committer: Add missing newline.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (main): Add newline to message.

Signed-off-by: Ricardo Wurmus &lt;rekado@elephly.net&gt;
</span></span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2021-04-12 21:42:15 +0200'>2021-04-12</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=d375eddda0b407b29ce0f7d29a582623cef20a89'>etc/committer: Use git plumbing instead of porcelain.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (diff-info): Use "git diff-files" instead of "git diff".
(old-sexp): Use "git cat-file" instead of "git show".

Signed-off-by: Ricardo Wurmus &lt;rekado@elephly.net&gt;
</span></span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2021-04-08 17:12:06 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=c762df54786fd6f005f3b5307323f1d2df3cbf0b'>etc/committer: Disable diff colors.</a><span class='msg-avail'>...<span class='msg-tooltip'>Reported by: morgansmith on IRC.

* etc/committer.scm.in (diff-info): Invoke "git diff" with "--no-color".
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-08 03:10:14 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=83991a34d5c1d4985e54dd029a81412277ad062a'>etc/committer: Recompute hunks before processing changes.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (main): Re-evaluate diff-info after processing
insertions.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-08 03:10<tr><td><span title='2020-11-07 13:19:25 +0100'>2020-11-07</span></td><td><a href='/guix/commit/gnu/installer/newt/network.scm?id=8338d414b361e4fb961221642c1064e9dc89ba65'>installer: Limit listbox height.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes: &lt;https://issues.guix.gnu.org/44428&gt;.

* gnu/installer/newt.scm (init): Print screen size.
* gnu/installer/newt/page.scm (default-listbox-height): New variable.
(run-listbox-selection-page): Use it.
* gnu/installer/newt/wifi.scm (wifi-listbox-height): Ditto.
* gnu/installer/newt/network.scm (run-technology-page): Set the maximum
listbox height to 5.
* gnu/installer/newt/ethernet.scm (run-ethernet-page): Ditto.
* gnu/installer/newt/final.scm (run-config-display-page): Change listbox
height.
* gnu/installer/newt/partition.scm (run-disk-page): Ditto.
* gnu/installer/newt/welcome.scm (display-logo?): New procedure.
(run-menu-page): Use it.
* gnu/installer/steps.scm (%configuration-file-width): Remove it.
</span></span></td><td>Mathieu Othacehe</td></tr>
d></tr>
<tr><td><span title='2021-04-08 03:10:13 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=c8c3afe8485bd614692f13e1e8a4200136da1302'>etc/committer: Handle package additions.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (&lt;hunk&gt;)[diff]: Rename this field...
[diff-lines]: ...to this.
[definition?]: New field.
(hunk-&gt;patch): Join diff lines.
(diff-info): Do not join diff lines; record whether a hunk is a new
definition.
(commit-message): Rename this procedure...
(change-commit-message): ...to this.
(add-commit-message): New procedure.
(main): Handle new package definitions before changes.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2020-10-06 00:34:59 +0200'>2020-10-06</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=59fe30a3a860212ede0cd3c97e58a5f6bca8b65b'>etc: committer: Use EQUAL? instead of EQ? for differences.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in (commit-message): Use EQUAL? instead of EQ? to compute
differences because not all inputs may be symbols; some could be expressions.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2020-06-16 11:32:53 +0200'>2020-06-16</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=76a841cc8bd091db741758ae5553c714f2c38543'>etc: Add committer script.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/committer.scm.in: New file.
* configure.ac: Configure it.
</span></span></td><td>Ricardo Wurmus</td></tr>