use strict; use Test::More tests => 7; use_ok qw(SOAP::Transport::TCP); my $transport; ok $transport = SOAP::Transport::TCP::Client->new( endpoint => 'tcp://127.0.0.1:0' ), '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{ Cannot }x; like $transport->message(), qr{ Cannot }x; like $transport->code(), qr{ Cannot }x;