Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Commit [r398] Maximize Restore History

moved IO::Session stuff to TCP Transport module

kutterma 2011-12-13

removed /branches/0.71/t/IO
removed /branches/0.71/lib/IO
changed /branches/0.71/MANIFEST
changed /branches/0.71/Makefile.PL
changed /branches/0.71/lib/SOAP/Transport/LOCAL.pm
changed /branches/0.71/lib/SOAP/Transport/LOOPBACK.pm
copied /branches/0.71/t/16-tcp.t -> /branches/0.71/t/SOAP/Transport/LOOPBACK.t
/branches/0.71/t/IO
File was removed.
/branches/0.71/lib/IO
File was removed.
/branches/0.71/MANIFEST Diff Switch to side-by-side view
Loading...
/branches/0.71/Makefile.PL Diff Switch to side-by-side view
Loading...
/branches/0.71/lib/SOAP/Transport/LOCAL.pm Diff Switch to side-by-side view
Loading...
/branches/0.71/lib/SOAP/Transport/LOOPBACK.pm Diff Switch to side-by-side view
Loading...
/branches/0.71/t/16-tcp.t to /branches/0.71/t/SOAP/Transport/LOOPBACK.t
--- a/branches/0.71/t/16-tcp.t
+++ b/branches/0.71/t/SOAP/Transport/LOOPBACK.t
@@ -1,13 +1,17 @@
-#!/bin/env perl 
+use strict;
+use Test::More qw(no_plan);
 
-BEGIN {
-  unless(grep /blib/, @INC) {
-    chdir 't' if -d 't';
-    unshift @INC, '../lib' if -d '../lib';
-  }
-}
+use_ok qw(SOAP::Transport::LOOPBACK);
 
-use SOAP::Test;
+my $transport;
 
-SOAP::Test::Server::run_for(shift || 'tcp://localhost:82');
+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';
+