[r419]: trunk / t / SOAP / Transport / LOCAL.t Maximize Restore History

Download this file

LOCAL.t    30 lines (21 with data), 777 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
use strict;
use Test::More qw(no_plan);
use_ok qw(SOAP::Transport::LOCAL);
my $transport;
ok $transport = SOAP::Transport::LOCAL::Client->new();
# call methods if known, pass through the rest as arguments
#
# ->new calls the methods $self->endpoint('local:main') and $self->options({}),
# and calls SUPER::new("foo");
#
ok $transport = SOAP::Transport::LOCAL::Client->new(endpoint => 'local:main', options => [], "foo");
is $transport, $transport->new() , '$transport->new() returns $transport';
use_ok qw(SOAP::Lite);
my $soap = SOAP::Lite->proxy('local:main');
$soap->transport()->dispatch_to('main');
my $som = $soap->call('test');
die $som->fault()->{ faultstring } if $som->fault();
is $som->result, 'Zumsel', 'result is Zumsel';
sub test {
return "Zumsel";
}