···

       
18
       
 
       
        MAIL

     

       
19
       
 
       
      '';

     

       
20
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
21
       
 
       
      testImap = pkgs.writeScriptBin "test-imap" ''

     

       
22
       
 
       
        #!${pkgs.python3.interpreter}

     

       
23
       
 
       
        import imaplib

     
···

       
39
       
 
       


     

       
40
       
 
       
        pop = poplib.POP3('localhost')

     

       
41
       
 
       
        try:

     

       
42
       
-
       
          pop.user('alice')

     

       
43
       
 
       
          pop.pass_('foobar')

     

       
44
       
 
       
          assert len(pop.list()[1]) == 1

     

       
45
       
 
       
          status, fullmail, size = pop.retr(1)

     

       
46
       
 
       
          assert status.startswith(b'+OK ')

     

       
47
       
 
       
          body = b"".join(fullmail[fullmail.index(b""):]).strip()

     

       
48
       
-
       
          assert body == b'Hello world!'

     

       
49
       
 
       
        finally:

     

       
50
       
 
       
          pop.quit()

     

       
51
       
 
       
      '';

     

       
52
       
 
       


     

       
53
       
-
       
    in [ sendTestMail testImap testPop ];

     

       
54
       
 
       
  };

     

       
55
       
 
       


     

       
56
       
 
       
  testScript = ''

     

       
57
       
 
       
    $machine->waitForUnit('postfix.service');

     

       
58
       
 
       
    $machine->waitForUnit('dovecot2.service');

     

       
59
       
 
       
    $machine->succeed('send-testmail');

     

       
0
       
 
       

     

       
60
       
 
       
    $machine->waitUntilFails('[ "$(postqueue -p)" != "Mail queue is empty" ]');

     

       
61
       
 
       
    $machine->succeed('test-imap');

     

       
62
       
 
       
    $machine->succeed('test-pop');

     

···

       
18
       
 
       
        MAIL

     

       
19
       
 
       
      '';

     

       
20
       
 
       


     

       
21
       
+
       
      sendTestMailViaDeliveryAgent = pkgs.writeScriptBin "send-lda" ''

     

       
22
       
+
       
        #!${pkgs.stdenv.shell}

     

       
23
       
+
       


     

       
24
       
+
       
        exec ${pkgs.dovecot}/libexec/dovecot/deliver -d bob <<MAIL

     

       
25
       
+
       
        From: root@localhost

     

       
26
       
+
       
        To: bob@localhost

     

       
27
       
+
       
        Subject: Something else...

     

       
28
       
+
       


     

       
29
       
+
       
        I'm running short of ideas!

     

       
30
       
+
       
        MAIL

     

       
31
       
+
       
      '';

     

       
32
       
+
       


     

       
33
       
 
       
      testImap = pkgs.writeScriptBin "test-imap" ''

     

       
34
       
 
       
        #!${pkgs.python3.interpreter}

     

       
35
       
 
       
        import imaplib

     
···

       
51
       
 
       


     

       
52
       
 
       
        pop = poplib.POP3('localhost')

     

       
53
       
 
       
        try:

     

       
54
       
+
       
          pop.user('bob')

     

       
55
       
 
       
          pop.pass_('foobar')

     

       
56
       
 
       
          assert len(pop.list()[1]) == 1

     

       
57
       
 
       
          status, fullmail, size = pop.retr(1)

     

       
58
       
 
       
          assert status.startswith(b'+OK ')

     

       
59
       
 
       
          body = b"".join(fullmail[fullmail.index(b""):]).strip()

     

       
60
       
+
       
          assert body == b"I'm running short of ideas!"

     

       
61
       
 
       
        finally:

     

       
62
       
 
       
          pop.quit()

     

       
63
       
 
       
      '';

     

       
64
       
 
       


     

       
65
       
+
       
    in [ sendTestMail sendTestMailViaDeliveryAgent testImap testPop ];

     

       
66
       
 
       
  };

     

       
67
       
 
       


     

       
68
       
 
       
  testScript = ''

     

       
69
       
 
       
    $machine->waitForUnit('postfix.service');

     

       
70
       
 
       
    $machine->waitForUnit('dovecot2.service');

     

       
71
       
 
       
    $machine->succeed('send-testmail');

     

       
72
       
+
       
    $machine->succeed('send-lda');

     

       
73
       
 
       
    $machine->waitUntilFails('[ "$(postqueue -p)" != "Mail queue is empty" ]');

     

       
74
       
 
       
    $machine->succeed('test-imap');

     

       
75
       
 
       
    $machine->succeed('test-pop');