;;; 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")
<div class='path'>path: <a href='/guix/log/?id=c9b72c4ff8aaaa81724f76f0891fd9b68cfffed4'>root</a>/<a href='/guix/log/gnu?id=c9b72c4ff8aaaa81724f76f0891fd9b68cfffed4'>gnu</a>/<a href='/guix/log/gnu/packages?id=c9b72c4ff8aaaa81724f76f0891fd9b68cfffed4'>packages</a>/<a href='/guix/log/gnu/packages/enchant.scm?id=c9b72c4ff8aaaa81724f76f0891fd9b68cfffed4'>enchant.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/enchant.scm?id=c9b72c4ff8aaaa81724f76f0891fd9b68cfffed4&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-08-31 10:45:00 +0200'>2024-08-31</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=1572a90859bce0d33df9437dc349314ce371c9ed'>gnu: enchant: Update to 2.6.9.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/enchant.scm (enchant): Update to 2.6.9.

Change-Id: I7d5f229b0308e7a09101df0b8af344e03f2bbdbb
</span></span></td><td>Nicolas Goaziou</td></tr>
<tr><td><span title='2024-08-31 10:45:00 +0200'>2024-08-31</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=3a869c965a3238cb89cc28f378fdf3a50d687552'>gnu: enchant: Add Nuspell support.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/enchant.scm (enchant)[inputs]: Add NUSPELL.

Change-Id: I60d70e6b6e4952722559848f715fc68dcf3e11f4
Reviewed-by: Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
</span></span></td><td>Nicolas Goaziou</td></tr>
<tr><td><span title='2024-08-31 10:45:00 +0200'>2024-08-31</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=f44c312e2139887103b9bbd07d2d9034f150acd0'>gnu: enchant: Improve package style.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/enchant.scm (enchant)[arguments]: Use G-expressions.
[native-inputs]: Drop input labels.
[description]: Be more informative and less technical.

Change-Id: I908fbbfcdc9f21beb1d6e05eec2dbc154b429831
Reviewed-by: Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
</span></span></td><td>Nicolas Goaziou</td></tr>
<tr><td><span title='2024-08-31 10:45:00 +0200'>2024-08-31</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=bd0b6a1b6812590ebfd68a407cc8051c7139774b'>gnu: enchant: Update to 2.6.8.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/enchant.scm (enchant): Update to 2.6.8.
[native-inputs]: Add GROFF.

Change-Id: I8c7d7e2b9124a55401c6623fd76eacc0878ad6e6
Reviewed-by: Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
</span></span></td><td>Nicolas Goaziou</td></tr>
<tr><td><span title='2024-03-25 17:26:24 +0100'>2024-03-25</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=929ddec8f4a181be653152c7436581c2adc54eee'>gnu: nuspell: Add search path specification for DICPATH.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/enchant.scm (nuspell)[native-search-path]: Add DICPATH.

This change is required to let Nuspell detect Hunspell dictionaries.

Change-Id: I731752142afcae1fc2b91c01fb9dbe914d33244f
</span></span></td><td>Nicolas Goaziou</td></tr>
<tr><td><span title='2024-03-25 17:21:11 +0100'>2024-03-25</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=53aa1677cfb084056f44646e4dfc27d91de82c98'>gnu: nuspell: Remove unnecessary inputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/enchant.scm (nuspell)[native-inputs]: Remove GIT-MINIMAL and
PERL.
[inputs]: remove BOOST.

Change-Id: I1847e4c68a5c40c5ebae75a0bbe651384250d8a7
</span></span></td><td>Nicolas Goaziou</td></tr>
<tr><td><span title='2024-03-25 16:26:48 +0100'>2024-03-25</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=01d7ce85c89bc25876538f191be6bed4226d1593'>gnu: nuspell: Update to 5.1.4.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/enchant.scm (nuspell): Update to 5.1.4.
[native-inputs]: Use CATCH2-3.  Remove comment about RONN, which is no longer used.

Change-Id: I62fa0568dacde29bef5065b2ee23c060373727cf
</span></span></td><td>Nicolas Goaziou</td></tr>