me/guix
Archived
1
0
Fork 0
Code Activity

tests: getmail: Provide a pre-initialized user account password.

Browse source 
* gnu/tests/mail.scm (%getmail-os): Rewrite so that the "alice" account
has a password.
(run-getmail-test)[test]("set password for alice"): Remove.  This would
not work since commit 8b9cad01e9 since
'passwd' would no longer be in $PATH.
This commit is contained in:
Ludovic Courtès 2020-03-09 23:32:44 +01:00
parent 0e42a1643e
commit 827abd5deb
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 53 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gnu/tests/mail.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Sou Bunnbu <iyzsong@member.fsf.org> ;;; Copyright © 2016 Sou Bunnbu <iyzsong@member.fsf.org>
;;; Copyright © 2017 Carlo Zancanaro <carlo@zancanaro.id.au> ;;; Copyright © 2017 Carlo Zancanaro <carlo@zancanaro.id.au>
;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2019 Christopher Baines <mail@cbaines.net> ;;; Copyright © 2019 Christopher Baines <mail@cbaines.net>
@ -26,8 +26,11 @@
#:use-module (gnu tests) #:use-module (gnu tests)
#:use-module (gnu packages mail) #:use-module (gnu packages mail)
#:use-module (gnu system) #:use-module (gnu system)
#:use-module (gnu system accounts)
#:use-module (gnu system shadow)
#:use-module (gnu system vm) #:use-module (gnu system vm)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services base)
#:use-module (gnu services getmail) #:use-module (gnu services getmail)
#:use-module (gnu services mail) #:use-module (gnu services mail)
#:use-module (gnu services networking) #:use-module (gnu services networking)
@ -404,8 +407,19 @@ Subject: Hello Nice to meet you!")
(value (run-dovecot-test)))) (value (run-dovecot-test))))
(define %getmail-os (define %getmail-os
(simple-operating-system (operating-system
(service dhcp-client-service-type) (inherit (simple-operating-system))
;; Set a password for the user account; the test needs it.
(users (cons (user-account
(name "alice")
(password (crypt "testpass" "$6$abc"))
(comment "Bob's sister")
(group "users")
(supplementary-groups '("wheel" "audio" "video")))
%base-user-accounts))
(services (cons* (service dhcp-client-service-type)
(service dovecot-service-type (service dovecot-service-type
(dovecot-configuration (dovecot-configuration
(disable-plaintext-auth? #f) (disable-plaintext-auth? #f)
@ -440,7 +454,8 @@ Subject: Hello Nice to meet you!")
(path "/home/alice/TestMaildir/"))) (path "/home/alice/TestMaildir/")))
(options (options
(getmail-options-configuration (getmail-options-configuration
(read-all #f)))))))))) (read-all #f))))))))
%base-services))))
(define (run-getmail-test) (define (run-getmail-test)
"Return a test of an OS running Getmail service." "Return a test of an OS running Getmail service."
@ -483,11 +498,6 @@ Subject: Hello Nice to meet you!")
(start-service 'dovecot)) (start-service 'dovecot))
marionette)) marionette))
(test-assert "set password for alice"
(marionette-eval
'(system "echo -e \"testpass\ntestpass\" | passwd alice")
marionette))
;; Wait for getmail to be up and running. ;; Wait for getmail to be up and running.
(test-assert "getmail-test running" (test-assert "getmail-test running"
(marionette-eval (marionette-eval