//depot/projects/greylistd/t/01-basic.t#1 – add change 61 (text) ·revision history
| 1 | #!/usr/bin/perl -w |
| 2 | use strict; |
| 3 | use Test::More tests => 5; |
| 4 | use File::Temp qw(tempdir); |
| 5 | |
| 6 | use_ok('Mail::Greylist'); |
| 7 | |
| 8 | my $dir = tempdir(CLEANUP => 1); |
| 9 | my $gl = Mail::Greylist->new(dbfile => "$dir/t.db", delay => 2); |
| 10 | isa_ok($gl, 'Mail::Greylist'); |
| 11 | |
| 12 | my %req = (client_address => '10.1.2.3', |
| 13 | sender => 'someone@example.com', |
| 14 | recipient => 'nullbyte@ttul.org'); |
| 15 | |
| 16 | like($gl->check(%req), qr/^DEFER/, 'first attempt is deferred'); |
| 17 | like($gl->check(%req), qr/^DEFER/, 'immediate retry still deferred'); |
| 18 | sleep 3; |
| 19 | is($gl->check(%req), 'DUNNO', 'retry after delay is accepted'); |