[Catalyst-commits] r9583 - in Catalyst-Controller-SOAP/1.0/trunk: .
lib/Catalyst/Controller t
ruoso at dev.catalyst.perl.org
ruoso at dev.catalyst.perl.org
Thu Mar 26 17:23:14 GMT 2009
Author: ruoso
Date: 2009-03-26 17:23:06 +0000 (Thu, 26 Mar 2009)
New Revision: 9583
Modified:
Catalyst-Controller-SOAP/1.0/trunk/META.yml
Catalyst-Controller-SOAP/1.0/trunk/Makefile.PL
Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
Catalyst-Controller-SOAP/1.0/trunk/t/PostApp.t
Log:
[C-C-SOAP] Fix tests, mark proper versioned dependencies... I hope the testers pass now...
Modified: Catalyst-Controller-SOAP/1.0/trunk/META.yml
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/META.yml 2009-03-26 10:04:14 UTC (rev 9582)
+++ Catalyst-Controller-SOAP/1.0/trunk/META.yml 2009-03-26 17:23:06 UTC (rev 9583)
@@ -10,8 +10,7 @@
XML::LibXML: 0
Catalyst::Controller: 5.7000
Class::C3: 0
- XML::Compile::WSDL11: 0
- XML::Compile::SOAP11: 0
+ XML::Compile::SOAP: 2.03
meta-spec:
version: 1.3
url: http://module-build.sourceforge.net/META-spec-v1.3.html
Modified: Catalyst-Controller-SOAP/1.0/trunk/Makefile.PL
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/Makefile.PL 2009-03-26 10:04:14 UTC (rev 9582)
+++ Catalyst-Controller-SOAP/1.0/trunk/Makefile.PL 2009-03-26 17:23:06 UTC (rev 9583)
@@ -6,8 +6,8 @@
NAME => 'Catalyst::Controller::SOAP',
VERSION_FROM => 'lib/Catalyst/Controller/SOAP.pm', # finds $VERSION
PREREQ_PM => { Catalyst::Runtime => 5.7011, XML::LibXML => 0, Class::C3 => 0,
- XML::Compile::SOAP => 0, XML::Compile::WSDL11 => 0,
- XML::Compile::SOAP11 => 0 },
+ XML::Compile::SOAP => 2.03
+ },
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(ABSTRACT_FROM => 'lib/Catalyst/Controller/SOAP.pm', # retrieve abstract from module
AUTHOR => 'Daniel Ruoso <daniel at ruoso.com>') : ()),
Modified: Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm 2009-03-26 10:04:14 UTC (rev 9582)
+++ Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm 2009-03-26 17:23:06 UTC (rev 9583)
@@ -11,7 +11,7 @@
use constant NS_SOAP_ENV => "http://schemas.xmlsoap.org/soap/envelope/";
use constant NS_WSDLSOAP => "http://schemas.xmlsoap.org/wsdl/soap/";
- our $VERSION = '1.12';
+ our $VERSION = '1.13';
__PACKAGE__->mk_accessors qw(wsdl wsdlobj decoders encoders
ports wsdlservice xml_compile soap_action_prefix rpc_endpoint_paths);
Modified: Catalyst-Controller-SOAP/1.0/trunk/t/PostApp.t
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/t/PostApp.t 2009-03-26 10:04:14 UTC (rev 9582)
+++ Catalyst-Controller-SOAP/1.0/trunk/t/PostApp.t 2009-03-26 17:23:06 UTC (rev 9583)
@@ -1,4 +1,4 @@
-use Test::More tests => 13;
+use Test::More tests => 14;
use File::Spec::Functions;
use HTTP::Response;
use IPC::Open3;
@@ -32,7 +32,7 @@
('/withwsdl/Greet',
'<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/">
<Body>
- <GreetingSpecifier>
+ <GreetingSpecifier xmlns="http://example.com/hello">
<who>World</who>
<greeting>Hello</greeting>
<count>1</count>
@@ -46,14 +46,14 @@
$response = soap_xml_post
('/withwsdl/doclw',
- '<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"><Body><GreetingSpecifier><who>World</who><greeting>Hello</greeting><count>2</count></GreetingSpecifier></Body></Envelope>'
+ '<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"><Body><GreetingSpecifier xmlns="http://example.com/hello"><who>World</who><greeting>Hello</greeting><count>2</count></GreetingSpecifier></Body></Envelope>'
);
like($response->content, qr/greeting\>2 Hello World\!\<\//, ' Document/Literal Wrapped response: '.$response->content);
# diag("/withwsdl/doclw: ".$response->content);
$response = soap_xml_post
('/withwsdl2/Greet','
- <Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"><Body><Greet><who>World</who><greeting>Hello</greeting><count>3</count></Greet></Body></Envelope>
+ <Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"><Body><Greet xmlns="http://example.com/hello"><who>World</who><greeting>Hello</greeting><count>3</count></Greet></Body></Envelope>
');
like($response->content, qr/greeting[^>]+\>3 Hello World\!Math::BigInt\<\//, 'RPC Literal response: '.$response->content);
# diag("/withwsdl2/Greet: ".$response->content);
@@ -62,7 +62,7 @@
('/withwsdl2/Greet','
<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/">
<Body>
- <Greet>
+ <Greet xmlns="http://example.com/hello">
<who>World</who>
<greeting>Hello</greeting>
<count>4</count>
@@ -75,7 +75,7 @@
$response = soap_xml_post
('/withwsdl/Greet',
- '<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"><Body><GreetingSpecifier><name>World</name><greeting>Hello</greeting></GreetingSpecifier></Body></Envelope>'
+ '<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"><Body><GreetingSpecifier xmlns="http://example.com/hello"><name>World</name><greeting>Hello</greeting></GreetingSpecifier></Body></Envelope>'
);
like($response->content, qr/Fault/, 'Fault on malformed body for Document-Literal: '.$response->content);
# diag("/withwsdl/Greet: ".$response->content);
@@ -91,7 +91,7 @@
('/hello/Greet',
'<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/">
<Body>
- <GreetingSpecifier>
+ <GreetingSpecifier xmlns="http://example.com/hello">
<who>World</who>
<greeting>Hello</greeting>
</GreetingSpecifier>
@@ -105,7 +105,7 @@
('/hello/Shout',
'<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/">
<Body>
- <GreetingSpecifier>
+ <GreetingSpecifier xmlns="http://example.com/hello">
<who>World</who>
<greeting>Hello</greeting>
</GreetingSpecifier>
@@ -118,14 +118,14 @@
$response = soap_xml_post
('/rpcliteral','
- <Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"><Body><Greet><who>World</who><greeting>Hello</greeting></Greet></Body></Envelope>
+ <Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"><Body><Greet xmlns="http://example.com/hello"><who>World</who><greeting>Hello</greeting></Greet></Body></Envelope>
');
like($response->content, qr/greeting[^>]+\>Hello World\!\<\//, ' WSDLPort RPC Literal response: '.$response->content);
# diag("/withwsdl2/Greet: ".$response->content);
$response = soap_xml_post
('/rpcliteral','
- <Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"><Body><Shout><who>World</who><greeting>Hello</greeting></Shout></Body></Envelope>
+ <Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"><Body><Shout xmlns="http://example.com/hello"><who>World</who><greeting>Hello</greeting></Shout></Body></Envelope>
');
like($response->content, qr/greeting[^>]+\>HELLO WORLD\!\<\//, ' WSDLPort RPC Literal response: '.$response->content);
# diag("/withwsdl2/Greet: ".$response->content);
More information about the Catalyst-commits
mailing list