;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 Nikita Karetnikov ;;; ;;; 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 . (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 . (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")m?id=c2a67e8743c264e1d72d161605e879a82ecb4c97'>diff
AgeCommit message (Expand)Author
2024-09-29home: services: Add newline to XDG_RUNTIME_DIR warning....* gnu/home/services.scm: Add end-of-text newline to warning printed by on-first-login script when XDG_RUNTIME_DIR does not exist. Change-Id: I3bfe2c415f6941fa9a2231ab2a0be53db965053f Signed-off-by: Hilton Chain <hako@ultrarare.space> Richard Sent
2024-01-28home: services: Add missing import....* gnu/home/services.scm: Import (srfi srfi-34) for ‘raise’. Change-Id: Ib0e8d134f3953c78a09b623f697e7e5b251d5611 Ludovic Courtès
2023-10-27home: services: Fix regression in generated ‘on-first-login’ script....Fixes <https://issues.guix.gnu.org/66659>. Fixes a regression introduced in 6b0a32196982a0a2f4dbb59d35e55833a5545ac6. The first attempt in e098ba2f499bbddfea50c85058e4077e39b85513 to fix this issue didn't work. * gnu/home/services.scm (compute-on-first-login-script): Add ‘begin *unspecified*’ around #$@gexps. Change-Id: I14339ad684ffe93e692e507b57dcd221d96210ef Signed-off-by: Clément Lassieur <clement@lassieur.org> Rostislav Svoboda
2023-10-21home: services: Fix regression in generated ‘on-first-login’ script....Fixes <https://issues.guix.gnu.org/66659>. Fixes a regression introduced in 6b0a32196982a0a2f4dbb59d35e55833a5545ac6. * gnu/home/services.scm (compute-on-first-login-script): Add ‘begin’ around #$@gexps. Reported-by: Nils Landt <nils@landt.email> Ludovic Courtès
2023-10-20home: services: Fix race condition when detecting first login....* gnu/home/services.scm (compute-on-first-login-script): Use open-fdes to atomically check whether a file exists and create it if not. Co-authored-by: Ludovic Courtès <ludo@gnu.org> Carlo Zancanaro
2023-08-20home: services: Support mapping of System services to Home services....* gnu/home/services.scm (service-type-mapping) (system->home-service-type): New procedures. (define-service-type-mapping, define-service-type-mappings): New macros. (%system/home-service-type-mapping): New variable. <top level>: Use 'define-service-type-mappings'. * gnu/home/services/shepherd.scm <top level>: Likewise. Ludovic Courtès