1#!/bin/env perl 2 3BEGIN { 4 unless(grep /blib/, @INC) { 5 chdir 't' if -d 't'; 6 unshift @INC, '../lib' if -d '../lib'; 7 } 8} 9 10#use strict; 11BEGIN { 12print "1..0 # Skip: ActiveState's ppmserver.pl server seems to be broken - skipping tests\n"; 13exit 0; 14}; 15 16use Test; 17use SOAP::Lite 18 on_fault => sub { 19 my $soap = shift; 20 my $res = shift; 21 ref $res ? warn(join " ", "SOAP FAULT:", $res->faultstring, "\n") 22 : warn(join " ", "TRANSPORT ERROR:", $soap->transport->status, "\n"); 23 return new SOAP::SOM; 24 } 25; 26 27my($a, $s, $r); 28 29my $proxy = 'http://ppm.activestate.com/cgibin/PPM/ppmserver.pl'; 30 31# ------------------------------------------------------ 32use SOAP::Test; 33 34$s = SOAP::Lite->uri('urn:/PPMServer')->proxy($proxy)->on_fault(sub{}); 35eval { $s->transport->timeout($SOAP::Test::TIMEOUT = $SOAP::Test::TIMEOUT) }; 36$r = $s->test_connection; 37 38unless (defined $r && defined $r->envelope) { 39 print "1..0 # Skip: ", $s->transport->status, "\n"; 40 exit; 41} 42# ------------------------------------------------------ 43 44plan tests => 3; 45 46{ 47# ActiveState's PPM server (http://activestate.com/) 48 print "ActiveState's PPM server test(s)...\n"; 49 $s = SOAP::Lite 50 -> uri('urn:/PPMServer') 51 -> proxy($proxy) 52 ; 53 54 $r = $s->fetch_ppd('SOAP-Lite')->result; 55# use Data::Dumper; 56# print Dumper $r; 57 58 ok($r =~ 'SOAP-Lite'); 59 ok($r =~ 'Paul Kulchenko'); 60 61 $r = $s->fetch_ppd('SOAP-Super-Lite')->result; 62 63 ok(!defined $r); 64} 65