diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/go.scm | 8 | ||||
-rw-r--r-- | tests/inferior.scm | 6 | ||||
-rw-r--r-- | tests/services/configuration.scm | 83 |
3 files changed, 88 insertions, 9 deletions
diff --git a/tests/go.scm b/tests/go.scm index e5780e68b0..b088ab50d2 100644 --- a/tests/go.scm +++ b/tests/go.scm @@ -158,15 +158,11 @@ require github.com/kr/pretty v0.2.1 "v1.0.2" (go-version->git-ref "v1.0.2")) -(test-equal "go-version omited 'v' character" - "v1.0.2" - (go-version->git-ref "v1.0.2")) - -(test-equal "go-version with embeded git-ref" +(test-equal "go-version with embedded git-ref" "65e3620a7ae7" (go-version->git-ref "v0.0.0-20190821162956-65e3620a7ae7")) -(test-equal "go-version with complex embeded git-ref" +(test-equal "go-version with complex embedded git-ref" "daa7c04131f5" (go-version->git-ref "v1.2.4-0.20191109021931-daa7c04131f5")) diff --git a/tests/inferior.scm b/tests/inferior.scm index 7c3d730d0c..f227e0b749 100644 --- a/tests/inferior.scm +++ b/tests/inferior.scm @@ -173,9 +173,9 @@ ,(package-version package) ,(package-location package)) ,@rest))))) - (list (map ->list (package-inputs guile-2.2)) - (map ->list (package-native-inputs guile-2.2)) - (map ->list (package-propagated-inputs guile-2.2)))) + (list (map ->list (package-inputs guile-3.0-latest)) + (map ->list (package-native-inputs guile-3.0-latest)) + (map ->list (package-propagated-inputs guile-3.0-latest)))) (let* ((inferior (open-inferior %top-builddir #:command "scripts/guix")) (guile (first (lookup-inferior-packages inferior "guile"))) diff --git a/tests/services/configuration.scm b/tests/services/configuration.scm new file mode 100644 index 0000000000..21ad188485 --- /dev/null +++ b/tests/services/configuration.scm @@ -0,0 +1,83 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; +;;; 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 (tests services linux) + #:use-module (gnu services configuration) + #:use-module (guix gexp) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-64)) + +;;; Tests for the (gnu services configuration) module. + +(test-begin "services-configuration") + + +;;; +;;; define-configuration macro. +;;; + +(define-configuration port-configuration + (port (number 80) "The port number.") + (no-serialization)) + +(test-equal "default value, no serialization" + 80 + (port-configuration-port (port-configuration))) + +(define-configuration port-configuration-cs + (port (number 80) "The port number." empty-serializer)) + +(test-equal "default value, custom serializer" + 80 + (port-configuration-cs-port (port-configuration-cs))) + +(define serialize-number "") +(define-configuration port-configuration-ndv + (port (number) "The port number.")) + +(test-equal "no default value, provided" + 55 + (port-configuration-ndv-port (port-configuration-ndv + (port 55)))) + +(test-assert "no default value, not provided" + (guard (c ((configuration-error? c) + #t)) + (port-configuration-ndv-port (port-configuration-ndv)))) + +(define (custom-number-serializer name value) + (format #t "~a = ~a;" name value)) + +(define-configuration serializable-configuration + (port (number 80) "The port number." custom-number-serializer)) + +(test-assert "serialize-configuration" + (gexp? + (let ((config (serializable-configuration))) + (serialize-configuration config serializable-configuration-fields)))) + +(define-configuration serializable-configuration + (port (number 80) "The port number." custom-number-serializer) + (no-serialization)) + +(test-assert "serialize-configuration with no-serialization" + ;; When serialization is disabled, the serializer is set to #f, so + ;; attempting to use it fails with a 'wrong-type-arg' error. + (not (false-if-exception + (let ((config (serializable-configuration))) + (serialize-configuration config serializable-configuration-fields))))) |