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