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";
}