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
|
#!perl
## Test the timeout functionality
use 5.008;
use strict;
use warnings;
use Data::Dumper;
use Test::More tests => 2;
use lib 't','.';
use CP_Testing;
use vars qw/$dbh $SQL $t $res/;
my $cp = CP_Testing->new( {default_action => 'custom_query'} );
$dbh = $cp->test_database_handle();
$t=q{Setting the --timeout flag works as expected};
$res = $cp->run('--query="SELECT pg_sleep(10)" -w 7 --timeout=1');
like ($res, qr{Command timed out}, $t);
$t=q{Setting the --timeout flag works as expected};
$res = $cp->run('--query="SELECT pg_sleep(1)" -w 7 --timeout=10');
like ($res, qr{Invalid format}, $t);
exit;
|
