;;; 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")
uix/log/?id=17375266ea2e94726bf3d28c1d4fb3899c115377'>root</a>/<a href='/guix/log/tests?id=17375266ea2e94726bf3d28c1d4fb3899c115377'>tests</a>/<a href='/guix/log/tests/challenge.scm?id=17375266ea2e94726bf3d28c1d4fb3899c115377'>challenge.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/tests/challenge.scm?id=17375266ea2e94726bf3d28c1d4fb3899c115377&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-01-16 11:51:03 +0000'>2021-01-16</span></td><td><a href='/guix/commit/tests/challenge.scm?id=681af17460fa34916ac40589cccdcca7222249af'>guix: Move narinfo code from substitute script to module.</a><span class='msg-avail'>...<span class='msg-tooltip'>This separation between the code for dealing with narinfos from the code doing
that for a purpose should make things clearer, and better support components
other that the substitute script in using this code.

This is just moving the code around, no code should have been significantly
changed.

* guix/scripts/substitute.scm (&lt;narinfo&gt;): Move record type to (guix narinfo).
(fields-&gt;alist, narinfo-hash-algorithm+value, narinfo-hash-&gt;sha256,
narinfo-signature-&gt;canonical-sexp, narinfo-maker, read-narinfo,
narinfo-sha256, valid-narinfo?, write-narinfo, narinfo-&gt;string,
string-&gt;narinfo, equivalent-narinfo?, supported-compression?,
compresses-better?, narinfo-best-uri): Move procedures to (guix narinfo).
(%compression-methods): Move variable to (guix narinfo).
* guix/narinfo.scm: New file.
* Makefile.am (MODULES): Add it.
* po/guix/POTFILES.in: Add 'guix/narinfo.scm'.
</span></span></td><td>Christopher Baines</td></tr>