[r368]: branches / 0.71 / t / SOAP / Transport / FTP.t  Maximize  Restore  History

Download this file

19 lines (14 with data), 509 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
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;

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks