#!perl
use Test::More tests => 4;
use strict;
use warnings;
use WWW::Correios::PrecoPrazo;
my $cpp;
$cpp = WWW::Correios::PrecoPrazo->new;
ok( defined $cpp, 'Construtor sem argumentos' );
$cpp = undef;
$cpp = WWW::Correios::PrecoPrazo->new(
{
scheme => 'ftp',
host => 'localhost',
path => '/foo/bar',
}
);
ok( defined $cpp, 'Construtor com argumentos' );
ok( UNIVERSAL::isa( $cpp->{base_uri}, 'URI' ), 'URI instanciada' );
ok( $cpp->{base_uri}->as_string eq 'ftp://localhost/foo/bar' );