r20777 - in /branches/upstream/soap-lite/current: ./ lib/SOAP/ lib/XMLRPC/ t/SOAP/ t/SOAP/Transport/HTTP/ t/SOAP/Transport/HTTP/CGI/ t/XMLRPC/
tincho at users.alioth.debian.org
tincho at users.alioth.debian.org
Fri Jun 6 15:21:44 UTC 2008
Author: tincho
Date: Fri Jun 6 15:21:43 2008
New Revision: 20777
URL: http://svn.debian.org/wsvn/?sc=1&rev=20777
Log:
[svn-upgrade] Integrating new upstream version, soap-lite (0.710.06)
Added:
branches/upstream/soap-lite/current/t/SOAP/Serializer.t
branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/
branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI/
branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI.t
branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI/test_server.pl (with props)
branches/upstream/soap-lite/current/t/XMLRPC/
branches/upstream/soap-lite/current/t/XMLRPC/Lite.t
Modified:
branches/upstream/soap-lite/current/Changes
branches/upstream/soap-lite/current/MANIFEST
branches/upstream/soap-lite/current/META.yml
branches/upstream/soap-lite/current/lib/SOAP/Lite.pm
branches/upstream/soap-lite/current/lib/XMLRPC/Lite.pm
Modified: branches/upstream/soap-lite/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/soap-lite/current/Changes?rev=20777&op=diff
==============================================================================
--- branches/upstream/soap-lite/current/Changes (original)
+++ branches/upstream/soap-lite/current/Changes Fri Jun 6 15:21:43 2008
@@ -1,7 +1,7 @@
#
# Revision history for Perl extension SOAP::Lite.
#
-# $Id: Changes 250 2008-05-05 21:44:30Z kutterma $
+# $Id: Changes 253 2008-06-05 18:26:18Z kutterma $
The contents of this file provides a change history for the SOAP::Lite
Perl module. New features are designated with a '+' and bug fixes with
@@ -15,6 +15,9 @@
-----------------------------------------------------------------------
THIS RELEASE
-----------------------------------------------------------------------
+0.710.06
+ ! #36477 SOAP::Lite Envelope not stripped down for XMLRPC
+ ! #36455 XMLRPC::Transport::HTTP::CGI generates extra params
0.710.05
! got version number right, finally. Thanks to Graham Barr,
Andreas J. Koenig and Matt S Trout (in alphabetical order) for support
Modified: branches/upstream/soap-lite/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/soap-lite/current/MANIFEST?rev=20777&op=diff
==============================================================================
--- branches/upstream/soap-lite/current/MANIFEST (original)
+++ branches/upstream/soap-lite/current/MANIFEST Fri Jun 6 15:21:43 2008
@@ -206,6 +206,9 @@
t/SOAP/Lite/Deserializer/XMLSchemaSOAP1_1.t
t/SOAP/Lite/Deserializer/XMLSchemaSOAP1_2.t
t/SOAP/Lite/Packager.t
+t/SOAP/Serializer.t
+t/SOAP/Transport/HTTP/CGI.t
+t/SOAP/Transport/HTTP/CGI/test_server.pl
t/SOAP/Schema/WSDL.t
t/SOAP/Transport/FTP.t
t/SOAP/Transport/HTTP.t
@@ -216,5 +219,6 @@
t/SOAP/Transport/MQ.t
t/SOAP/Transport/POP3.t
t/TEST.pl
+t/XMLRPC/Lite.t
t/XML/Parser/adam.xml
t/XML/Parser/Lite.t
Modified: branches/upstream/soap-lite/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/soap-lite/current/META.yml?rev=20777&op=diff
==============================================================================
--- branches/upstream/soap-lite/current/META.yml (original)
+++ branches/upstream/soap-lite/current/META.yml Fri Jun 6 15:21:43 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: SOAP-Lite
-version: 0.710.05
+version: 0.710.06
abstract: ~
license: ~
generated_by: ExtUtils::MakeMaker version 6.36
Modified: branches/upstream/soap-lite/current/lib/SOAP/Lite.pm
URL: http://svn.debian.org/wsvn/branches/upstream/soap-lite/current/lib/SOAP/Lite.pm?rev=20777&op=diff
==============================================================================
--- branches/upstream/soap-lite/current/lib/SOAP/Lite.pm (original)
+++ branches/upstream/soap-lite/current/lib/SOAP/Lite.pm Fri Jun 6 15:21:43 2008
@@ -4,7 +4,7 @@
# SOAP::Lite is free software; you can redistribute it
# and/or modify it under the same terms as Perl itself.
#
-# $Id: Lite.pm 249 2008-05-05 20:35:05Z kutterma $
+# $Id: Lite.pm 254 2008-06-05 18:43:57Z kutterma $
#
# ======================================================================
@@ -19,7 +19,7 @@
use 5.005;
use strict;
use vars qw($VERSION);
-use version; $VERSION = qv('0.710.05');
+use version; $VERSION = qv('0.710.06');
# ======================================================================
package SOAP::XMLSchemaApacheSOAP::Deserializer;
Modified: branches/upstream/soap-lite/current/lib/XMLRPC/Lite.pm
URL: http://svn.debian.org/wsvn/branches/upstream/soap-lite/current/lib/XMLRPC/Lite.pm?rev=20777&op=diff
==============================================================================
--- branches/upstream/soap-lite/current/lib/XMLRPC/Lite.pm (original)
+++ branches/upstream/soap-lite/current/lib/XMLRPC/Lite.pm Fri Jun 6 15:21:43 2008
@@ -4,7 +4,7 @@
# SOAP::Lite is free software; you can redistribute it
# and/or modify it under the same terms as Perl itself.
#
-# $Id: Lite.pm 249 2008-05-05 20:35:05Z kutterma $
+# $Id: Lite.pm 254 2008-06-05 18:43:57Z kutterma $
#
# ======================================================================
@@ -13,7 +13,7 @@
use SOAP::Lite;
use strict;
use vars qw($VERSION);
-use version; $VERSION = qv('0.710.05');
+use version; $VERSION = qv('0.710.06');
# ======================================================================
@@ -71,12 +71,16 @@
my $body;
if ($type eq 'response') {
+ # shift off method name to make XMLRPT happy
+ my $method = shift
+ or die "Unspecified method for XMLRPC call\n";
$body = XMLRPC::Data->name( methodResponse => \XMLRPC::Data->value(
XMLRPC::Data->type(params => [@_])
)
);
}
elsif ($type eq 'method') {
+ # shift off method name to make XMLRPT happy
my $method = shift
or die "Unspecified method for XMLRPC call\n";
$body = XMLRPC::Data->name( methodCall => \XMLRPC::Data->value(
Added: branches/upstream/soap-lite/current/t/SOAP/Serializer.t
URL: http://svn.debian.org/wsvn/branches/upstream/soap-lite/current/t/SOAP/Serializer.t?rev=20777&op=file
==============================================================================
--- branches/upstream/soap-lite/current/t/SOAP/Serializer.t (added)
+++ branches/upstream/soap-lite/current/t/SOAP/Serializer.t Fri Jun 6 15:21:43 2008
@@ -1,0 +1,9 @@
+use strict;
+use warnings;
+use Test::More tests => 2; #qw(no_plan);
+
+use_ok qw(SOAP::Lite);
+
+my $obj = SOAP::Serializer->new();
+
+is $obj->find_prefix('http://schemas.xmlsoap.org/soap/envelope/'), 'soap';
Added: branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI.t
URL: http://svn.debian.org/wsvn/branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI.t?rev=20777&op=file
==============================================================================
--- branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI.t (added)
+++ branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI.t Fri Jun 6 15:21:43 2008
@@ -1,0 +1,59 @@
+package SOAP::Transport::CGI_TEST::Client;
+
+use strict; use warnings;
+use IPC::Open2;
+use File::Basename qw(dirname);
+
+sub send_receive {
+ my ($self, %parameters) = @_;
+ my ($context, $envelope, $endpoint, $action, $encoding, $parts) =
+ @parameters{qw(context envelope endpoint action encoding parts)};
+
+ # print $envelope;
+
+ my $perl = $^X;
+
+ my $dir = dirname(__FILE__);
+ my $cmd = "$dir/CGI/test_server.pl";
+
+ $ENV{'CONTENT_LENGTH'} = length($envelope);
+ $ENV{'REQUEST_METHOD'} = 'POST';
+ my($child_out, $child_in);
+ my $pid = open2($child_out, $child_in, $perl, '-Mblib', $cmd);
+ die "Cannot open $cmd: $!" if not ($pid);
+
+ print $child_in $envelope;
+ print $child_in "\n";
+ close $child_in;
+ my @result = <$child_out>;
+
+ close $child_out;
+
+ # print $result[-1];
+
+ return $result[-1];
+}
+
+package main;
+no strict;
+use Test::More qw(no_plan);
+use SOAP::Lite; # +trace;
+my $soap = SOAP::Lite->new()->proxy('http://');
+no warnings qw(redefine once);
+*SOAP::Transport::HTTP::Client::send_receive =
+ \&SOAP::Transport::CGI_TEST::Client::send_receive;
+
+my $som = $soap->call('test');
+my $result = $som->result;
+
+
+if ($] >= 5.008) {
+ ok utf8::is_utf8($result), 'return utf8 string';
+ {
+ is $result, 'Ãœberall', 'utf8 content: ' . $result;
+ }
+}
+else {
+ use bytes;
+ is length $result, 8, "lenght of >$result< is 8 due to wide character";
+}
Added: branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI/test_server.pl
URL: http://svn.debian.org/wsvn/branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI/test_server.pl?rev=20777&op=file
==============================================================================
--- branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI/test_server.pl (added)
+++ branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI/test_server.pl Fri Jun 6 15:21:43 2008
@@ -1,0 +1,18 @@
+package main;
+use strict; use warnings;
+use SOAP::Lite;
+use SOAP::Transport::HTTP;
+
+my $soap = SOAP::Transport::HTTP::CGI->new(
+ dispatch_to => 'main'
+);
+
+$soap->handle();
+
+sub test {
+ my ($self, $envelope) = @_;
+ return SOAP::Data->name('testResult')->value('Ãœberall')->type('string');
+
+}
+
+1;
Propchange: branches/upstream/soap-lite/current/t/SOAP/Transport/HTTP/CGI/test_server.pl
------------------------------------------------------------------------------
svn:executable = *
Added: branches/upstream/soap-lite/current/t/XMLRPC/Lite.t
URL: http://svn.debian.org/wsvn/branches/upstream/soap-lite/current/t/XMLRPC/Lite.t?rev=20777&op=file
==============================================================================
--- branches/upstream/soap-lite/current/t/XMLRPC/Lite.t (added)
+++ branches/upstream/soap-lite/current/t/XMLRPC/Lite.t Fri Jun 6 15:21:43 2008
@@ -1,0 +1,9 @@
+use strict;
+use warnings;
+use Test::More tests => 2; #qw(no_plan);
+
+use_ok qw(XMLRPC::Lite);
+
+my $serializer = XMLRPC::Serializer->new();
+
+unlike $serializer->envelope('response', 'foo', 'bar'), qr{foo}, 'method name stripped off';
More information about the Pkg-perl-cvs-commits
mailing list