← Back to branch summary

~ubuntu-branches/ubuntu/utopic/libsoap-lite-perl/utopic

« back to all changes in this revision

Viewing changes to t/28-uddi_search.t

  • Committer: Package Import Robot
  • Author(s): Damyan Ivanov, Xavier Guimard, Florian Schlichting, Damyan Ivanov, gregor herrmann
  • Date: 2014-01-16 18:24:37 UTC
  • mfrom: (1.1.6)
  • Revision ID: package-import@ubuntu.com-20140116182437-fioryl8n3zdiem4o
Tags: 1.08-1
http://bugs.debian.org/727732
http://bugs.debian.org/735095
http://bugs.debian.org/734470
[ Xavier Guimard ]
* Remove useless build-dep on mail-transport-agent (Closes: #727732)

[ Florian Schlichting ]
* Import Upstream version 1.08
  Fixes "libxmlrpc-lite-perl: uninstallable in sid: Breaks:
  libsoap-lite-perl (< 1.08-1) but 0.716-1 is to be installed"
  Closes: #735095
* Switch order of copyright paragraphs (last match applies)
* Add Fred Moyer to upstream copyright holders
* Add (build-)dependencies on modules separated out into their own
  distributions
* Declare compliance with Debian Policy 3.9.5
* Drop update-test-plan.patch, perl5.18-test.patch (applied upstream),
  refresh hashref_crash.patch (offset)

[ Damyan Ivanov ]
* remove build-dependency on libxmlrpc-lite-perl
* add patch from Michael Albinus fixing triggering multipart handling in
  HTTP server with certain responses
  Closes: #734470

[ gregor herrmann ]
* debian/rules: don't try to fixup XMLRPCsh anymore. The file was
  removed.

[ Damyan Ivanov ]
* Break otrs2 versions that don't depend on separate libxml-parser-lite-perl

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/28-uddi_search.t
1
 
#!/bin/env perl 
2
 
 
3
 
BEGIN {
4
 
  unless(grep /blib/, @INC) {
5
 
    chdir 't' if -d 't';
6
 
    unshift @INC, '../lib' if -d '../lib';
7
 
  }
8
 
}
9
 
 
10
 
use strict;
11
 
use Test;
12
 
 
13
 
use UDDI::Lite 
14
 
  import => 'UDDI::Data',
15
 
  import => 'UDDI::Lite',
16
 
  proxy => 'http://www-3.ibm.com/services/uddi/inquiryapi'
17
 
;
18
 
 
19
 
my($a, $s, $r, $serialized, $deserialized);
20
 
 
21
 
# ------------------------------------------------------
22
 
use SOAP::Test;
23
 
 
24
 
$s = SOAP::Lite->uri('http://something/somewhere')->proxy('http://www-3.ibm.com/services/uddi/inquiryapi')->on_fault(sub{});
25
 
eval { $s->transport->timeout($SOAP::Test::TIMEOUT = $SOAP::Test::TIMEOUT) };
26
 
$r = $s->test_connection;
27
 
 
28
 
unless (defined $r && defined $r->envelope) {
29
 
  print "1..0 # Skip: ", $s->transport->status, "\n"; 
30
 
  exit;
31
 
}
32
 
# ------------------------------------------------------
33
 
 
34
 
my($serviceInfo) = grep { $_->name =~ /stock quote/i } find_business(name('XMethods'))
35
 
  -> businessInfos 
36
 
  -> businessInfo            
37
 
  -> serviceInfos
38
 
  -> serviceInfo             
39
 
;  
40
 
 
41
 
unless (defined $serviceInfo) {
42
 
  print "1..0 # Skip: getQuote service doesn't exist on XMethods\n";
43
 
  exit;
44
 
}
45
 
 
46
 
plan tests => 6;
47
 
 
48
 
ok($serviceInfo->name);
49
 
ok($serviceInfo->serviceKey);
50
 
print $serviceInfo->name, ", ", $serviceInfo->serviceKey, "\n";
51
 
 
52
 
my $bindingTemplate = get_serviceDetail($serviceInfo->serviceKey)
53
 
  -> businessService
54
 
  -> bindingTemplates
55
 
  -> bindingTemplate         
56
 
;
57
 
 
58
 
my $accessPoint = $bindingTemplate->accessPoint->value;
59
 
my $tModelKey = $bindingTemplate
60
 
  -> tModelInstanceDetails
61
 
  -> tModelInstanceInfo
62
 
  -> tModelKey
63
 
;
64
 
 
65
 
ok($accessPoint);
66
 
ok($tModelKey);
67
 
print $accessPoint, ", ", $tModelKey, "\n";
68
 
 
69
 
my $wsdl = get_tModelDetail($tModelKey)
70
 
  -> tModel
71
 
  -> overviewDoc
72
 
  -> overviewURL
73
 
  -> value
74
 
;
75
 
 
76
 
ok($wsdl);
77
 
print $wsdl, "\n";
78
 
 
79
 
my $quote = SOAP::Lite->service($wsdl)->proxy($accessPoint)->getQuote('MSFT');
80
 
ok($quote > 0);
81
 
print $quote, "\n";