File: timeout.t

package info (click to toggle)
libmail-checkuser-perl 1.24-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 192 kB
  • sloc: perl: 433; makefile: 6
file content (16 lines) | stat: -rwxr-xr-x 319 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
use Mail::CheckUser qw(check_email);
 
require './t/check.pl';
 
# timeout test
$Mail::CheckUser::Skip_Network_Checks = 0;
$Mail::CheckUser::Timeout = 1;
 
$email = 'm_ilya@agava.com';
@timeouts = (1, 5, 10);
 
start(scalar(@timeouts));
 
foreach my $timeout (@timeouts) {
        run_timeout_test($email, $timeout);
}