;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Nikita Karetnikov <nikita@karetnikov.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-base64)
  #:use-module (guix base64)
  #:use-module (rnrs bytevectors)
  #:use-module (srfi srfi-64))

(define (string->base64 str)
  (base64-encode (string->utf8 str)))

;;; Test vectors from <https://tools.ietf.org/rfc/rfc4648.txt>.

(test-begin "base64")

(test-equal "empty string"
  (string->base64 "")
  "")

(test-equal "f"
  (string->base64 "f")
  "Zg==")

(test-equal "fo"
  (string->base64 "fo")
  "Zm8=")

(test-equal "foo"
  (string->base64 "foo")
  "Zm9v")

(test-equal "foob"
  (string->base64 "foob")
  "Zm9vYg==")

(test-equal "fooba"
  (string->base64 "fooba")
  "Zm9vYmE=")

(test-equal "foobar"
  (string->base64 "foobar")
  "Zm9vYmFy")

(test-end "base64")a2079594f8049447c09af21e27d977bafe2c92d'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/vnc.scm'>
<input type='hidden' name='id' value='5a2079594f8049447c09af21e27d977bafe2c92d'/><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=5a2079594f8049447c09af21e27d977bafe2c92d'>root</a>/<a href='/guix/log/gnu?id=5a2079594f8049447c09af21e27d977bafe2c92d'>gnu</a>/<a href='/guix/log/gnu/packages?id=5a2079594f8049447c09af21e27d977bafe2c92d'>packages</a>/<a href='/guix/log/gnu/packages/vnc.scm?id=5a2079594f8049447c09af21e27d977bafe2c92d'>vnc.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/vnc.scm?id=5a2079594f8049447c09af21e27d977bafe2c92d&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-01-13 21:58:33 +0000'>2022-01-13</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=6ff98ce39780ccef5f83aa94f14d0f742f8ea568'>gnu: tigervnc-{client,server}: Update to 1.12.0-0.b484c22.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-12-29 01:43:25 +0100'>2021-12-29</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=240298bb98df8a6986ced85b53b0c1c866b26642'>gnu: remmina: Update to 1.4.23.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-12-17 03:07:53 +0100'>2021-12-17</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=1bada70d6322f17743b5dadd6b9968c8920038f7'>gnu: remmina: Remove input labels.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-12-17 03:07:53 +0100'>2021-12-17</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=ae761e639a1253f1eca71c616127d1cd477d1ed8'>gnu: remmina: Update to 1.4.22.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-12-13 17:48:25 +0100'>2021-12-13</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=8394619baceb118df92e355377fd543bb1aa501a'>gnu: Simplify package inputs.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-12-12 12:41:54 +0100'>2021-12-12</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=3fc12128c2324defe2945ae7e9914afca17b58fc'>gnu: remmina: Build with libsoup 2.</a></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-11-11 12:18:20 -0500'>2021-11-11</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=feab09f72abc6d6eec16a1b8d27c231c747c0e00'>gnu: gtk: Replace gdk-pixbuf+svg by librsvg.</a></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-10-31 00:57:07 +0200'>2021-10-31</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=b4359fc5e6d255c6e23be692994b8ca0aadc0baf'>gnu: remmina: Update to 1.4.21.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-09-05 13:54:46 -0400'>2021-09-05</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=0b3ad325daaec6be693d8a1a984cc0668bfaf51a'>gnu: remmina: Update to 1.4.20.</a></td><td>Raghav Gururajan</td></tr>
<tr><td><span title='2021-07-04 23:00:36 +0200'>2021-07-04</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=baed9476a6381ea9b35b1aab731102da2eef2ebd'>gnu: tigervnc-server: Remove unnecessary "gcc-toolchain" input.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-07-01 03:25:01 +0200'>2021-07-01</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=12b31ab3b36431bbd9f8a715a7aa8ec2127554af'>gnu: remmina: Update to 1.4.19.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-06-03 23:46:04 -0400'>2021-06-03</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=f1bfd9f1948a5ff336d737c0614b9a30c2bb3097'>gnu: remmina: Update to 1.4.18.</a></td><td>Raghav Gururajan</td></tr>
<tr><td><span title='2021-05-29 17:29:36 +0200'>2021-05-29</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=f0b20dc3a9429a321d19a183bf1c2a714483be05'>gnu: remmina: Update to 1.4.17.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-05-11 18:24:48 -0400'>2021-05-11</span></td><td><a href='/guix/commit/gnu/packages/vnc.scm?id=c80627731bc100baa4b6c5d265df5465cee9498e'>gnu: Add remmina.</a></td><td>Raghav Gururajan</td></tr>