1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!/usr/bin/perl -w
use lib '.';
use lib "$ENV{HOME}/perl5/lib/perl5";
use strict;
use Test::More;
use File::Temp;
use File::Slurper;
use PostgreyTestClient;
use Test_Greylist;
use Test_Whitelists;
plan tests => 4 + $Test_Greylist::tests + $Test_Whitelists::tests;
my $tmpdir = File::Temp->newdir();
my $sock_path = "$tmpdir/postgrey.sock";
my $pid_path = "$tmpdir/postgrey.pid";
# Are we started in the root directory of the project? chdir to 'test'
if(-d 'test') {
chdir('test') or die "ERROR: can't chdir to test: $!\n";
}
# Start postgrey
system("./test-wrapper.sh -d --pidfile=$pid_path " .
"--dbdir=$tmpdir --unix=$sock_path " .
"--whitelist-clients=../postgrey_whitelist_clients " .
"--whitelist-recipients=../postgrey_whitelist_recipients " .
"--delay=1",
);
ok($? == 0, "start postgrey");
sleep(1);
# Verify that it is running
my $pid; open(PID, $pid_path) and $pid = <PID>; close(PID);
ok(defined $pid, "pid file generated") or done_testing, exit;
chomp($pid);
ok(kill(0, $pid), "postgrey is running") or done_testing, exit;
# Initialize test client
my $client = PostgreyTestClient->new($sock_path);
# Run tests in modules
Test_Greylist::run_tests($client);
Test_Whitelists::run_tests($client);
# Stop postgrey and verify that it stopped
kill('TERM', $pid);
for(my $i=0; $i<10; $i++) {
if(kill(0, $pid)==0) { last; }
kill('TERM', $pid);
print "# waiting for postgrey to stop (pid=$pid)\n";
sleep(1);
}
ok(kill(0, $pid) == 0, "postgrey is stopped");
Test_Whitelists::run_tests_post_stop($client, $tmpdir);
|
