···
+
import ./make-test.nix {
+
smtp1 = { pkgs, ... }: {
+
imports = [ common/user-account.nix ];
+
firewall.allowedTCPPorts = [ 25 ];
+
interfaces.eth1.ipv4.addresses = pkgs.lib.mkOverride 0 [
+
{ address = "192.168.1.1"; prefixLength = 24; }
+
environment.systemPackages = [ pkgs.opensmtpd ];
+
extraServerArgs = [ "-v" ];
+
serverConfiguration = ''
+
# DO NOT DO THIS IN PRODUCTION!
+
# Setting up authentication requires a certificate which is painful in
+
# a test environment, but THIS WOULD BE DANGEROUS OUTSIDE OF A
+
# WELL-CONTROLLED ENVIRONMENT!
+
accept from any for any relay
+
smtp2 = { pkgs, ... }: {
+
imports = [ common/user-account.nix ];
+
firewall.allowedTCPPorts = [ 25 143 ];
+
interfaces.eth1.ipv4.addresses = pkgs.lib.mkOverride 0 [
+
{ address = "192.168.1.2"; prefixLength = 24; }
+
environment.systemPackages = [ pkgs.opensmtpd ];
+
extraServerArgs = [ "-v" ];
+
serverConfiguration = ''
+
accept from any for local deliver to mda \
+
"${pkgs.dovecot}/libexec/dovecot/deliver -d %{user.username}"
+
mailLocation = "maildir:~/mail";
+
protocols = [ "imap" ];
+
client = { pkgs, ... }: {
+
interfaces.eth1.ipv4.addresses = pkgs.lib.mkOverride 0 [
+
{ address = "192.168.1.3"; prefixLength = 24; }
+
environment.systemPackages = let
+
sendTestMail = pkgs.writeScriptBin "send-a-test-mail" ''
+
#!${pkgs.python3.interpreter}
+
with smtplib.SMTP('192.168.1.1') as smtp:
+
smtp.sendmail('alice@[192.168.1.1]', 'bob@[192.168.1.2]', """
+
checkMailLanded = pkgs.writeScriptBin "check-mail-landed" ''
+
#!${pkgs.python3.interpreter}
+
with imaplib.IMAP4('192.168.1.2', 143) as imap:
+
imap.login('bob', 'foobar')
+
status, refs = imap.search(None, 'ALL')
+
status, msg = imap.fetch(refs[0], 'BODY[TEXT]')
+
print("===> content:", content)
+
split = content.split(b'\r\n')
+
print("===> split:", split)
+
print("===> lastline:", lastline)
+
assert lastline.strip() == b'Hello World'
+
in [ sendTestMail checkMailLanded ];
+
$client->waitForUnit("network.target");
+
$smtp1->waitForUnit('opensmtpd');
+
$smtp2->waitForUnit('opensmtpd');
+
$smtp2->waitForUnit('dovecot2');
+
$client->succeed('send-a-test-mail');
+
$smtp1->waitUntilFails('smtpctl show queue | egrep .');
+
$smtp2->waitUntilFails('smtpctl show queue | egrep .');
+
$client->succeed('check-mail-landed >&2');