import SOAP-WSDL 1.23 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  1.23
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-1.23.tar.gz

Build.PL

@@ -1,7 +1,20 @@
+#!/usr/bin/perl -w
 use Module::Build;
-   Module::Build->new(
+
-   		dist_abstract => 'WSDL support for SOAP::Lite',
+Module::Build->new(
-       module_name => 'SOAP::WSDL',
+	dist_abstract => 'WSDL support for SOAP::Lite',
-       license => 'artistic',
+	module_name   => 'SOAP::WSDL',
-       requires => { 'SOAP::Lite' => 0.55, 'XML::XPath' => 0 }
+	license       => 'artistic',
-   )->create_build_script;
+	requires      => {
+		'SOAP::Lite' => 0,
+		'XML::XPath' => 0,
+	},
+	buildrequires => {
+    'Test::More'    => 0,
+    'SOAP::Lite'    => 0,
+    'XML::XPath'    => 0,
+    'Time::HiRes'   => 0,
+    'Cwd'           => 0,
+  },
+
+)->create_build_script;

CHANGES

@@ -1,3 +1,16 @@
+* v1.23 2007/06/05 - bugfixes and optimizations
+- fixes #27426: missing prereq XML::XPath
+- fixed build_requires
+- some doc fixes
+- now performs some initializations on calling portname()
+
+* v1.22 2007/05/30 - auto-discover service and port again
+- re-introduces auto-detecting of servicename and portname
+- fixes #27325: Test fails with Test::Pod::Coverage v 1.06.
+- Now build requires Test::More
+- documentation update
+- cosmetics
+
 2007/05/28 private methods made private and pod update
   - added pod tests
   - made encodeComplexType and method generators private

MANIFEST

@@ -8,6 +8,7 @@ README
 t/1_performance.t
 t/2_helloworld.NET.t
 t/3_various.t
+t/4_auto_set_port.t
 t/97_pod.t
 t/98_pod_coverage.t
 t/acceptance/helloworld.asmx.xml

META.yml

@@ -1,22 +1,19 @@
 ---
 name: SOAP-WSDL
-version: 1.21
+version: 1.23
 author:
-  - |-
-    Martin Kutter <martin.kutter@fen-net.de>
-    Giovanni S. Fois giovannisfois@tiscali.it
 abstract: WSDL support for SOAP::Lite
 license: artistic
-resources:
-  license: http://opensource.org/licenses/artistic-license.php
 requires:
-  SOAP::Lite: 0.55
+  SOAP::Lite: 0
   XML::XPath: 0
-provides:
+generated_by: Module::Build version 0.2808
-  SOAP::WSDL:
-    file: lib/SOAP/WSDL.pm
-    version: 1.21
-generated_by: Module::Build version 0.28
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html
   version: 1.2
+provides:
+  SOAP::WSDL:
+    file: lib/SOAP/WSDL.pm
+    version: 1.23
+resources:
+  license: http://opensource.org/licenses/artistic-license.php

README

@@ -20,13 +20,10 @@ need the following packages:
 
 INSTALLING
 
-Use the usual mantra:
+perl Build.PL
-
+perl Build
-perl Makefile.PL
+perl Build test
-make
+perl Build install
-make test
-make install
-
 
 LICENSE
 

t/1_performance.t

@@ -59,11 +59,11 @@ my $t0 = [gettimeofday];
   print "# NO cache second call (".tv_interval ( $t0, [gettimeofday]) ."s)\n" ;
 
   $t0 = [gettimeofday];
