[bug#30744] [PATCH] tests: mail: Add test for dovecot.

[Oleg Pykhalov <go.wigust@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1182 bytes --]

Hello Clément,

Clément Lassieur <clement@lassieur.org> writes:

> Oleg Pykhalov <go.wigust@gmail.com> writes:

[…]

>> +          ;; Give the service time to start talking.
>> +          (wait-for-file "/var/run/dovecot/master.pid" marionette)
>
> Could you put it in a test context (test-assert with file-exists? for
> example, see tests/messaging.scm)?

OK.

I replaced ‘(wait-for-file …)’ and a comment with:
--8<---------------cut here---------------start------------->8---
;; Check Dovecot service's PID.
(test-assert "service process id"
  (let ((pid
         (number->string (wait-for-file "/var/run/dovecot/master.pid"
                                        marionette))))
    (marionette-eval `(file-exists? (string-append "/proc/" ,pid))
                     marionette)))
--8<---------------cut here---------------end--------------->8---

[…]

>> +                  (match (scandir TESTBOX/new)
>> +                    ((cwd .. message-file)
>
> You need to use double quotes, like ("." ".." message-file) I believe.

It works.  Thank you!

[…]

I think it's ready for a push to ‘origin/master’.  WDYT?

Oleg.

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]