;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015, 2017, 2018, 2019 Ludovic Courtès ;;; ;;; 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-uuid) #:use-module (gnu system uuid) #:use-module (srfi srfi-64) #:use-module (rnrs bytevectors)) (test-begin "uuid") (test-equal "uuid->string" "c5307e6b-d1ba-499d-89c5-cb0b143577c4" (uuid->string #vu8(197 48 126 107 209 186 73 157 137 197 203 11 20 53 119 196))) (test-equal "string->uuid" '(16 "4dab5feb-d176-45de-b287-9b0a6e4c01cb") (let ((uuid (string->uuid "4dab5feb-d176-45de-b287-9b0a6e4c01cb"))) (list (bytevector-length uuid) (uuid->string uuid)))) (test-assert "uuid" (let ((str "4dab5feb-d176-45de-b287-9b0a6e4c01cb")) (bytevector=? (uuid-bytevector (uuid "4dab5feb-d176-45de-b287-9b0a6e4c01cb")) (string->uuid "4dab5feb-d176-45de-b287-9b0a6e4c01cb")))) (test-assert "uuid, syntax error" (catch 'syntax-error (lambda () (eval '(uuid "foobar") (current-module)) #f) (lambda (key proc message location form . args) (and (eq? proc 'uuid) (string-contains message "invalid UUID") (equal? form '(uuid "foobar" 'dce)))))) (test-equal "uuid, ISO-9660, format preserved" "1970-01-01-17-14-42-99" (uuid->string (uuid "1970-01-01-17-14-42-99" 'iso9660))) (test-equal "uuid, FAT32, format preserved" "1234-ABCD" (uuid->string (uuid "1234-abcd" 'fat32))) (test-equal "uuid, FAT32, leading zeros preserved" "00CA-050E" ; (uuid->string (uuid "00CA-050E" 'fat32))) (test-assert "uuid, dynamic value" (let* ((good "4dab5feb-d176-45de-b287-9b0a6e4c01cb") (bad (string-drop good 3))) (and (uuid? (uuid good)) (string=? good (uuid->string (uuid good))) (not (uuid bad))))) (test-assert "uuid=?" (and (uuid=? (uuid-bytevector (uuid "1234-abcd" 'fat32)) (uuid "1234-abcd" 'fat32)) (uuid=? (uuid "1234-abcd" 'fat32) (uuid "1234-abcd" 'fat)))) (test-end) ervice interface....* build-aux/hydra/demo-os.scm: Import (gnu services dbus); remove arguments to 'dbus-service'. Ludovic Courtès 2015-10-04Use "normalized codesets" everywhere....In other words, change "xx_YY.UTF-8" to "xx_YY.utf8". * guix/profiles.scm (ca-certificate-bundle): Use "en_US.utf8" instead of "en_US.UTF-8". * guix/packages.scm (patch-and-repack): Likewise. * guix/build/gnu-build-system.scm (install-locale): Likewise. * guix/build-system/gnu.scm (gnu-build, gnu-cross-build): Likewise. * gnu/packages/python.scm (python-ipython): Likewise. * gnu/packages/gawk.scm (gawk): Likewise. * build-aux/hydra/demo-os.scm: Likewise. * gnu/packages/guile.scm (guile-ncurses)[arguments]: Remove 'change-locale' phase. Ludovic Courtès 2015-09-09hydra: Remove cross-builds from armhf-linux to mips64el-linux-gnuabi64....* build-aux/hydra/gnu-system.scm (hydra-jobs)[cross-jobs]: Modify 'from-32-to-64?' to include 'armhf-linux' in the set of 32-bit systems. Mark H Weaver 2015-07-19gnu: gcc-5.1, gcc-toolchain-5.1, libstdc++-doc-5.1: Rename to *-5....This reflects the new version numbering scheme for GCC 5 and up. See <https://gcc.gnu.org/develop.html>. * gnu/packages/gcc.scm (gcc-5.1): Rename to ... (gcc-5): ... this. (libstdc++-doc-5.1): Rename to ... (libstdc++-doc-5): ... this, and use gcc-5. * gnu/packages/commencement.scm (gcc-toolchain-5.1): Rename to ... (gcc-toolchain-5): ... this, and use gcc-5. * build-aux/hydra/gnu-system.scm (%core-packages): Use gcc-5. Mark H Weaver 2015-06-18Merge branch 'master' into core-updatesMark H Weaver 2015-06-18hydra: Fix the demo OS....* build-aux/hydra/demo-os.scm: Don't try to import (gnu services dbus), which no longer exists. Use 'use-service-modules' and 'use-package-modules'. Use "en_US.UTF-8" as system locale. Mark H Weaver 2015-06-16hydra: Remove GCC 4.7 from the core set, and add 4.9 and 5.1....* build-aux/hydra/gnu-system.scm (%core-packages): Remove GCC-4.7. Add GCC-4.9 and GCC-5.1. Ludovic Courtès 2015-05-29hydra: Support per-package absolute build timeouts....* build-aux/hydra/gnu-system.scm (package->alist): Use the 'timeout' value in the package 'properties' alist, if present. Mark H Weaver