21-public.t   [plain text]

#!/bin/env perl 

BEGIN {
    unless(grep /blib/, @INC) {
        chdir 't' if -d 't';
        unshift @INC, '../lib' if -d '../lib';
    }
}

use strict;
use Test;

use SOAP::Lite
    on_fault => sub {
        my $soap = shift;
        my $res = shift;
        ref $res
            ? warn(join " ", "SOAP FAULT:", $res->faultstring, "\n") 
            : warn(join " ", "TRANSPORT ERROR:", $soap->transport->status, "\n");
        return new SOAP::SOM;
    };

$SOAP::Constants::DO_NOT_USE_CHARSET = 1;

my($a, $s, $r, $serialized, $deserialized);

# ------------------------------------------------------
use SOAP::Test;

$s = SOAP::Lite->uri('http://something/somewhere')->proxy('http://services.xmethods.net/soap/servlet/rpcrouter')->on_fault(sub{});
eval { 
    $s->transport->timeout($SOAP::Test::TIMEOUT = $SOAP::Test::TIMEOUT)
};
$r = $s->test_connection;

unless (defined $r && defined $r->envelope) {
    print "1..0 # Skip: ", $s->transport->status, "\n"; 
    exit;
}
# ------------------------------------------------------

plan tests => 21;

{
# Public test server with Frontier implementation (http://soap.weblogs.com/)
    print "Frontier server test(s)...\n";
    $s = SOAP::Lite 
        -> uri('/examples')
        -> on_action(sub { sprintf '"%s"', @_ })
        -> proxy('http://superhonker.userland.com/', timeout => $SOAP::Test::TIMEOUT);

    ok($s->getCurrentTime()->result); 
    ok($s->getStateName(SOAP::Data->name(statenum => 1))->result eq 'Alabama'); 

    print "SOAP::Lite server test(s)...\n";
    $s = SOAP::Lite 
        -> uri('http://www.soaplite.com/My/Examples')
        -> proxy('http://services.soaplite.com/examples.cgi', timeout => $SOAP::Test::TIMEOUT);
  ok($s->getStateNames(1,4,6,13)->result =~ /^Alabama\s+Arkansas\s+Colorado\s+Illinois\s*$/); 

  $r = $s->getStateList([1,2,3,4])->result;
  ok(ref $r && $r->[0] eq 'Alabama'); 

  $r = $s->getStateStruct(SOAP::Data->type(ordered_hash => [item1 => 1, item2 => 4]))->result;
  ok(ref $r && $r->{item2} eq 'Arkansas'); 

# Public test server with COM implementation (http://www.zaks.demon.co.uk/com/4s4c/)
  print "COM server test(s)...\n";
  $s = SOAP::Lite 
    -> uri('http://simon.fell.com/calc')
    -> proxy('http://soap.4s4c.com/ssss4c/soap.asp', timeout => $SOAP::Test::TIMEOUT)
  ;
beta
    $r = $s->doubler(name SOAP::Data nums => [10,20,30,50,100])->result;
    ok(ref $r && $r->[1] == 40);

    # Real server with ASP implementation (http://www.soap-wrc.com/webservices/)
    print "ASP server test(s)...\n";
    $s = SOAP::Lite 
        -> uri('www.soap-wrc.com')
        -> proxy('http://www.soap-wrc.com/webservices/soapv11.asp', timeout => $SOAP::Test::TIMEOUT)
        -> on_fault(sub{ref$_[1]?return$_[1]:return});

    import SOAP::Data 'name'; # no import by default

    $r = $s->addResource(
        name(Login => 'login'),
        name(Password => 'password'),
        name(Caption => 'caption'),
        name(Description => 'description'),
        name(URL => 'http://yahoo.com'),
    );
    ok(ref $r && $r->faultcode eq 'SOAP-ENV:Client');
    # Password should be wrong. Put yours if you have it. 
    # Remember: this is the real server

if (0) { # doesn't seem to be working on 2001/01/31
    print "DevelopMentor's Perl server test(s)...\n";
    ok((SOAP::Lite
        -> uri('urn:soap-perl-test')                
        -> proxy('http://soapl.develop.com/soap?class=SPTest', timeout => $SOAP::Test::TIMEOUT)
        -> add(SOAP::Data->name(a => 3), SOAP::Data->name(b => 4))
        -> result or 0) == 7);beta
}

# Public server with Microsoft implementation (http://search.microsoft.com/search/MSComSearchService.asmx)
  print "Microsoft's server test(s)...\n";
  ok((SOAP::Lite 
    -> uri('http://tempuri.org/')
    -> proxy('http://search.microsoft.com/search/MSComSearchService.asmx', timeout => $SOAP::Test::TIMEOUT)
    -> on_action(sub{join'',@_})
    -> GetVocabulary(SOAP::Data->name(Query => 'something_very_unusual')->uri('http://tempuri.org/'))
    -> valueof('//Found') || '') eq 'false');

  $r = SOAP::Lite 
    -> uri('http://tempuri.org/')
    -> proxy('http://search.microsoft.com/search/MSComSearchService.asmx', timeout => $SOAP::Test::TIMEOUT)
    -> on_action(sub{join'',@_})
    -> GetBestBets(SOAP::Data->name(Query => 'data')->uri('http://tempuri.org/'))
    -> result;
  ok(ref $r && $r->{VocabularyLastcache} =~ /T/);

# Public server with 4s4c implementation (http://www.pocketsoap.com/4s4c/)
  print "4s4c (aka Simon's SOAP Server Services For COM) server test(s)...\n";
  $s = SOAP::Lite 
    -> uri('http://www.pocketsoap.com/whois')
    -> proxy('http://soap.4s4c.com/whois/soap.asp', timeout => $SOAP::Test::TIMEOUT)
    -> whois(SOAP::Data->name('name' => 'yahoo'));
  $r = $s->result || '';
  ok($r =~ /YAHOO/);

# Public server with MS SOAP implementation (http://www.itfinity.net/soap/guid/details.html)
  print "MS SOAP (on itfinity.net) server test(s)...\n";
  ok((SOAP::Lite 
        -> uri('http://www.itfinity.net/soap/guid/guid.xsd')
        -> proxy('http://www.itfinity.net/soap/guid/default.asp', timeout => $SOAP::Test::TIMEOUT)
        -> NextGUID
        -> result or '') =~ /.{8}-.{4}-.{4}-.{4}-.{12}/);

# Public server with Apache implementation (http://www.lemurlabs.com/projects/soap/itime/index.jsp)
  print "Apache SOAP (on lemurlabs.com) server test(s)...\n";
  ok((SOAP::Lite 
        -> uri('urn:lemurlabs-ITimeService')
        -> proxy('http://www.lemurlabs.com/rpcrouter', timeout => $SOAP::Test::TIMEOUT)
        -> getInternetTime
        -> result or '') =~ /\d/);

  ok(@{SOAP::Lite 
    -> uri('urn:lemurlabs-Fortune')
    -> proxy('http://www.lemurlabs.com/rpcrouter', timeout => $SOAP::Test::TIMEOUT)
    -> getDictionaryNameList #getAnyFortune
    -> result or []} > 1);

  $r = (SOAP::Lite 
    -> uri('urn:lemurlabs-Fortune')
    -> proxy('http://www.lemurlabs.com/rpcrouter', timeout => $SOAP::Test::TIMEOUT)
    -> getFortuneByDictionary('work')
    -> result) || '';

  ok($r && ref($r = SOAP::Deserializer->deserialize($r)) && ($r = $r->valueof('//fortune') || ''));
  print $r ? "Your fortune cookie:\n$r\n" : "No fortune cookies for you today\n\n";

if (0) { # seems to be down as of 2001/04/18
# Public server with Lucin implementation (http://www.lucin.com/lu003/sal.htm)
  print "Lucin SOAP (lucin.com) server test(s)...\n";
  $r = (SOAP::Lite
    -> proxy('http://srv.lucin.net/bin/SOAP002.asp', timeout => $SOAP::Test::TIMEOUT)
    -> uri('http://schema.soapranch.com/salACC/CAddress.xml')
    -> Ping(SOAP::Data->new(name => 'ApplicID', type => 'xsd:long', value => 1001))
    -> result) || '';

  ok($r && $r =~ /^OKO/);
}

# Public server with SOAP::Lite/ApacheSOAP implementations (http://www.xmethods.net/)
  print "XMethods (SOAP::Lite/ApacheSOAP) server test(s)...\n";
  print "All connections are keep-alive\n";
  $s = SOAP::Lite                             
    -> uri('urn:xmethods-BNPriceCheck')                
    -> proxy('http://services.xmethods.net/soap/servlet/rpcrouter', timeout => $SOAP::Test::TIMEOUT);

  my $isbn = '0672319225';
  $r = ($s->getPrice(SOAP::Data->type(string => $isbn))->result) || 0;
  print "Price for ISBN$isbn is \$$r\n";
  ok($r > 20 && $r < 60);

  $s = SOAP::Lite                             
    -> uri('urn:xmethods-CurrencyExchange')                
    -> proxy('http://services.xmethods.net/soap', timeout => $SOAP::Test::TIMEOUT);

  $r = ($s->getRate(SOAP::Data->name(country1 => 'England'), 
                    SOAP::Data->name(country2 => 'Japan'))
          ->result) || 0;
  print "Currency rate for England/Japan is $r\n";
  ok($r > 1);

  $s = SOAP::Lite                             
    -> uri('urn:xmethods-delayed-quotes')                
    -> proxy('http://services.xmethods.net/soap', timeout => $SOAP::Test::TIMEOUT);

  $r = ($s->getQuote('MSFT')->result) || 0;
  print "Quote for MSFT symbol is $r\n";
  ok($r > 1);

if (0) { # should work, but server wasn't ready as of 2001/04/18
  $s = SOAP::Lite                             
    -> uri('urn:xmethods-delayed-quotes')                
    -> proxy('https://services.xmethods.net/soap', timeout => $SOAP::Test::TIMEOUT);

  $r = ($s->getQuote('MSFT')->result) || 0;
  print "Quote for MSFT symbol from secure server is $r\n";
  ok($r > 1);
}

  ok((SOAP::Lite
        -> uri('urn:xmethods-DomainChecker')                
        -> proxy('http://services.xmethods.net/soap', timeout => $SOAP::Test::TIMEOUT)
        -> checkDomain('yahoo.com')
        -> result or '') eq 'unavailable');

  ok((SOAP::Lite
        -> uri('urn:xmethods-CATraffic')                
        -> proxy('http://services.xmethods.net/soap/servlet/rpcrouter', timeout => $SOAP::Test::TIMEOUT)
        -> getTraffic(type SOAP::Data string => 101)
        -> result or '') =~ /reported/);

  ok((SOAP::Lite
        -> uri('urn:xmethods-Temperature')                
        -> proxy('http://services.xmethods.net/soap/servlet/rpcrouter', timeout => $SOAP::Test::TIMEOUT)
        -> getTemp(type SOAP::Data string => 64151)
        -> result or '') =~ /\./);

if (0) { # Tony brought it down as of 2001/06/11
  ok((SOAP::Lite
        -> uri('urn:xmethodsSoapPing')                
        -> proxy('http://services.xmethods.net/perl/soaplite.cgi', timeout => $SOAP::Test::TIMEOUT)
        -> pingHost(name SOAP::Data hostname => 'www.yahoo.com')
        -> result or 0) == 1);

  skip 'xmethods is unavailable', 1;
  print "BabelFish translator server test(s)...\n";
  ok((SOAP::Lite                             
        -> uri('urn:xmethodsBabelFish')                
        -> proxy('http://services.xmethods.net/perl/soaplite.cgi', timeout => $SOAP::Test::TIMEOUT)
        -> BabelFish(SOAP::Data->name(translationmode => 'en_it'), 
                     SOAP::Data->name(sourcedata => 'I want to work'))
        -> result or '') =~ /^Desidero lavorare$/);
}
}

if (0) { # Kafka response has xsi:type="string" response which is invalid
  print "Kafka (http://www.vbxml.com/soapworkshop/utilities/kafka/) server test(s)...\n";
  ok((SOAP::Lite
        -> service('http://www.vbxml.com/soapworkshop/services/id/id.xml')
        -> GetSecretIdentity('Superman') or '') eq 'Clark Kent');
}