Diff of /SOAP-Transport-TCP/trunk/t/TCP.t [000000] .. [r389] Maximize Restore

  Switch to unified view

a b/SOAP-Transport-TCP/trunk/t/TCP.t
1
use strict;
2
use Test::More tests => 7;
3
4
use_ok qw(SOAP::Transport::TCP);
5
6
my $transport;
7
8
ok $transport = SOAP::Transport::TCP::Client->new(
9
    endpoint => 'tcp://127.0.0.1:0'
10
), 'new()';
11
12
is $transport, $transport->new(), '$transport->new() returns $transport';
13
{
14
    no warnings qw(uninitialized);
15
    $transport->send_receive();
16
}
17
ok ! $transport->is_success(), 'is_success() is false';
18
like $transport->status(), qr{ Cannot }x;
19
like $transport->message(), qr{ Cannot }x;
20
like $transport->code(), qr{ Cannot }x;