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