1use strict;
2use Test::More tests => 7;
3
4use_ok qw(SOAP::Transport::FTP);
5
6my $transport;
7
8ok $transport = SOAP::Transport::FTP::Client->new(), 'new()';
9
10is $transport, $transport->new(), '$transport->new() returns $transport';
11
12$transport->send_receive();
13
14ok ! $transport->is_success(), 'is_success() is false';
15like $transport->status(), qr{ Can't \s connect }x;
16like $transport->message(), qr{ Can't \s connect }x;
17like $transport->code(), qr{ Can't \s connect }x;
18