;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Simon South <simon@simonsouth.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 (tests services file-sharing)
  #:use-module (gnu services file-sharing)
  #:use-module (srfi srfi-64))

;;; Tests for the (gnu services file-sharing) module.

(test-begin "file-sharing")


;;;
;;; Transmission Daemon.
;;;

(define %transmission-salt-length 8)

(define (valid-transmission-salt? salt)
    (and (string? salt)
         (eqv? (string-length salt) %transmission-salt-length)))

(test-assert "transmission-random-salt"
  (valid-transmission-salt? (transmission-random-salt)))

(test-equal "transmission-password-hash, typical values"
  "{ef6fba106cdef3aac64d1410090cae353cbecde53ceVVQO2"
  (transmission-password-hash "transmission" "3ceVVQO2"))

(test-equal "transmission-password-hash, empty password"
  "{820f816515d8969d058d07a1de018650619ee7ffCp.I5SWg"
  (transmission-password-hash "" "Cp.I5SWg"))

(test-error "transmission-password-hash, salt value too short"
            (transmission-password-hash
             "transmission"
             (make-string (- %transmission-salt-length 1) #\a)))

(test-error "transmission-password-hash, salt value too long"
            (transmission-password-hash
             "transmission"
             (make-string (+ %transmission-salt-length 1) #\a)))

(test-end "file-sharing")
nput type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=126a91888c921179e90090c4c023d6285bfd44a0'>root</a>/<a href='/guix/log/gnu?id=126a91888c921179e90090c4c023d6285bfd44a0'>gnu</a>/<a href='/guix/log/gnu/system?id=126a91888c921179e90090c4c023d6285bfd44a0'>system</a>/<a href='/guix/log/gnu/system/examples?id=126a91888c921179e90090c4c023d6285bfd44a0'>examples</a>/<a href='/guix/log/gnu/system/examples/vm-image.tmpl?id=126a91888c921179e90090c4c023d6285bfd44a0'>vm-image.tmpl</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/system/examples/vm-image.tmpl?id=126a91888c921179e90090c4c023d6285bfd44a0&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-12-16 23:42:17 -0500'>2022-12-16</span></td><td><a href='/guix/commit/gnu/system/examples/vm-image.tmpl?id=491bddfa276cc9775adf325c07e5f82638f330e7'>system: examples: Add mode prop line.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/examples/asus-c201.tmpl: Add a mode prop line.
* gnu/system/examples/bare-bones.tmpl: Likewise.
* gnu/system/examples/beaglebone-black.tmpl: Likewise.
* gnu/system/examples/desktop.tmpl: Likewise.
* gnu/system/examples/docker-image.tmpl: Likewise.
* gnu/system/examples/lightweight-desktop.tmpl: Likewise.
* gnu/system/examples/raspberry-pi-64-nfs-root.tmpl: Likewise.
* gnu/system/examples/raspberry-pi-64.tmpl: Likewise.
* gnu/system/examples/vm-image.tmpl: Likewise.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-08-09 15:16:06 +0200'>2022-08-09</span></td><td><a href='/guix/commit/gnu/system/examples/vm-image.tmpl?id=fdafd404325413da4d5fdd717c84e57a51c60fe2'>maint: Use a pretty version string in ISO and VM images.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/examples/vm-image.tmpl: Use the 'GUIX_DISPLAYED_VERSION'
environment variable in 'label'.
* gnu/system/install.scm (%installation-os): Likewise.
* Makefile.am (release): Set 'GUIX_DISPLAYED_VERSION'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-09 15:16:06 +0200'>2022-08-09</span></td><td><a href='/guix/commit/gnu/system/examples/vm-image.tmpl?id=95a03aa5c507d48e2cde19ea007b8f90a4e0108a'>system: install: Always use 'current-guix'.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/53210&gt;.
Reported by Mathieu Othacehe &lt;othacehe@gnu.org&gt;.

* gnu/system/install.scm (%installation-services): Set 'guix' to
use (current-guix) in 'guix-configuration'.
* gnu/system/examples/vm-image.tmpl: Likewise.
* gnu/tests/install.scm (operating-system-with-current-guix): Remove.
(run-install, installation-os-for-gui-tests): Remove its uses.
* Makefile.am (release): Remove intermediate use of
'update-guix-package.scm' and subsequent 'git commit' invocation.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-06 18:54:59 -0800'>2022-01-06</span></td><td><a href='/guix/commit/gnu/system/examples/vm-image.tmpl?id=79260c8695cc5e3cd64f5b01e262369d5a67f141'>services: Consistently use SDDM rather than GDM on non-x86_64.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a follow-up to 49599fab564f203b8e92d32e9b28c99e99849bfb.

Fixes: &lt;https://issues.guix.gnu.org/52908&gt;.

* gnu/services/xorg.scm (set-xorg-configuration)[login-manager-service-type]:
When the current system or target system begins with the string "x86_64", use
gdm-service-type as before; otherwise, use sddm-service-type.
* gnu/system/examples/vm-image.tmpl (services): Add sddm-service-type to the
list of service types to remove.
</span></span></td><td>Chris Marusich</td></tr>
<tr><td><span title='2021-08-29 01:05:26 -0400'>2021-08-29</span></td><td><a href='/guix/commit/gnu/system/examples/vm-image.tmpl?id=da4e40948326387d5bcda58783914d5f9ce8b095'>Migrate to the new 'targets' field of bootloader-configuration.</a><span class='msg-avail'>...<span class='msg-tooltip'>The old 'target' field is deprecated; adjust the sources to use the new
'targets' one instead.

* doc/guix-cookbook.texi&lt;target&gt;: Replace by 'targets'.
* gnu/bootloader/grub.scm: Likewise.
* gnu/installer/parted.scm: Likewise.
* gnu/machine/digital-ocean.scm: Likewise.
* gnu/system/examples/asus-c201.tmpl: Likewise
* gnu/system/examples/bare-bones.tmpl: Likewise
* gnu/system/examples/bare-hurd.tmpl: Likewise
* gnu/system/examples/beaglebone-black.tmpl: Likewise
* gnu/system/examples/desktop.tmpl: Likewise
* gnu/system/examples/docker-image.tmpl: Likewise
* gnu/system/examples/lightweight-desktop.tmpl: Likewise
* gnu/system/examples/vm-image.tmpl: Likewise
* gnu/system/examples/yggdrasil.tmpl: Likewise
* gnu/system/hurd.scm: Likewise
* gnu/system/images/hurd.scm: Likewise
* gnu/system/images/novena.scm: Likewise
* gnu/system/images/pine64.scm: Likewise
* gnu/system/images/pinebook-pro.scm: Likewise
* gnu/system/images/rock64.scm: Likewise
* gnu/system/install.scm: Likewise
* gnu/system/vm.scm: Likewise
* gnu/tests.scm: Likewise
* gnu/tests/ganeti.scm: Likewise
* gnu/tests/install.scm: Likewise
* gnu/tests/nfs.scm: Likewise
* gnu/tests/telephony.scm: Likewise
* tests/boot-parameters.scm: Likewise
* tests/system.scm: Likewise
</span></span></td><td>Maxim Cournoyer</td></tr>