diff options
author | Marius Bakke <mbakke@fastmail.com> | 2018-08-16 20:56:38 +0200 |
---|---|---|
committer | Marius Bakke <mbakke@fastmail.com> | 2018-08-16 20:56:38 +0200 |
commit | df570bf271536399993b39e7ea2ea0452bb6cde4 (patch) | |
tree | 32cde458f90c599691831fc33cfbd4efcca9e9eb /gnu/tests | |
parent | 37d203985e2817b0962129384e8b993a1bb92de9 (diff) | |
parent | 5f9a9945b5747e5ec284f8b116b2e8cc1b9064d7 (diff) | |
download | guix-df570bf271536399993b39e7ea2ea0452bb6cde4.tar.gz |
Merge branch 'master' into staging
Diffstat (limited to 'gnu/tests')
-rw-r--r-- | gnu/tests/security-token.scm | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/gnu/tests/security-token.scm b/gnu/tests/security-token.scm new file mode 100644 index 0000000000..1169a4b9fd --- /dev/null +++ b/gnu/tests/security-token.scm @@ -0,0 +1,71 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net> +;;; +;;; 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 (gnu tests security-token) + #:use-module (gnu tests) + #:use-module (gnu system vm) + #:use-module (gnu services) + #:use-module (gnu services security-token) + #:use-module (guix gexp) + #:export (%test-pcscd)) + +(define %pcscd-os + (simple-operating-system + (service pcscd-service-type))) + +(define* (run-pcscd-test) + "Run tests of 'pcscd-service-type'." + (define os + (marionette-operating-system + %pcscd-os + #:imported-modules '((gnu services herd)) + #:requirements '(pcscd))) + + (define test + (with-imported-modules '((gnu build marionette)) + #~(begin + (use-modules (srfi srfi-64) + (gnu build marionette)) + (define marionette + (make-marionette (list #$(virtual-machine os)))) + + (mkdir #$output) + (chdir #$output) + + (test-begin "pcscd") + + (test-assert "pcscd is alive" + (marionette-eval + '(begin + (use-modules (gnu services herd)) + (live-service-running + (find (lambda (live) + (memq 'pcscd (live-service-provision live))) + (current-services)))) + marionette)) + + (test-end) + (exit (= (test-runner-fail-count (test-runner-current)) 0))))) + + (gexp->derivation "pcscd" test)) + +(define %test-pcscd + (system-test + (name "pcscd") + (description "Test a running pcscd daemon.") + (value (run-pcscd-test)))) |