[r403]: branches / 0.71 / t / SOAP / Transport / LOOPBACK.t Maximize Restore History

Download this file

LOOPBACK.t    19 lines (12 with data), 457 Bytes

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';