-  for (my $i=1; $i<100; $i++) {
+  for (1..10) {
     $soap->call(sayHello => %{ $data });
   }
   ok(1);
-  print "# NO cache: 100 x call (".tv_interval ( $t0, [gettimeofday]) ."s)\n";
+  print "# NO cache: 10 x call (".tv_interval ( $t0, [gettimeofday]) ."s)\n";
 }
 {
   print "# Test with caching ENABLED\n";
@@ -98,10 +98,10 @@ my $t0 = [gettimeofday];
   print "# CACHE second call: (".tv_interval ( $t0, [gettimeofday]) ."s)\n" ;
 
   $t0 = [gettimeofday];
-  for (my $i=1; $i<100; $i++) {
+  for (1..10) {
     $soap->call(sayHello => %{ $data });
   }
   ok(1);
-  print "# CACHE: 100 x call (".tv_interval ( $t0, [gettimeofday]) ."s)\n";
+  print "# CACHE: 10 x call (".tv_interval ( $t0, [gettimeofday]) ."s)\n";
 
 }

t/3_various.t

@@ -1,15 +1,13 @@
 #!/usr/bin/perl -w
 use strict;
-use Test;
+use warnings;
-plan tests=> 8;
+use diagnostics;
+use Test::More tests=> 9;
 use Time::HiRes qw( gettimeofday tv_interval );
 use lib '../lib';
 use Data::Dumper;
 use Cwd;
-use SOAP::WSDL;
+use_ok qw/SOAP::WSDL/;
-
-ok 1; # if we made it this far, we're ok
-### test vars END
 
 print "# Testing SOAP::WSDL ". $SOAP::WSDL::VERSION."\n";
 print "# Various Features Test with WSDL file \n";
@@ -31,11 +29,11 @@ print "# Create SOAP::WSDL object (".tv_interval ( $t0, [gettimeofday]) ."ms)\n"
 
 $t0 = [gettimeofday];
 eval{ $soap->wsdlinit(caching => 0) };
-unless ($@) {
+if ($@) {
-  ok(1);
+  fail("wsdlinit");
-} else {
-  ok 0;
   print STDERR $@;
+} else {
+  pass("wsdlinit");
 }
 print "# wsdl file init (".tv_interval ( $t0, [gettimeofday]) ."s)\n" ;;
 
@@ -44,18 +42,17 @@ $soap->servicename("Service1");
 $soap->portname("Service1Soap");
 
 $t0 = [gettimeofday];
-
+ok( $soap->call("sayHello" , %{ $data }), "call sayHello");
-ok( $soap->call("sayHello" , %{ $data }));
 print "# Normal Call: (".tv_interval ( $t0, [gettimeofday]) ."s)\n" ;
 
 $soap->servicename("Service2");
-$soap->portname("Service2Soap");
+is( $soap->portname("Service2Soap"), 'Service2Soap' );
 
 $data = {name => 'Mein Name',
 	 givenName => 'Vorname'};
 
 $t0 = [gettimeofday];
-ok($soap->call(sayGoodBye => %{ $data }) );
+ok($soap->call(sayGoodBye => %{ $data }), "Multiple Services/Port Call" );
 print "# Multiple Services/Port Call: (".tv_interval ( $t0, [gettimeofday]) ."s)\n" ;
 
 $soap->servicename("Service2");
@@ -68,7 +65,7 @@ $data = {name => 'Mein Name',
 $t0 = [gettimeofday];
 
 my $xml = $soap->serializer->method( $soap->call(sayGoodByeOverload => %{ $data }) );
-$xml =~ /<name/ and ok(1);
+like($xml , qr/<name/, 'serialized overloaded method');
 
 $data = {
 	 name => 'Mein Name',
@@ -78,7 +75,7 @@ $data = {
 
 $t0 = [gettimeofday];
 $xml = $soap->serializer->method( $soap->call(sayGoodByeOverload => %{ $data }) );
-$xml !~ /<name/ and ok(1);
+unlike($xml , qr/<name/ , 'Overloaded calls');
 
 print "# Overloaded Calls: (".tv_interval ( $t0, [gettimeofday]) ."s)\n" ;
 

t/4_auto_set_port.t

@@ -0,0 +1,55 @@
+#!/usr/bin/perl -w
+#######################################################################################
+#
+# 2_helloworld.t
+#
+# Acceptance test for message encoding, based on .NET wsdl and example code.
+# SOAP::WSDL's encoding doesn't I<exactly> match the .NET example, because
+# .NET doesn't always specify types (SOAP::WSDL does), and the namespace
+# prefixes chosen are different (maybe the encoding style, too ? this would be a bug !)
+#
+########################################################################################
+
+use strict;
+use diagnostics;
+use Test::More tests => 6;
+use Time::HiRes qw( gettimeofday tv_interval );
+use lib '../lib';
+use Cwd;
+use_ok qw/SOAP::WSDL/;
+
+### test vars END
+print "# Testing SOAP::WSDL ". $SOAP::WSDL::VERSION."\n";
+print "# Acceptance test against sample output with simple WSDL\n";
+
+my $data = {
+	name => 'test',
+	givenName => 'GIVENNAME',
+	test => {
+		name => 'TESTNAME',
+		givenName => 'GIVENNAME',
+	},
+};
+
+my $dir= cwd;
+$dir=~s/\/t\/?//;
+
+# print $dir;
+my $url = $dir . '/t/acceptance/test.wsdl.xml';
+die "no wsdl found" if (not -e $url);
+ok( my $soap=SOAP::WSDL->new( wsdl => 'file:///'. $url ), "Create SOAP::WSDL object");
+$soap->no_dispatch( 1 );
+
+eval{ $soap->wsdlinit() };
+unless ($@) {
+  pass "wsdlinit";
+} else {
+  fail "wsdlinit - $@";
+}
+
+
+ok( $soap->call(sayHello => %{ $data }) , "SOAP call");
+
+is( $soap->servicename() , 'Service1', "Auto-detected servicename");
+is( $soap->portname() , 'Service1Soap', "Auto-detected portname");
+

t/98_pod_coverage.t

@@ -1,6 +1,6 @@
 use Test::More;
-eval "use Test::Pod::Coverage 1.00";
+eval { use Test::Pod::Coverage 1.08 };
-plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD" if $@;
+plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD" if $@;
 
 
 BEGIN