@@ -34,6 +34,8 @@
(define %transmission-daemon-group "transmission")
(define %transmission-daemon-config-dir "/var/lib/transmission-daemon")
+(define %transmission-daemon-download-dir
+ (string-append %transmission-daemon-config-dir "/downloads"))
(define %transmission-daemon-watch-dir
(string-append %transmission-daemon-config-dir "/watch"))
(define %transmission-daemon-incomplete-dir
@@ -110,8 +112,9 @@
#t)
marionette))
- ;; Make sure Transmission Daemon's configuration directory has been
- ;; created with the correct ownership and permissions.
+ ;; Make sure Transmission Daemon's configuration and download
+ ;; directories have been created with the correct ownership and
+ ;; permissions.
(test-assert "configuration directory exists"
(marionette-eval
'(eq? (stat:type (stat #$%transmission-daemon-config-dir))
@@ -132,6 +135,26 @@
#o750)
marionette))
+ (test-assert "download directory exists"
+ (marionette-eval
+ '(eq? (stat:type (stat #$%transmission-daemon-download-dir))
+ 'directory)
+ marionette))
+ (test-assert "download directory has correct ownership"
+ (marionette-eval
+ '(let ((download-dir (stat #$%transmission-daemon-download-dir))
+ (transmission-user (getpwnam #$%transmission-daemon-user)))
+ (and (eqv? (stat:uid download-dir)
+ (passwd:uid transmission-user))
+ (eqv? (stat:gid download-dir)
+ (passwd:gid transmission-user))))
+ marionette))
+ (test-assert "download directory has expected permissions"
+ (marionette-eval
+ '(eqv? (stat:perms (stat #$%transmission-daemon-download-dir))
+ #o750)
+ marionette))
+
;; Make sure the incomplete-downloads and watch directories have been
;; created with the correct ownership and permissions.
(test-assert "incomplete-downloads directory exists"