Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

[r368]: SOAP-Transport-FTP / trunk / t / FTP.t Maximize Restore History

Download this file

FTP.t    19 lines (14 with data), 509 Bytes

use strict;
use Test::More tests => 7;

use_ok qw(SOAP::Transport::FTP);

my $transport;

ok $transport = SOAP::Transport::FTP::Client->new(), 'new()';

is $transport, $transport->new(), '$transport->new() returns $transport';
{
    no warnings qw(uninitialized);
    $transport->send_receive();
}
ok ! $transport->is_success(), 'is_success() is false';
like $transport->status(), qr{ Can't \s connect }x;
like $transport->message(), qr{ Can't \s connect }x;
like $transport->code(), qr{ Can't \s connect }x;