use strict;
use warnings;
use Test::More qw(no_plan);
use_ok qw(SOAP::Transport::LOOPBACK);
my $transport;
ok $transport = SOAP::Transport::LOOPBACK::Client->new();
is $transport, $transport->new() , '$transport->new() returns $transport';
use_ok qw(SOAP::Lite);
my $soap = SOAP::Lite->proxy('loopback:main');
my $som = $soap->call('test', 'Zumsel');
die $som->fault()->{ faultstring } if $som->fault();
is $som->result, 'Zumsel', 'result is Zumsel';