|
Packit |
3f4df8 |
#!perl
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
use strict;
|
|
Packit |
3f4df8 |
use warnings;
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
use Test::More tests => 5;
|
|
Packit |
3f4df8 |
use HTTP::Tiny;
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
# Just make sure timeout is handled correctly as a constructor param,
|
|
Packit |
3f4df8 |
# and that it works as expected as an "attribute".
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
my $default = 60;
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
{
|
|
Packit |
3f4df8 |
my $ua = HTTP::Tiny->new();
|
|
Packit |
3f4df8 |
is $ua->timeout, $default, 'default timeout is as expected';
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
{
|
|
Packit |
3f4df8 |
my $ua = HTTP::Tiny->new(timeout => 10);
|
|
Packit |
3f4df8 |
is $ua->timeout, 10, 'timeout is handled as a constructor param';
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
{
|
|
Packit |
3f4df8 |
my $ua = HTTP::Tiny->new(timeout => 0);
|
|
Packit |
3f4df8 |
is $ua->timeout, 0, 'constructor arg of timeout=0 is passed through';
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
{
|
|
Packit |
3f4df8 |
my $ua = HTTP::Tiny->new(timeout => undef);
|
|
Packit |
3f4df8 |
is $ua->timeout, $default, 'constructor arg of timeout=undef is ignored';
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
{
|
|
Packit |
3f4df8 |
my $ua = HTTP::Tiny->new();
|
|
Packit |
3f4df8 |
$ua->timeout(15);
|
|
Packit |
3f4df8 |
is $ua->timeout, 15, 'timeout works as expected as a r/w attribute';
|
|
Packit |
3f4df8 |
}
|