;;; 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))))

          (test-runner-current (system-test-runner #$output))
          (test-begin "pcscd")

          (test-assert "pcscd is alive"
            (marionette-eval
             '(begin
                (use-modules (gnu services herd)
                             (srfi srfi-1))

                (live-service-running
                 (find (lambda (live)
                         (memq 'pcscd (live-service-provision live)))
                       (current-services))))
             marionette))

          (test-end))))

  (gexp->derivation "pcscd" test))

(define %test-pcscd
  (system-test
   (name "pcscd")
   (description "Test a running pcscd daemon.")
   (value (run-pcscd-test))))
/a>/<a href='/guix/log/gnu/packages?id=73158a5f6299a07a1581f0f33c5e86be660f6270'>packages</a>/<a href='/guix/log/gnu/packages/python-crypto.scm?id=73158a5f6299a07a1581f0f33c5e86be660f6270'>python-crypto.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/python-crypto.scm?id=73158a5f6299a07a1581f0f33c5e86be660f6270&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-08-31 10:45:03 +0200'>2024-08-31</span></td><td><a href='/guix/commit/gnu/packages/python-crypto.scm?id=e312bce54340022a1e55dee55b8a46b3b0dfb908'>gnu: python-certifi: Ungraft.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/python-crypto.scm (python-certifi): Ungraft and apply source snippet
directly.
(python-certifi/fixed): Remove variable.

Change-Id: I6778ebcc3ef23dab1776d3876b9179d332a126e5
</span></span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2024-08-10 00:45:55 -0500'>2024-08-10</span></td><td><a href='/guix/commit/gnu/packages/python-crypto.scm?id=966afbc375aa7eadf3f9ef0a66ffad35da93721f'>gnu: python-base58: Move to pyproject-build-system.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/python-crypto.scm (python-base58): Move to
pyproject-build-system.
[build-system]: Use pyproject-build-system.
[arguments]: Convert to use the modern gexp style.

Change-Id: If95dbaa274b5c430441215a21168ea30808157a9
</span></span></td><td>jgart</td></tr>
<tr><td><span title='2024-07-19 00:46:11 +0300'>2024-07-19</span></td><td><a href='/guix/commit/gnu/packages/python-crypto.scm?id=e4c1584f5b0d492ac42e9d3d1cb69002aed64587'>gnu: python-pyopenssl: Update to 24.1.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/python-crypto.scm (python-pyopenssl): Update to 24.1.0.
[arguments]: Adjust custom 'check phase to disable fewer tests and
update faketime.
[native-inputs]: Add python-pytest-rerunfailures.  Remove
python-pretend.
[properties]: Add package updater helpers updater-extra-inputs,
updater-extra-native-inputs.

Change-Id: I3a152e6c66d27c912e18e67c114672397426e6e3
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2024-07-19 00:45:09 +0300'>2024-07-19</span></td><td><a href='/guix/commit/gnu/packages/python-crypto.scm?id=da4c49e45c5d8589b60080a1297a4ae2c99e37d1'>gnu: python-cryptography: Update to 42.0.5.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/python-crypto.scm (python-cryptography-vectors): Update
to 42.0.5.
[native-inputs]: Add python-flit-core.
(python-cryptography): Update to 42.0.5.
[arguments]: Adjust 'disable-rust-extension-build phase.
[native-inputs]: Add python-certifi.  Remove python-hypothesis,
python-subtests.
(python-cryptography-rust)[cargo-inputs]: Add rust-cfg-if-1,
rust-self-cell-1.  Replace rust-pem-1 with 3, rust-pyo3-0.18 with 0.20.
Remove rust-ouroboros-0.15.

Change-Id: I1d17ee8ca60eaa65a86b2f6f8054391dda4201c8
</span></span></td><td>Efraim Flashner</td></tr>