Diff of /trunk/t/SOAP/Transport/HTTP.t [r418] .. [r419]  Maximize  Restore

Switch to unified view

a/trunk/t/SOAP/Transport/HTTP.t b/trunk/t/SOAP/Transport/HTTP.t
...
...
23
            return HTTP::Response->new(200, '200 OK');
23
            return HTTP::Response->new(200, '200 OK');
24
        },
24
        },
25
    );
25
    );
26
    my $client;
26
    my $client;
27
    ok $client = SOAP::Transport::HTTP::Client->new();
27
    ok $client = SOAP::Transport::HTTP::Client->new();
28
    $client->send_receive();
28
    $client->send_receive(endpoint => 'http://example.org',
29
      envelope => '');
29
    is $client->code(), '200';
30
    is $client->code(), '200';
30
    is $client->message(), '200 OK';
31
    is $client->message(), '200 OK';
31
}
32
}
32
33
33
# client
34
# client
...
...
50
51
51
# package SOAP::Transport::HTTP::Server;
52
# package SOAP::Transport::HTTP::Server;
52
my $server;
53
my $server;
53
ok $server = SOAP::Transport::HTTP::Server->new(), 'SOAP::Transport::HTTP::Server->new()';
54
ok $server = SOAP::Transport::HTTP::Server->new(), 'SOAP::Transport::HTTP::Server->new()';
54
isa_ok $server, 'SOAP::Transport::HTTP::Server';
55
isa_ok $server, 'SOAP::Transport::HTTP::Server';
55
# isa_ok $server, 'SOAP::Server';
56
isa_ok $server, 'SOAP::Server';
56
is $server, $server->new(), '$server->new() returns $server';
57
is $server, $server->new(), '$server->new() returns $server';
57
58
58
like $server->product_tokens(), qr{SOAP::Lite}x;
59
like $server->product_tokens(), qr{SOAP::Lite}x;
59
60
60
test_make_fault($server);
61
test_make_fault($server);
...
...
63
64
64
# package SOAP::Transport::HTTP::CGI;
65
# package SOAP::Transport::HTTP::CGI;
65
66
66
ok $server = SOAP::Transport::HTTP::CGI->new();
67
ok $server = SOAP::Transport::HTTP::CGI->new();
67
isa_ok $server, 'SOAP::Transport::HTTP::Server';
68
isa_ok $server, 'SOAP::Transport::HTTP::Server';
68
# isa_ok $server, 'SOAP::Server';
69
isa_ok $server, 'SOAP::Server';
69
70
70
test_make_fault($server);
71
test_make_fault($server);
71
72
72
# package SOAP::Transport::HTTP::Daemon
73
# package SOAP::Transport::HTTP::Daemon
73
my $transport;
74
my $transport;

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

Sign up for the SourceForge newsletter:





No, thanks