From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:48754) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1euENi-000144-J0 for guix-patches@gnu.org; Fri, 09 Mar 2018 04:32:11 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1euENe-0003aK-Ky for guix-patches@gnu.org; Fri, 09 Mar 2018 04:32:06 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:43831) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1euENe-0003aA-GC for guix-patches@gnu.org; Fri, 09 Mar 2018 04:32:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1euENe-0004hV-AV for guix-patches@gnu.org; Fri, 09 Mar 2018 04:32:02 -0500 Subject: [bug#30744] [PATCH] tests: mail: Add test for dovecot. Resent-Message-ID: From: Oleg Pykhalov References: <87po4fug8i.fsf@gmail.com> <20180308082855.7113-1-go.wigust@gmail.com> <87tvtqaoqg.fsf@lassieur.org> Date: Fri, 09 Mar 2018 12:31:38 +0300 In-Reply-To: <87tvtqaoqg.fsf@lassieur.org> ("=?UTF-8?Q?Cl=C3=A9ment?= Lassieur"'s message of "Thu, 08 Mar 2018 10:41:27 +0100") Message-ID: <87sh99lhmt.fsf@gmail.com> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: =?UTF-8?Q?Cl=C3=A9ment?= Lassieur Cc: 30744@debbugs.gnu.org --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Hello Cl=C3=A9ment, Cl=C3=A9ment Lassieur writes: > Oleg Pykhalov writes: [=E2=80=A6] >> + ;; 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 =E2=80=98(wait-for-file =E2=80=A6)=E2=80=99 and a comment with: =2D-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))) =2D-8<---------------cut here---------------end--------------->8--- [=E2=80=A6] >> + (match (scandir TESTBOX/new) >> + ((cwd .. message-file) > > You need to use double quotes, like ("." ".." message-file) I believe. It works. Thank you! [=E2=80=A6] I think it's ready for a push to =E2=80=98origin/master=E2=80=99. WDYT? Oleg. --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQIzBAEBCgAdFiEEc+OyAXw1EaDPCmAPckbhHGm3lWkFAlqiVHoACgkQckbhHGm3 lWmPDQ/9ES86paYF3Q9KEfIhyOuGp+WWSkd4drx3QCzwwjfJ+QNBrn7rbLucaZP7 /MoD3i87zGGVtX5XMD7h024sNG4T0s0zOg3Gtr2iNlRPOsvTkW2X0Iefta9JFzmM SDrP2HvXZKyFoigjD76oKSh7x57tpeg1C4jTaq/sVv0uOsPu/5ee7HAXXRuALrRT pmcUCyoLkLcZKi3MtWtOTyDqXcpS6R2/6ObokRZewABnW8qllNHdQ1USO6ggROd0 8tVuLZM8J/w7lISuOWgRm8cgj2Kc7ivbABerFFjbV3KiS6IoxVwakXGfruWolJmq ORcv8TOprhs4R8aG+OZ0vZuG23xspirdNivdf2b85SKIotBidrv4KXQGVIT0KRlo x6CmOLIlcOgG6bAecpNu5dAM5flfJonosbrE0AQ6qsk125Ekl25HzxsQaK2OzCI1 pHqZB7soXzHZURytSx/VOFzyeCIy+UgKpDNM/pybTovgGwBwAaBctkKwqyENyEYJ 4swVihPZu8vg8vBdRMQtS9Bh/JWCGcPiKq13w7PxxLnaoYeLdRNE8sQhsSxLvzXo iwxH1HmCDoRwd2dSXZQGRYZhg0FTFmg8+wmS7/ky0MJJX2rH4lFhcedS6XrdIsBc VdF4JkNGToAS4VG16b07LTQCc4bXkJ5SNCg+jU/Ia508JCQR3P8= =8NhZ -----END PGP SIGNATURE----- --=-=-=--