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