15 lines
253 B
Perl
15 lines
253 B
Perl
#!/usr/bin/perl -w
|
|
use strict;
|
|
use lib 't';
|
|
use Test::Qpsmtpd;
|
|
|
|
my $qp = Test::Qpsmtpd->new();
|
|
|
|
$qp->run_plugin_tests($ARGV[0]);
|
|
|
|
foreach my $file ("./t/config/greylist.dbm", "./t/config/greylist.dbm.lock") {
|
|
next if !-f $file;
|
|
unlink $file;
|
|
}
|
|
|