;;; 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")
table>
<div class='path'>path: <a href='/guix/log/?id=fadd962f4b7aa5a5a26a3efa705a359e29f60fc5'>root</a>/<a href='/guix/log/gnu?id=fadd962f4b7aa5a5a26a3efa705a359e29f60fc5'>gnu</a>/<a href='/guix/log/gnu/packages?id=fadd962f4b7aa5a5a26a3efa705a359e29f60fc5'>packages</a>/<a href='/guix/log/gnu/packages/jemalloc.scm?id=fadd962f4b7aa5a5a26a3efa705a359e29f60fc5'>jemalloc.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/jemalloc.scm?id=fadd962f4b7aa5a5a26a3efa705a359e29f60fc5&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-03-13 00:17:39 +0100'>2020-03-13</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=f430c621d502b7e6b85f548e85354924a3898562'>gnu: jemalloc: Install scripts to separate output.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-12-05 17:59:00 +0100'>2019-12-05</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=8aeac338a7084720a0143f54b83e39d18a2edcdc'>gnu: jemalloc: Update to 5.2.1.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-05-02 00:38:53 +0200'>2019-05-02</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=922fbf8a66306c59d5fc0078bd9cf91eafce381e'>gnu: jemalloc: Update to 5.2.0.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-05-09 15:39:56 +0200'>2018-05-09</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=475c11b1a7699e63467c0182da3602fbe6222378'>gnu: jemalloc: Update to 5.1.0.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-12-10 16:04:16 -0600'>2017-12-10</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=aa5c206348b5606cc82bb1436aca5c9675332993'>gnu: jemalloc: Fix tests for aarch64.</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>
<tr><td><span title='2017-12-11 00:05:30 +0100'>2017-12-11</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=d53fb678a72a83401f0495b458bd0dcc6428d364'>gnu: rust: Update rust to 1.22.1 and cargo to 1.23.0.</a><span class='msg-avail'>...</span></td><td>Nikolai Merinov</td></tr>
<tr><td><span title='2017-08-28 11:53:20 +0300'>2017-08-28</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=475b99fa5cf402430aa93a40e406e854ad2ff6e4'>gnu: jemalloc: Update to 5.0.1.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-04-30 11:04:38 +0300'>2017-04-30</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=06be316111b70fb46aa4ee77f2fbf9e6308a2fb6'>gnu: jemalloc: Disable transparent huge pages on non-Intel systems.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-03-01 20:41:41 +0100'>2017-03-01</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=d2839defeca0b134d4238a1fbc7849bcecc8ce4f'>gnu: jemalloc: Update to 4.5.0.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-02-19 22:25:44 +0100'>2017-02-19</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=4a4fc718d0e4167bdaf9e37ddcc192fcbe185d3e'>gnu: jemalloc: Update to 4.4.0.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2016-05-19 20:43:13 +0300'>2016-05-19</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=0e40755d35fc0ec1e598796af2ba3e72cbd59af5'>gnu: jemalloc: Update to 4.2.0.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2016-05-13 01:18:42 -0400'>2016-05-13</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=e9017c98d61f305b624bacaa30e8891ec0100980'>gnu: jemalloc: No longer build with gcc-4.8 on i686.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2016-05-04 21:47:04 +0300'>2016-05-04</span></td><td><a href='/guix/commit/gnu/packages/jemalloc.scm?id=cbb6239bed4713e9bc7197377487f2fcbd907a9d'>gnu: jemalloc: Update to 4.1.0.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>